Return the File Name 2

[randy700]

Probably simple but I just cannot find it.

How would I go about returning the name of the excel file from within an excel macro.

Example: Test.xls

Dim strFileName as String
strFileName = [i][COLOR=red]???[/color][/i]

... where ??? returns "Test" or "Test.xls"


Randy

 

[mintjulep]

activeworkboox.name

or

workbooks(index).name

 

[mscallisto]

Here is an example to list all the files in a directory; you can make adjustments to meet your needs:

Sub MySub()
Dim MyFile As String

MyFile = Dir("C:\Documents and Settings\me\Desktop\*.*")
MsgBox (MyFile)
Do While MyFile <> ""
'Open MyFile; Apply image; Save as doc; Close file
MyFile = Dir
MsgBox (MyFile)
Loop
End Sub

ps you should direct VBA questions to the VBA forum

sam

 

[randy700]

mintjulep,

Exactly what I needed. Thank you.

Randy

 

[AnotherHiggins]

Seeing as this is posted in forum68 instead of forum707, I'll just mention that you can return the file name in a cell without VBA by using the CELL function.

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ 181-2886 before posting.

 

[xlbo]

...and I would further add that if you want to return the name of the workbook that the code is running from, THISWORKBOOK is safer to use than ACTIVEWORKBOOK

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question