Current Directory

[Guest]

I am writing a Macro that does some stuff then saves the file as "NAME.txt"
but the directory that I am will change with each new file. How do I grab
the directory of the active workbook? I can grab the full file path
(ActiveWorkbook.FullName) but I can not convert this to the directory. Any
help?

 

[Guest]

=CELL("filename") will return the file's directory path.

Keep the quotes and filename. Odd function but it gives you the info you
need.

Dave

 

[Jim Cone]

Another way.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

Sub FindWhatFolder()
MsgBox WhatFolder(ThisWorkbook.Path)
End Sub

Function WhatFolder(strPath) As String
Dim FSO As Object
Dim oFold As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFold = FSO.GetFolder(strPath)
WhatFolder = oFold.Path
End Function
'--------------------


"Mallasch"
<[email protected]>
wrote in message
I am writing a Macro that does some stuff then saves the file as "NAME.txt"
but the directory that I am will change with each new file. How do I grab
the directory of the active workbook? I can grab the full file path
(ActiveWorkbook.FullName) but I can not convert this to the directory. Any
help?

 

[Dave Peterson]

That will actually tell you the name of drive/path/filename/sheet name that was
active when excel last calculated.

In this case, you'd want to specify a range:

=cell("Filename",a1)

===========
In code, you could use:

msgbox activeworkbook.path

 

[Guest]

Thanks. activeworkbook.path worked well. I was using
activeworkbook.fullname which gave me the filename that I didn't want...