Full path-name in title bar ?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

Is it possible to put the full path name of the opened file in the bleu
title bar from excel, this always en automatically.

--> Microsoft Excel - c:/data/stefan/filename instead of Microsoft Excel -
filename


Many thanks
Stefan
 
Public WithEvents App As Application

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

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
App_WindowActivate Wb, Windows(Wb.Name)
End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
Thanks Bob,

I get the full name, except i've got a 'subscript out of range' error as
soon as i close a window.

Secondly, i have to open that specific file first before the full path
appears.

Stefan
 
Bob,

With an 'on error goto' statement i can prevent that 'subscript out of
range' error. Complete path-name still occurs.

The second problem was solved by saving the file in the 'XLStart' directory
of Microsoft Office and put an extra program line so that Excel automatically
starts with that file and immediately minimizes the windowstate of it.

Again thanks for putting me on the way.
Stefan
 
Stefan,

I would have put it in Personal.xls, not have another file opened.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
Just wondering why you included this routine:

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
App_WindowActivate Wb, Windows(Wb.Name)
End Sub

The captions seem to get updated fine without it.
 
Bob Phillips said:
Stefan,

I would have put it in Personal.xls, not have another file opened.
Click to expand...

Can you give me some more information, i cant follow.
Is personal.xls the name of that file and in which directory must i save it??

thnx
Stefan
 
Stefan,

Personal.xls is a file that Excel knows about, and is normally used to store
your personal, application wide code. If you go to Tools>Macro>Record New
Macro ..., and you will see a dialog. If you click the drop-down on the
right, one of the options is Personal.xls. Just select that and click OK<
then hit the Stop Recording button immediately. That will create a
Personal.xls file for you. This is saved in the XLStart directory, and
automatically opens when Excel starts, but in a non-visible state. This is a
good file for stuffing code like this.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
Stefan,
Personal.xls is a file that Excel knows about, and is normally used to store
your personal, application wide code. If you go to Tools>Macro>Record New
Macro ..., and you will see a dialog. If you click the drop-down on the
right, one of the options is Personal.xls. Just select that and click OK<
then hit the Stop Recording button immediately. That will create a
Personal.xls file for you. This is saved in the XLStart directory, and
automatically opens when Excel starts, but in a non-visible state. This is a
good file for stuffing code like this.
Click to expand...

Thanks.

I gonna try it.
 
Bob,


It works just perfect. Thank you.

My college at work has asked it. She's gonna be wild if she see's this.
 
Can something be added to update the Path in the title bar when you save the
workbook as a different file name?
 
Who are you asking Jack, Stefan or me?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Either, Bob. I don't know how to handle the 'on error go to' statement that
Stefan refers to above. By seeing the complete code, I will learn how to
handle such an error in the future. TIA
 
Stefan said:
Hello,

Is it possible to put the full path name of the opened file in the bleu
title bar from excel, this always en automatically.

--> Microsoft Excel - c:/data/stefan/filename instead of Microsoft Excel -
filename


Many thanks
Stefan
Click to expand...
 
Back
Top