在Excel中提取文件名和擴展名

Question

我有一個.xls文件，並且想要使用VBA宏從單元格中提取文件名和擴展名。例如：

c:\Documents\One.psd 

我需要在單獨的變量單獨的變量和PSD的名稱。

問候

薩蒂什

Answer 1

考慮：

Sub qwerty() 
    s = Range("A1").Value 
    ary = Split(s, "\") 
    bry = Split(ary(UBound(ary)), ".") 
    fname = bry(0) 
    ext = bry(1) 
    MsgBox fname & vbCrLf & ext 
End Sub 

Answer 2

得到的文件路徑部分最簡單的方法是使用腳本運行的FileSystemObject的：

Dim fso As New Scripting.FileSystemObject 
Dim filepath As String 

filepath = "C:\Somewhere\foo.bar" 

'Outputs "C:\Somewhere" 
Debug.Print fso.GetParentFolderName(filepath) 
'Outputs "foo.bar" 
Debug.Print fso.GetFileName(filepath) 
'Outputs "foo" 
Debug.Print fso.GetBaseName(filepath) 
'Outputs "bar" 
Debug.Print fso.GetExtensionName(filepath)