How to get Properties Generate tab Location value

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

moonhkt@gmail.com - 06 Dec 2007 09:21 GMT

Hi Reader
How to get Properties Generate tab "Location" value ?
What location is file saved directory.

Below coding just return file name only.
Sub FileName()
Dim xname As String
xname = Application.ActiveWorkbook.Name

xname = Application.InputBox("File Information", "Detail", xname)

End Sub

moonhk

Reply to this Message

Bob Phillips - 06 Dec 2007 09:31 GMT

xPath = Application.ActiveWorkbook.Path

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> Hi Reader
> How to get Properties Generate tab "Location" value ?
[quoted text clipped - 10 lines]
>
> moonhk

Reply to this Message

moonhk - 07 Dec 2007 01:48 GMT

> xPath = Application.ActiveWorkbook.Path
>
[quoted text clipped - 26 lines]
>
> - 顯示被引用文字 -

Thank. My coding as below
Sub DisplayPathFileName()
'~~ 2007/12/07
Dim xname As String
Dim xPath As String
If Application.ActiveWorkbook Is Nothing Then
MsgBox "No Open Worksheet", vbCritical
Exit Sub
End If
xname = Application.ActiveWorkbook.Name
xPath = Application.ActiveWorkbook.Path
xname = Application.InputBox("File Information", "Detail", xPath &
"\" & xname)

End Sub

Reply to this Message