取得したファイル名をいろいろ加工する｜Excel VBA

サンプルマクロは、取得したファイル名からファイル名、パス、拡張子を除いたファイル名を取得します。

Sub Sample()

    Dim myFileFullName As String
    Dim myFilePath As String
    Dim myFileName As String
    Dim myFileNameCut As String
    
    'ファイル名はGetOpenFileNameメソッドで取得しています
    myFileFullName = Application.GetOpenFilename
    If myFileFullName = "False" Then Exit Sub
    myFileName = Dir(myFileFullName)
    '最後に「\」つきのパス
    myFilePath = Left(myFileFullName _
        , Len(myFileFullName) - Len(myFileName))
    If InStr(myFileName, ".") = 0 Then
        myFileNameCut = myFileName
    Else
        myFileNameCut = Left(myFileName _
            , InStr(myFileName, ".") - 1)
    End If
    
    MsgBox "選択されたファイル：" & myFileFullName _
        & vbCr & "ファイル名：" & myFileName _
        & vbCr & "パス：" & myFilePath _
        & vbCr & "拡張子を除いたファイル名：" & myFileNameCut
        '95ではvbCrに替えてChr(13)を使用
    
End Sub