【VBAリファレンス】大量ファイルを一括変換！Excel VBAで実現するファイル拡張子変更の自動化テクニック

ExcelVBA

2026.09.14

概要：なぜVBAで拡張子変換を行うのか

日々の業務において、システムからエクスポートされた大量のファイルや、古い形式で保存されたドキュメントの拡張子を一括で変更しなければならない場面は少なくありません。例えば、テキスト形式の「.txt」ファイルを「.csv」に変更してExcelで読み込めるようにしたり、画像データの拡張子を一括置換したりする作業です。

これを手動で行う場合、ファイルの数が増えるほど作業時間は指数関数的に増大し、ヒューマンエラーのリスクも高まります。Excel VBAを活用すれば、指定したフォルダ内のファイルをループ処理し、わずか数秒で数百・数千のファイル名を書き換えることが可能です。本記事では、ファイルシステムを操作するための「FileSystemObject」を用いた、安全かつ高速な拡張子変換手法を、プロフェッショナルな視点から詳細に解説します。

詳細解説：FileSystemObjectの活用と注意点

VBAでファイル操作を行う際、最も推奨されるライブラリが「Microsoft Scripting Runtime」に含まれる「FileSystemObject（FSO）」です。標準の「Nameステートメント」だけでは、ファイルパスの取得やフォルダの走査に手間がかかりますが、FSOを使用することで、より直感的かつ堅牢なコードを記述できます。

拡張子を変更する際の論理的な流れは以下の通りです。

1. フォルダ内のファイル一覧を取得する。
2. 各ファイルに対して、拡張子が対象のものか判定する。
3. ファイル名を再構築し、Nameプロパティ（またはMoveメソッド）を用いてリネームを行う。

ここで重要なのは、「拡張子のみを書き換える」という点です。ファイル名全体を置換しようとすると、誤ってファイル名の一部まで書き換えてしまうリスクがあります。FSOの「GetExtensionName」や「GetBaseName」メソッドを駆使し、安全にパスを操作することが、バグを防ぐための鉄則です。

サンプルコード：安全かつ効率的な拡張子変換プログラム

以下のサンプルコードは、指定したフォルダ内の特定の拡張子（例：.txt）を、別の拡張子（例：.csv）へ一括変換する汎用的なプロシージャです。


Option Explicit

' 参照設定: Microsoft Scripting Runtime を有効にすることを推奨
Public Sub BulkConvertFileExtensions()
    Dim fso As Object
    Dim targetFolder As Object
    Dim fileItem As Object
    Dim folderPath As String
    Dim oldExt As String
    Dim newExt As String
    Dim newFilePath As String
    
    ' 変換対象のフォルダパス
    folderPath = "C:\SampleFolder\"
    oldExt = "txt"
    newExt = "csv"
    
    ' FSOのインスタンス生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' フォルダの存在確認
    If Not fso.FolderExists(folderPath) Then
        MsgBox "指定されたフォルダが見つかりません。", vbCritical
        Exit Sub
    End If
    
    Set targetFolder = fso.GetFolder(folderPath)
    
    ' フォルダ内のファイルをループ処理
    On Error Resume Next
    For Each fileItem In targetFolder.Files
        ' 拡張子が一致するか判定（大文字小文字を区別しない）
        If LCase(fso.GetExtensionName(fileItem.Path)) = LCase(oldExt) Then
            ' 新しいファイルパスの作成
            newFilePath = fso.GetParentFolderName(fileItem.Path) & "\" & _
                          fso.GetBaseName(fileItem.Path) & "." & newExt
            
            ' ファイル名の変更
            Name fileItem.Path As newFilePath
            
            ' エラーハンドリング
            If Err.Number <> 0 Then
                Debug.Print "変換失敗: " & fileItem.Name & " - " & Err.Description
                Err.Clear
            End If
        End If
    Next fileItem
    On Error GoTo 0
    
    MsgBox "拡張子の変換処理が完了しました。", vbInformation
    
    ' オブジェクトの解放
    Set fileItem = Nothing
    Set targetFolder = Nothing
    Set fso = Nothing
End Sub

実務アドバイス：プロとして意識すべき「堅牢性」

コードを実務に導入する際、単に動くだけでは不十分です。以下のポイントを意識することで、より信頼性の高いツールへと昇華させることができます。

1. エラーハンドリングの徹底：
ファイルが現在別のプロセスで使用中であったり、書き込み権限がない場合、コードはエラーで停止します。「On Error Resume Next」を使用しつつ、エラー発生時にはログを残すか、イミディエイトウィンドウに結果を出力する工夫が必要です。

2. バックアップの検討：
ファイル操作は不可逆的な処理になりがちです。重要なデータを扱う場合は、処理を実行する前にVBA側で自動的にバックアップフォルダを作成し、ファイルをコピーしてからリネームを行うという二段構えのフローを推奨します。

3. ユーザーインターフェースの改善：
毎回コード内のパスを書き換えるのは非効率的です。「Application.FileDialog(msoFileDialogFolderPicker)」を使用することで、ユーザーがGUI上でフォルダを選択できるように改造しましょう。これにより、非エンジニアの同僚にも使いやすいツールとなります。

4. 大文字・小文字の取り扱い：
Windows環境では通常拡張子の大文字・小文字は区別されませんが、コード内では「LCase」関数を使用して厳密に比較することで、誤動作を確実に防ぐことができます。

まとめ：自動化による業務効率化の第一歩

フォルダ内のファイル拡張子を一括変換するという作業は、一見単純な繰り返し作業ですが、これをVBAで自動化することは「業務プロセスをプログラムで制御する」というDXの第一歩です。一度仕組みを作ってしまえば、数時間かかる作業が数秒で終わるようになり、浮いた時間はよりクリエイティブな分析や戦略立案に充てることができます。

今回紹介したFileSystemObjectの活用法は、拡張子の変換だけでなく、ファイルの移動、コピー、削除、さらにはファイル属性の取得まで、ファイル管理業務全般に応用が可能です。ぜひこのコードをベースに、ご自身の業務環境に最適なツールへとカスタマイズし、手作業の煩雑さから解放される快感を体験してください。VBAの可能性を最大限に引き出し、より生産性の高いオフィスワークを実現しましょう。