Speicherort der Excel-/Word-Datei direkt im Explorer öffnen

[weer]

Wie im Artikel gesagt, ist das erst in neueren Versionen möglich. Um auch in älteren Versionen den Ordner der aktuellen Datei zu öffnen, behelfe ich mich in EXCEL mit folgenden zwei (zusammengehörenden) Makros:

Sub ExcOffnOrd_aktDatei()
' In Excel den Ordner der aktuellen Datei öffnen
' allenfalls den Ordner "D:\Documents" oder einen bestimmten anderen
On Error GoTo fehler1
pfn$ = ActiveWorkbook.Path
GoTo finis1
fehler1:
    pfn$ = "D:\Documents"   'ANPASSEN
finis1:
offord pfn$
End Sub

Sub offord(pfn$)  
    lf$ = Left(pfn$, 3)
    ChDrive lf$
    ChDir pfn$
    Datei = Application.GetOpenFilename("alle,*.x*")
If Datei = False Then Exit Sub
    Workbooks.Open Filename:=Datei
finis:
End Sub

Grüsse Niclaus

PS Falls jemand interessiert ist an etwas Aehnlichem für WORD, soll er/sie es doch hier sagen.