ファイル名に使えない文字を取り除く処理をパーツ化する【ExcelVBA】

ユーザーにファイル名を入力させるなど、ユーザーライクなコードを作る場合があります。
その際に、面倒なのは禁則文字を入力された場合です。
禁則文字が入力された場合は、強制的にReplace関数で置換してしまいます。

ファイル名に使えない文字を取り除く処理のコード

'■ファイル名に使えない文字を除去して、正しいファイル名で返す
Public Function Call_FileNameNGReplace(sFileName As String) As String
    Dim tempStr As String
    
    tmp = sFileName
    tmp = Replace(tmp, "\", "")
    tmp = Replace(tmp, "/", "")
    tmp = Replace(tmp, ":", "")
    tmp = Replace(tmp, "*", "")
    tmp = Replace(tmp, "?", "")
    tmp = Replace(tmp, """", "")
    tmp = Replace(tmp, "<", "")
    tmp = Replace(tmp, ">", "")
    tmp = Replace(tmp, "|", "")
    tmp = Replace(tmp, "[", "")
    tmp = Replace(tmp, "]", "")

    Call_FileNameNGReplace = tmp
End Function

実際の使い方

Public Sub sample()
    str = Call_FileNameNGReplace("FILE<01>.xlsx")
    FILE<01>.xlsx→FILE01.xlsx
End Sub

関連記事

• ファイル名と拡張子を分けて取得する【FileSystemObject】
• フォルダ内のファイル名を一括で変更処理するマクロ
• フォルダ内指定条件のファイル名をフルパスで配列として取得する