B bruggied New member Local time Today, 03:36 Joined May 11, 2012 Messages 7 May 15, 2012 #1 hello, my customerfile is C:\david\axor\01-mavo2409.xlsx with this code "file = Mid(CustomerFile, InStrRev(CustomerFile, "\") + 1)" i receive this 01-mavo2409.xlsx i want to remove the .xlsx extention how can i do it
hello, my customerfile is C:\david\axor\01-mavo2409.xlsx with this code "file = Mid(CustomerFile, InStrRev(CustomerFile, "\") + 1)" i receive this 01-mavo2409.xlsx i want to remove the .xlsx extention how can i do it
B bruggied New member Local time Today, 03:36 Joined May 11, 2012 Messages 7 May 15, 2012 #2 file = Mid(CustomerFile, InStrRev(CustomerFile, "\") + 1) WrksheetName = Left(Mid(CustomerFile, InStrRev(CustomerFile, "\") + 1), (InStrRev((file), ".") - 1))
file = Mid(CustomerFile, InStrRev(CustomerFile, "\") + 1) WrksheetName = Left(Mid(CustomerFile, InStrRev(CustomerFile, "\") + 1), (InStrRev((file), ".") - 1))