Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
I have a workbook which has a list of path and filenames for workbooks.
I want to extract from each of these the workbook name only. e.g From this path I want to extract only the name "Lucky Draw.xls" C:\Documents and Settings\Bbrian\My Documents\My Documents\Brian docs\Clay\Clay WorkBooks\Workbooks\Lucky Draw.xls Each of the path names are vaiable lengths and a variable number of sub direcotries |
#2
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]() |
#3
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]() |
#4
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]() Ron Rosenfeld seems to have offered the solution to my problem. Thanks to all who replied |
#5
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]() |
#6
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]() wrote: I have a workbook which has a list of path and filenames for workbooks. I want to extract from each of these the workbook name only. e.g From this path I want to extract only the name "Lucky Draw.xls" C:\Documents and Settings\Bbrian\My Documents\My Documents\Brian docs\Clay\Clay WorkBooks\Workbooks\Lucky Draw.xls Each of the path names are vaiable lengths and a variable number of sub direcotries Hi Brian, You can create a user defined function to achieve this. I found this one he http://www.ozgrid.com/VBA/GetExcelFileNameFromPath.htm Function FunctionGetFileName(FullPath As String) Dim iCount As Integer Dim StrFind As String Do Until Left(StrFind, 1) = "\" iCount = iCount + 1 StrFind = Right(FullPath, iCount) If iCount = Len(FullPath) Then Exit Do Loop FunctionGetFileName = Right(StrFind, Len(StrFind) - 1) End Function Best Regards, CalumMurdo Kennedy |
#7
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Here is a User Defined Function that does it
Function FindName(mytext) x = Len(mytext) temp = "" For j = x To 1 Step -1 myletter = Mid(mytext, j, 1) If myletter < "\" Then temp = myletter & temp Else Exit For End If Next j FindName = temp End Function Need help with VBA? See David McRitchie's site on "getting started" with VBA http://www.mvps.org/dmcritchie/excel/getstarted.htm best wishes -- Bernard V Liengme www.stfx.ca/people/bliengme remove caps from email wrote in message oups.com... I have a workbook which has a list of path and filenames for workbooks. I want to extract from each of these the workbook name only. e.g From this path I want to extract only the name "Lucky Draw.xls" C:\Documents and Settings\Bbrian\My Documents\My Documents\Brian docs\Clay\Clay WorkBooks\Workbooks\Lucky Draw.xls Each of the path names are vaiable lengths and a variable number of sub direcotries |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
LINKEDRANGE function - a complement to the PULL function (for getting values from a closed workbook) | Excel Worksheet Functions | |||
Extracting Data from one workbook to another | New Users to Excel | |||
excel exits unexpectedly or hangs the second time I open workbook | Excel Discussion (Misc queries) | |||
Repost:Automatically inserting a row in external workbook | Excel Discussion (Misc queries) | |||
How to hyperlink from a workbook to sheets in another workbook? | Excel Worksheet Functions |