ich habe hier im Forum den unten stehenden Code gefunden, mit dem ich über einen Button in meiner Excelmappe die Word Datei öffnen kann.
Da beide Dateien auf dem Server liegen und nicht alle User das gleiche Laufwerksmapping "P:\ " haben, möchte ich fragen ob man den Pfad auch anders benennen kann.
Als Hinweis: Die Excelmappe liegt im Verzeichnis:
\Datenbank\start.xls
und die Worddatei im Unterverzeichnis :
\Datenbank\Dokumente\test2.doc
Gibt es da eine Möglichkeit, da beide Dateien im gleichem Hauptverzeichnis liegen?
Private Sub CommandButton17_Click()
Pfad = "P:\Datenbank\Dokumente\test2.doc"
Dim WdApp As Object
Dim wdDok As Object
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.documents.Open(Filename:=Pfad, ReadOnly:=True)
WdApp.Visible = True
WdApp.Activate
Set wdDok = Nothing
Set WdApp = Nothing
End Sub
1000 Dank Micha