Pular para o conteúdo

Obter o caminho para um arquivo na pasta do EXE com VBA

Esta função VBA recupera o caminho completo para um arquivo localizado no mesmo diretório que o EXE da sua aplicação. Ela é especialmente útil para acessar recursos externos ou arquivos complementares que você distribui junto com a sua planilha protegida.

👉 Insira a seguinte função em um módulo VBA:

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

Em seguida, você pode chamar a função:

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

👉 Consulte também: VBA API Cookbook & Recipes