Identify Full Path of Opened Excel Workbook

[Guest]

In a VBA Excel macro, how can I identify the full path of "this" opened
workbook test1.xls, and then use it to open another file test2.xls at the
same location ?

Will the procedure change the current folder in the File menu ?

Thank you.

 

[Bob Phillips]

Activeworkbook.Path

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Dana DeLouis]

Here's one of a few ways:

Sub Demo()
Dim v
Dim WbToOpen
Dim ps As String

ps = Application.PathSeparator

v = Split(ThisWorkbook.FullName, ps)
v(UBound(v)) = "Test2.xls"
WbToOpen = Join(v, ps)
' etc...
End Sub

HTH

 

[Tim Williams]

workbooks.open thisworkbook.path & "\test2.xls"

Tim

 

[Tom Ogilvy]

sPath = Activeworkbook.Path

 

[Guest]

Bob, Dana, Tim, Tom;

Very helpful! Thank you all.