銀河鉄道

【VBA】文字列から、拡張子を取得して文字列として返す

サムネイル
文字列から拡張子を取得する

文字列の中の拡張子を、文字列で返す

存在しなければマクロ中止

Public Function GetExtension(ByVal str As String) As String
    
    Dim p As Long: p = GetCharPos(str, ".")
    
    If p = 0 Then
        MsgBox "拡張子が判定できません" & vbCrLf & vbCrLf & _
        "【指定された文字列】" & vbCrLf & _
        "「" & str & "]", vbCritical, "マクロを中止します"
        Call AllEnd
    End If
    
    GetExtension = Mid(str, p)
End Function

文字列の、「.」以降の文字を返す

関連記事

著者

author
月うさぎ

編集後記:
この記事の内容がベストではないかもしれません。

記事一覧