【書式】
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