禁止・非推奨文字置換 

フォルダの禁止文字をブランクに置換する version1.0

大型処理に組み込むとよい。
禁止文字と非推奨文字で配列を分けた方が改修に優しい。
ファイル禁止文字としても使用できる。

'フォルダの禁止文字を削除する
Function replaceTabooStrWithDirName(dirName As String)
    Dim tabooStringArray As Variant: tabooStringArray = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    For Each taboo In tabooStringArray
        dirName = Replace(dirName, taboo, "")
    Next
    replaceTabooStrWithDirName = dirName
End Function

Excelシートの禁止文字をブランクに置換する version1.0

禁止文字は大文字・小文字不可な点に注意。

'Excelシートの禁止文字を削除する
Function replaceTabooStrWithSheetName(sheetName As String)
    Dim tabooStringArray As Variant: tabooStringArray = Array(":", ":", "\", "¥", "?", "?", "[", "[", "]", "]", "/", "/", "*", "*")
    For Each taboo In tabooStringArray
        sheetName = Replace(sheetName, taboo, "")
    Next
    replaceTabooStrWithSheetName = sheetName
End Function


コメント