Zum Inhalt springen

Pfad zu einer Datei im Ordner der EXE mit VBA ermitteln

Diese VBA-Funktion ermittelt den vollständigen Pfad zu einer Datei, die sich im selben Verzeichnis wie die EXE Ihrer Anwendung befindet. Sie ist besonders nützlich, um auf externe Ressourcen oder Begleitdateien zuzugreifen, die Sie zusammen mit Ihrer geschützten Arbeitsmappe verteilen.

👉 Fügen Sie die folgende Funktion in ein VBA-Modul ein:

Public Function PathToFile(ByVal Filename As String) As String
    Dim XLSPadlock As Object
    Dim exePath As String
    On Error GoTo Err


    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    exePath = XLSPadlock.PLEvalVar("EXEPath")


    ' Use Application.BuildPath to correctly join the path and filename
    PathToFile = Application.BuildPath(exePath, Filename)


    Exit Function
Err:
    PathToFile = ""
End Function

Anschließend können Sie die Funktion aufrufen:

Sub Test_File()
 DoSomethingWith(PathToFile("data.xls"))
End Sub

👉 Siehe auch: VBA API Cookbook & Recipes