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

获取文件路径部分的最简单方法是使用Scripting Runtime的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)

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

2 个答案: