How to get filename without the extention

Lee123 · Feb 25th, 2002, 11:15 AM

In a macro how can I assign to a variable only the file name not including the extention?
ie. full_name = "InputFile.xls"
I want Short_name to be "InputFile"
Thx.

NateO · Feb 25th, 2002, 11:40 AM

Short_name = "Input File"
Long_name = Short_name & ".xls"

Cheers, Nate

Lee123 · Feb 25th, 2002, 11:45 AM

The problem is the reverse. I have the full file name from ThisWorkBook.Name procedure but I can't just extract the shorten form.
Thx.

Tim Francis-Wright · Feb 25th, 2002, 11:57 AM

Here's one way to do this:

full_Name = ThisWorkbook.Name
If (Right(full_Name,4) Like ".???") then
Short_Name = Left(full_Name, Len(full_Name)-4)
Else
Short_Name = full_Name
End If

NateO · Feb 25th, 2002, 11:59 AM

How about this:

Short_Name = worksheetfunction.substitute(full_name,".xls","")

Cheers, Nate

Feb 25th, 2002, 11:57 AM	#4
Tim Francis-Wright Board Regular Join Date: Feb 2002 Posts: 74	Here's one way to do this: full_Name = ThisWorkbook.Name If (Right(full_Name,4) Like ".???") then Short_Name = Left(full_Name, Len(full_Name)-4) Else Short_Name = full_Name End If __________________ "Interfere? Of course we should interfere! Always do what you're best at, that's what I say!" -- The Doctor, Nightmare of Eden

Feb 25th, 2002, 11:59 AM	#5
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	How about this: Short_Name = worksheetfunction.substitute(full_name,".xls","") Cheers, Nate __________________ Regards, Nate Oliver Microsoft Excel MVP Nate's Excel Blog

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 25th, 2002, 11:15 AM	#1
Lee123 New Member Join Date: Feb 2002 Posts: 6	In a macro how can I assign to a variable only the file name not including the extention? ie. full_name = "InputFile.xls" I want Short_name to be "InputFile" Thx.

Feb 25th, 2002, 11:40 AM	#2
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	Short_name = "Input File" Long_name = Short_name & ".xls" Cheers, Nate

Feb 25th, 2002, 11:45 AM	#3
Lee123 New Member Join Date: Feb 2002 Posts: 6	The problem is the reverse. I have the full file name from ThisWorkBook.Name procedure but I can't just extract the shorten form. Thx.