Relativer Pfad zum öffnen des Word Dokumentes
26.08.2015 11:58:04
Andrea
ich brauche noch einmal eure Hilfe. Mein erstelltes Kalk-Tool soll nun einen relativen Pfad bekommen. Das zu öffnende Word-Dokument wird im gleichen Verzeichnis wie die Excel-Datei sein. Da die Exceldatei auch auf anderen Rechnern laufen soll, würde ich hier gerne mit relativen Pfaden arbeiten.
Könnt ihr mir sagen wie?
Herzlichen Dank im Voraus.
Schöne Grüße,
Andrea Hottendorff
Hier mein Makro:
Sub OpenWordDocument()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Users\hottendorff\Documents\Managed Firewall Services\ _
ServicevertragMuster.docx")
' Angebot Makro
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\hottendorff\Documents\Managed Firewall Services\MSS Kalkulationstool Formular _
20150609.xlsm" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\hottendorff\ _
Documents\Managed Firewall Services\MSS Kalkulationstool Formular 20150609.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registr" _
, SQLStatement:="SELECT * FROM `Transferdaten$`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
wrdDoc.Close False
End Sub