Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Dear all,
How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Hi
try the following (will not work in Excel 97 due to InStrRev) sub foo() dim fname fname = application.getopenfilename (FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) fname = mid(fname,instrrev(fname,"\")+1,255) msgbox "You have entered the name:" & fname end sub -- Regards Frank Kabel Frankfurt, Germany "kaon " schrieb im Newsbeitrag ... Dear all, How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Thanks, dude.
I think there is a keyword for that at the beginning -- Message posted from http://www.ExcelForum.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Hi kaon
For Excel 97 - 2003 you can use this Sub foo2() Dim vArr As Variant, fname As Variant Dim sFileNameXls As String fname = Application.GetOpenFilename(FileFilter:="All files (*.*),*.*", _ Title:="Select a file", MultiSelect:=False) vArr = Split97(fname, "\") sFileNameXls = vArr(UBound(vArr)) MsgBox "You have entered the name:" & sFileNameXls End Sub Function Split97(sStr As Variant, sdelim As String) As Variant 'Tom Ogilvy Split97 = Evaluate("{""" & _ Application.Substitute(sStr, sdelim, """,""") & """}") End Function -- Regards Ron de Bruin http://www.rondebruin.nl "Frank Kabel" wrote in message ... Hi try the following (will not work in Excel 97 due to InStrRev) sub foo() dim fname fname = application.getopenfilename (FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) fname = mid(fname,instrrev(fname,"\")+1,255) msgbox "You have entered the name:" & fname end sub -- Regards Frank Kabel Frankfurt, Germany "kaon " schrieb im Newsbeitrag ... Dear all, How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
kaon
You can also use the Dir function Dir(fname) will return only the file name -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com "kaon " wrote in message ... Dear all, How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Hi
Why not: fname = dir(fname) Regards Hamilton R. Romano "Ron de Bruin" wrote in message ... Hi kaon For Excel 97 - 2003 you can use this Sub foo2() Dim vArr As Variant, fname As Variant Dim sFileNameXls As String fname = Application.GetOpenFilename(FileFilter:="All files (*.*),*.*", _ Title:="Select a file", MultiSelect:=False) vArr = Split97(fname, "\") sFileNameXls = vArr(UBound(vArr)) MsgBox "You have entered the name:" & sFileNameXls End Sub Function Split97(sStr As Variant, sdelim As String) As Variant 'Tom Ogilvy Split97 = Evaluate("{""" & _ Application.Substitute(sStr, sdelim, """,""") & """}") End Function -- Regards Ron de Bruin http://www.rondebruin.nl "Frank Kabel" wrote in message ... Hi try the following (will not work in Excel 97 due to InStrRev) sub foo() dim fname fname = application.getopenfilename (FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) fname = mid(fname,instrrev(fname,"\")+1,255) msgbox "You have entered the name:" & fname end sub -- Regards Frank Kabel Frankfurt, Germany "kaon " schrieb im Newsbeitrag ... Dear all, How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Hi Hamilton
When I want to know this a few years back Tom give me this example and I always use it since then. But Dir(fname) Is OK for me<g Have a nice day -- Regards Ron de Bruin http://www.rondebruin.nl "Hamilton R. Romano" wrote in message om... Hi Why not: fname = dir(fname) Regards Hamilton R. Romano "Ron de Bruin" wrote in message ... Hi kaon For Excel 97 - 2003 you can use this Sub foo2() Dim vArr As Variant, fname As Variant Dim sFileNameXls As String fname = Application.GetOpenFilename(FileFilter:="All files (*.*),*.*", _ Title:="Select a file", MultiSelect:=False) vArr = Split97(fname, "\") sFileNameXls = vArr(UBound(vArr)) MsgBox "You have entered the name:" & sFileNameXls End Sub Function Split97(sStr As Variant, sdelim As String) As Variant 'Tom Ogilvy Split97 = Evaluate("{""" & _ Application.Substitute(sStr, sdelim, """,""") & """}") End Function -- Regards Ron de Bruin http://www.rondebruin.nl "Frank Kabel" wrote in message ... Hi try the following (will not work in Excel 97 due to InStrRev) sub foo() dim fname fname = application.getopenfilename (FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) fname = mid(fname,instrrev(fname,"\")+1,255) msgbox "You have entered the name:" & fname end sub -- Regards Frank Kabel Frankfurt, Germany "kaon " schrieb im Newsbeitrag ... Dear all, How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get filename only
Hi Dave
Lots of disk access would slow down Now I can defend myself when I use more code lines<g -- Regards Ron de Bruin http://www.rondebruin.nl "Dave Peterson" wrote in message ... I suggested the dir(fname), too for a poster who was retrieving lots and lots of files. Tom suggested instrrev (or some variation). Lots of disk access would slow down the procedure more than the instrrev (or some variation). Made sense to me (well, after I was corrected!). Ron de Bruin wrote: Hi Hamilton When I want to know this a few years back Tom give me this example and I always use it since then. But Dir(fname) Is OK for me<g Have a nice day -- Regards Ron de Bruin http://www.rondebruin.nl "Hamilton R. Romano" wrote in message om... Hi Why not: fname = dir(fname) Regards Hamilton R. Romano "Ron de Bruin" wrote in message ... Hi kaon For Excel 97 - 2003 you can use this Sub foo2() Dim vArr As Variant, fname As Variant Dim sFileNameXls As String fname = Application.GetOpenFilename(FileFilter:="All files (*.*),*.*", _ Title:="Select a file", MultiSelect:=False) vArr = Split97(fname, "\") sFileNameXls = vArr(UBound(vArr)) MsgBox "You have entered the name:" & sFileNameXls End Sub Function Split97(sStr As Variant, sdelim As String) As Variant 'Tom Ogilvy Split97 = Evaluate("{""" & _ Application.Substitute(sStr, sdelim, """,""") & """}") End Function -- Regards Ron de Bruin http://www.rondebruin.nl "Frank Kabel" wrote in message ... Hi try the following (will not work in Excel 97 due to InStrRev) sub foo() dim fname fname = application.getopenfilename (FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) fname = mid(fname,instrrev(fname,"\")+1,255) msgbox "You have entered the name:" & fname end sub -- Regards Frank Kabel Frankfurt, Germany "kaon " schrieb im Newsbeitrag ... Dear all, How can I just return the filename only (i.e without path) as an absolute path can be returned by: fName = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", _ Title:="Select a file", MultiSelect:=False) Thanks. --- Message posted from http://www.ExcelForum.com/ -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
filename.xls:1 and filename.xls:2 | Excel Discussion (Misc queries) | |||
Cell("filename") doesn't update to new filename when do save as. | Excel Worksheet Functions | |||
set filename to <filename-date on open | Excel Worksheet Functions | |||
Saving filename same as import filename | Excel Programming | |||
how to specify the filename | Excel Programming |