Ich möchte aus Excel per Knopf eine Word-Datei öffnen. Hierzu existieren folgende Zeilen hinter dem Knopf:
Sub DokumentOeffnen(ByVal dok As String)
Dim Dokument, Pfad
Pfad = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\"))
ChDir Pfad
Dokument = Application.GetOpenFilename(dok & "-Dokument (*.doc*;*.pdf), *.doc*;*.pdf", _
Title:=dok & "-Dokument auswählen", MultiSelect:=False)
CreateObject("shell.application").Open Dokument
End Sub
Ich dachte nun, dass sich der WindowsExplorer mit der Zeile "ChDir Pfad" in dem Ordner öffnet, der sich über dem Ordner der Arbeitsmappe befindet. Ist aber nicht. Der WindowsExplorer öffnet nach wie vor die "Eigenen Dateien".
Wie schaffe ich es, zu meinem gewünschten Resultat zu kommen?
P