returning filename in excel

[Claud Balls]

In MS Word I used:
With Dialogs(wdDialogFileOpen)
If .Display Then
strSourceFile = WordBasic.FilenameInfo$(.Name, 1)
End If
End With

to obtain the filename of the active document. How can I do this in
Excel?


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Nick Hodge]

Claud

To get the filename of the activeworkbook, use

sFileName=ActiveWorkbook.FullName

If you want to display the open dialog and then open a workbook

sFilename=Application.GetOpenFileName()
Workbooks.Open FileName:=sFileName

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

 

[Juan Pablo González]

ActiveWorkbook.Name

or

ActiveWorkbook.FullName

 

[Bob Phillips]

Claud,

Check out the GetOpenFilename method in VBA help.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[JE McGimpsey]

One way:

strSourceFile = ActiveWorkbook.Name

or, if you want the path, too

strSourceFile = ActiveWorkbook.FullName