Retrieve Active File Path

francois.timms · March 6th, 2008, 08:30 AM

I need to retrieve the current path of the active file to avoid "hard coding" the path into my application. I know that win32api commands can be used for this but can not find any Excel VBA examples on the net.

Any help?

stanleydgromjr · March 6th, 2008, 07:15 PM

francois.timms,

Try:

Code:

Sub GetActiveWorkbookPath()
    Dim FullPathFileName
    Dim GetFilePath
    FullPathFileName = ActiveWorkbook.FullName
    GetFilePath = Mid(FullPathFileName, 1, InStrRev(FullPathFileName, "\"))
    MsgBox "Active Workbook Full Path = " & GetFilePath
End Sub

Have a great day,
Stan

stanleydgromjr

Windows Vista Business and Excel 2003, 2007.

francois.timms · March 10th, 2008, 01:43 AM

Hey Stan

Thanks a mil! Works like a charm!

tstav · March 24th, 2008, 05:14 PM

The way to find the path of the [u]active</u> Excel file is pretty straightforward:
strPath = Activeworkbook.Path

Now, Stan's way can be used to get the path of anyone of the open Workbooks.
Suppose "File1.xls" is one of the open workbooks.

Code:

Dim strFile as string, strPath as String
strFile = "File1.xls"
strPath = GetFilePath(strFile)

Function GetFilepath(ByVal strFile as String) as String
GetFilePath = Mid(Workbooks(strFile).FullName,1,InstrRev(Workbooks(strFile).FullName, "\") -1)
End Function