つらつら Excel VBA

私の備忘録です。

Excel VBA ファイルパスからファイル名を取り出す案

'ファイルパス、ファイル名+拡張子の状態からファイル名だけを取り出す処理。
'[\]でSplitをかけて最後を取得、[.]でSplitをかけて最初を取得すればOK
Function getFileName(file_path) As String

    Dim temp As String
    Dim tmp_array2 As Variant, tmp_array1 As Variant

    tmp_array1 = Split(file_path, "\")

    temp = tmp_array1(UBound(tmp_array1))

    If temp = "" Then Exit Function

    tmp_array2 = Split(temp, ".")

    temp = tmp_array2(LBound(tmp_array2))

    getFileName = temp '戻り値

End Function