Vollständiges Speicherverzeichnis einer Datei feststellen

So ermitteln Sie per VBA das Speicherverzeichnis

Für viele Anwendungen ist es wichtig das Verzeichnis zu kennen, in dem eine Datei gespeichert ist.

Wenn Sie das über ein Makro erledigen möchten, hilft Ihnen die Eigenschaft FullName. Mit dieser Eigenschaft können Sie den kompletten Pfad einer Datei abfragen.

 Die Eigenschaft hat aber nur dann einen passenden Wert, wenn die Datei bereits gespeichert worden ist. Das müssen Sie im ersten Schritt abfragen, bevor Sie der Abfrage der Eigenschaft vertrauen. Das folgende Makro gibt den den kompletten Dateinamen der aktiven Excel-Arbeitsmappe ineinem Fenster aus:

Sub KomplettenDateinamen()
With ActiveWorkbook
If .Path = "" Then
 MsgBox "Die Arbeitsmappe ist noch nie gespeichert worden."
Else
 MsgBox "Verzeichnis und Dateiname der Arbeitsmappe lauten: " & vbLf _
  & .FullName
End If
End With
End Sub

Nach dem Start blendet Excel ein kleines Fenster ein, in dem der vollständige Verzeichnis- und Dateiname der aktuellen Arbeitsmappe angezeigt wird

Falls die Arbeitsmappe noch keinen Dateinamen erhalten hat, weil sie noch niemals gespeichert wurde, weist das Makro auch auf diesen Umstand hin:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html