VBA InStrRev関数で拡張子を取得

InStrRev関数で拡張子を取得

Sub test()

　　' InStrRev関数で拡張子を取得

    Dim String1, String2 As String
    Dim a, b As Long
    
    ' 検索対象文字列
    String1 = "Power.Query.Excel.xlsl"
    
    ' 検索文字列
    String2 = "."
     
   a = InStrRev(String1, String2)  ' 「.」の位置を取得
   b = Len(String1)
   
    Debug.Print "拡張子は：「" & Mid(String1, a + 1, b - a) & "」です。"

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA 文字列の操作　InStr関数』

『VBA　WorksheetFunctionでVlookup関数を利用』

『VBA　WorksheetFunctionでデータ集計』

『Excel VBA基礎入門』

『VBA 主要VBA関数』