在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)