【VBA】文字列から、拡張子を取得して文字列として返す
記事更新日:2022-11-01

文字列の中の拡張子を、文字列で返す
存在しなければマクロ中止
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

文字列の、「.」以降の文字を返す
関連記事
2022-11-01
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
ブックを開く 【VBA】ブックを開く|OpenBook -
オブジェクト生成のCreateObjectまとめ 【VBA】dictionary・テキストファイル・outlook・Access用にオブジェクトを生成する|CreateObject -
シートの再計算 【VBA】指定のシートを再計算する|Calculate -
クラスでForEachを使いたい 【VBA】クラスで通常のCollection機能を利用する準備|ForEachが使えない -
ブックを名前を付けて保存 【VBA】名前を付けて保存|SaveAs -
セル範囲をリサイズして配列を貼り付け 【VBA】二次元配列をシートに貼り付け【範囲をリサイズする】