relativer Pfad
08.10.2019 13:31:47
Steve
ich habe das mit relativen Pfaden in Excel schon öfters gemacht und es klappte immer gut. Egal wohin ich den Hauptordner hingeschoben habe, es hat alles funktioniert.
Nun dachte ich mir, das geht in Word auch so leicht. Leider ist dem wohl nicht so.
Ich möchte einen Serienbrief erstellen. Dieser wird IMMER in demselben Ordner liegen wie auch die Quelle.
- Also dachte ich, mit ThisWorkbookPath komme ich weiter.
Ausserdem wollte ich, das die Quelle automatisch gefunden wird sobald die Datei geöffnet wird. (Für den Fall, das der Hauptordner sich mal verschiebt - z.B. auf einen Stick)
- dafür beginnt mein ~Sub~ mit ~Sub~ AutoOpen()
das hat auch geklappt....bis ich This WorkbookPath eingebaut habe.
Jetzt stoppt das Makro schon bei "Sub..."
Ist zwar kein Excel, aber VBA. Kann mir hier jemand helfen?
Hier mal meinen Code. Habe ich mit dem Rekorder aufgenommen und angepasst.
Sub AutoOpen()
strPfad As String
'Verbinden
strPfad = ThisWorkbook.Path
ActiveDocument.MailMerge.OpenDataSource Name:= _
strPfad & "\TEST1.xlsx", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
strPfad & "\TEST1.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB: _
System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet " _
, SQLStatement:="SELECT * FROM `Tabelle1$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
End Sub
Anbei eine Frage: Es wird nicht entgangen sein, das eine Zeile nicht umgebrochen wurde. Das habe ich mit " _" versucht, aber dann hat das Makro rumgezickt. gibt es dafür Regeln die ich beachten muss? Oder ist das normal und wird zum zwecke des kopierens einfach ignoriert und später rückgängig gemacht?
Vielen Dank für eure Hilfe
Liebe Grüße
Steve