見出し画像

拡張子変更(vbaツール)

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


【使い方】

1.B2セルに変更したい拡張子を記載

2.B3セルに変更後の拡張子を記載

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

3.拡張子変更ボタンをクリック

4.拡張子が一斉に変更されます

【コード】

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

【ダウンロード】

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

ここから先は

0字 / 1ファイル

¥ 500

この記事が参加している募集

よろしければ、サポートお願いします! 頂いたサポートは、noteの運営費や新たなコード作成の開発費に充てさせていただきます。