【書式】
FileSystemObject.GetBaseName(path)
ファイルのベース名を返します。ベース名とは、ファイル名のうち拡張子(ピリオドを含む)を除く文字列です。
引数pathにはファイル名を指定します。
ファイル名のうち拡張子だけを取得するにはGetExtensionNameプロパティを使います。
Sub test13()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''Book1を返します
MsgBox FSO.GetBaseName("C:\Work\Book1.xlsx")
Set FSO = Nothing
End Sub