Getting EXE Filename

Purpose: getting EXE Filename

This lets you retrieve the filename of the EXE file.

Use the following VBA code:

Public Function GetEXEFilename()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
GetEXEFilename = XLSPadlock.PLEvalVar("EXEFilename")
Exit Function
Err:
GetEXEFilename = ""
End Function
 

 

You can then call the function:

Sub Get_EXE_Filename()
 MsgBox (GetEXEFilename())
End Sub