要获取文件名和扩展名，可以使用VBA语句和FSO对象模型两种方式。

1 使用VBA语句拆分文件名和扩展名

Function SplitFilename(ByVal sFileName As String) As Variant

Dim aRet(1 To 3) As String

Dim i As Integer

i = InStrRev(sFileName, "\")

aRet(1) = Left(sFileName, i)

sFileName = Mid(sFileName, i + 1)

i = InStrRev(sFileName, ".")

aRet(2) = Left(sFileName, i - 1)

aRet(3) = Mid(sFileName, i + 1)

SplitFilename = aRet

End Function

Sub 分离文件名()

Dim sFileName As String, aRet As Variant

sFileName = Application.GetOpenFilename(, , "选择源文件")

If sFileName = "False" Then Exit Sub '用户选择"取消"则退出程序

aRet = SplitFilename(sFileName)

MsgBox "路径：" & aRet(1) & vbNewLine & _

"文件名：" & aRet(2) & vbNewLine & _

"扩展名：" & aRet(3)

End Sub

运行上述代码后，按照打开的对话框选择目标文件后，即可显示下面的信息框：

2 使用FSO对象模型拆分文件名和扩展名

Sub FSO分离文件名()

Dim fso As New FileSystemObject, sFileName As String

Dim str1 As String

sFileName = Application.GetOpenFilename(, , "选择源文件")

If sFileName = "False" Then Exit Sub

MsgBox "路径：" & fso.GetParentFolderName(sFileName) & vbNewLine & _

"文件名：" & fso.GetBaseName(sFileName) & vbNewLine & _

"扩展名：" & fso.GetExtensionName(sFileName)

Set fso = Nothing

End Sub

-End-