拡張子変更(vbaツール)

　エクセルで事務を楽にするプログラマーmoimoiです。
　今回は、フォルダに入っているファイルの拡張子を書き換えるコードをご紹介します。
　テキストをcsvに変更して加工をしたり、pdfを一括でワードに変換して文字起こしを試みたりすることができます。

【使い方】

１．B2セルに変更したい拡張子を記載

２．B3セルに変更後の拡張子を記載

３．ツールと一緒のフォルダに変更したいファイルを保存

３．拡張子変更ボタンをクリック

４．拡張子が一斉に変更されます

【コード】

Sub 拡張子()
Dim SAVE_DIR As String
Dim OldFName As String
Dim NewFName As String
Dim OLD_EXTENSION As String
OLD_EXTENSION = Range("B2")
Dim NEW_EXTENSION As String
NEW_EXTENSION = Range("B3")

SAVE_DIR = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
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

【ダウンロード】

すぐに使いたい方は購入後ダウンロードをどうぞ