HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > フォルダ内の特定のファイルの拡張子を変換する

フォルダ内の特定のファイルの拡張子を変換する|Excel VBA

ファイル操作関連のテクニック

フォルダ内の特定のファイルの拡張子を変換する

(Excel 2000/2002/2003/2007/2010)

次のマクロは、「C:\Data」フォルダ内の拡張子「.txt」のファイルの拡張子を、「.html」に変換します。

Sub Sample()
    Const OLD_EXTENSION As String = ".txt"
    Const NEW_EXTENSION As String = ".html"
    Const SAVE_DIR As String = "C:\Data\"
    Dim OldFName As String
    Dim NewFName As String

    OldFName = Dir(SAVE_DIR & "*" & OLD_EXTENSION)
    
    Do While Len(OldFName) <> 0
        OldFName = SAVE_DIR & OldFName
        NewFName = _
            Left(OldFName, Len(OldFName) - Len(OLD_EXTENSION)) & NEW_EXTENSION
        
        FileCopy OldFName, NewFName
        Kill OldFName
        OldFName = Dir()
    Loop
End Sub