---

Guten Morgen

Ich versuche derzeit ein Makro zu erstellen, welches die Steuertabellen einer Baugruppe wieder automatisch mit der Exceldatei verknüpft.
Manuell muss dabei nur über Properties bei FilePath den richtigen Dateipfad/die richtige Exceldatei ausgewählt werden.

Das Makro funktioniert so, dass in einer For-Schleife alle Steuertabellen gefunden werden und ihre Dateipfade ausgelesen werden.
Dieser Schritt funktioniert soweit auch

Dann soll der gefundenen Dateipfad als neuer aktueller Dateipfad gesetzt werden
Laut V5 Automationanleitung wird dies auch wieder über .FilePath ermöglicht.
Dies funktioniert aber nicht wirklich.

Hat jemand eine Idee wie ich den Dateipfad verändern bzw. wieder die richtige Exceldatei der Steuertabelle zuweisen kann?

[Diese Nachricht wurde von TBohner am 18. Jun. 2019 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo TBohner,

willkommen im Forum.

Das sollte mit

Code:

---

.FilePath

---

funktionieren.
Prüfe mal den Pfad auf Syntaxfehler.

Code:

---

Sub ChangePathOfDesignTable(oRelations As Relations, sNameOfTabel As String, sNewPathOfTable As String, sErrorList As String)

    Dim TableToChange As DesignTable

Set TableToChange = GetDesignTableByName(oRelations, sNameOfTabel)
        If TableToChange Is Nothing Then
            sErrorList = sErrorList & "-" & sNameOfTabel & vbLf
         
        Else
            TableToChange.Hidden = HiddenDTables
            TableToChange.FilePath = sNewPathOfTable
        End If
End Sub

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank!
An dem hats gehappert.

Set TableToChange = GetDesignTableByName(oRelations, sNameOfTabel)

[Diese Nachricht wurde von TBohner am 18. Jun. 2019 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP