Full path in custom footer. How?

[Don Wiss]

I'm using Excel 97. I know I can put =CELL("filename") in a cell, and then
have a macro assign that to the footer, but is there an & keyword that will
return the full path without this kludge? Knowing that &[File] returns the
file name, I tried words like Filename, Path, and Pathname, but to no
avail.

Don <donwiss at panix.com>.

 

[Rafael Ortiz]

You can download and use this free add-in:

http://j-walk.com/ss/excel/files/addpath.htm

MRO

 

[David McRitchie]

Hi Don,
For a macro solution see
http://www.mvps.org/dmcritchie/excel/pathname.htm
and take your choice.

Also to not use =CELL("filename") thinking tat is going
to get you the pathname, it will not be reliable. You need a cell
reference like =CELL("filename",A1) Read about that
as well on the above webpage.
--

 

[Don Wiss]

Don Wiss wrote:

I'm using Excel 97. I know I can put =CELL("filename") in a cell, and then
have a macro assign that to the footer, but is there an & keyword that will
return the full path without this kludge? Knowing that &[File] returns the
file name, I tried words like Filename, Path, and Pathname, but to no
avail.

You can download and use this free add-in:

http://j-walk.com/ss/excel/files/addpath.htm

A little overkill. What I forgot to mention is we also want the name of the
sheet after the full filename. Since we generally print using macros I
ended up added these two lines around the printout line.

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName & "[" & ActiveSheet.Name & "]"
ActiveSheet.Printout
ActiveSheet.PageSetup.LeftFooter = "&F[&A]"

I set it back to the default, as it is possible for someone to save under a
new name, and then print without the macro. In such cases they would get the
wrong path.

Don <donwiss at panix.com>.