How to see full path name of open workbook?

  • Thread starter Thread starter Joe User
  • Start date Start date
J

Joe User

Is there a simple way to see the full path name (folder and file name) of an
open workbook?
 
Where do you want to see this?

If you display the Web Toolbar you will see path and name if the bar.

On the Title Bar?

Add this code to Thisworkbook module.

Private Sub Workbook_Open()
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub


Gord Dibben MS Excel MVP
 
Gord Dibben said:
If you display the Web Toolbar you will see path and name
Click to expand...

Thanks. That will do nicely.

On the Title Bar?
Click to expand...

Yeah, that's my preference. But it's not worth creating a Workbook_Open
macro just for this unless I want to apply it to all Excel files that I
open. Not sure if I do.

However....

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub
Click to expand...

Why bother? Just good practice to restore the default, for example if I
only want to apply this to one workbook, but not others open subsequently in
the same Excel instance? Just to show me how, in case I wanted to? (Good
idea.) Or is this an Excel requirement?(!)


----- original message -----
 
Not necessary to have the BeforeClose event.

Other workbooks opened subsequently will not have the full path.


Gord
 
Put the following code in the ThisWorkbook module of your Personal.xls
workbook (or any other workbook that is normally always open).

Private WithEvents App As Excel.Application

Private Sub App_WindowActivate(ByVal Wb As Workbook, _
ByVal Wn As Window)
Wn.Caption = Wb.FullName
End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
 
Back
Top