【VBAリファレンス】Excel VBAでファイル名を自在に操る｜実務で差がつく文字列操作とパス解析の極意

ExcelVBA

2026.08.212026.08.22

概要

Excel VBAを用いた業務自動化において、ファイル操作は避けて通れない領域です。特に「フォルダ内のファイル一覧を取得し、そのファイル名を加工して処理する」というタスクは、データクレンジングやファイル整理の現場で毎日発生します。しかし、単にファイル名を取得するだけでは不十分です。拡張子を取り除いたり、特定の規則に従ってリネームしたり、パスからディレクトリ名だけを抽出したりといった「文字列操作」のテクニックを習得することで、VBAの応用範囲は飛躍的に広がります。本記事では、Dir関数やFileSystemObject(FSO)を駆使し、ファイル名を自由自在に加工するための実践的なテクニックを徹底解説します。

詳細解説：ファイル名加工の基本概念

VBAでファイル名を扱う際、避けては通れないのが「パス文字列」の分解です。フルパス（例: C:\Users\Documents\Report_2023.xlsx）を扱う場合、以下の4つの要素に分解・抽出する技術が必要です。

1. フォルダパス（親ディレクトリ）
2. ファイル名（拡張子付き）
3. ファイル名本体（拡張子なし）
4. 拡張子

これらを処理する方法として、伝統的な「文字列操作関数（InStr, InStrRev, Left, Mid, Right）」を使う方法と、現代的な「FileSystemObject(FSO)」を使う方法の2通りがあります。

文字列操作関数を用いる場合、InStrRev関数が鍵となります。パス文字列の右側から「\」を探すことで、フォルダパスとファイル名の境界を特定します。一方、FSOを使うと、GetParentFolderName、GetFileName、GetBaseNameといった専用のメソッドが用意されており、コードの可読性が格段に向上します。

特に重要なのが「拡張子の分離」です。ファイル名の末尾からドットの位置を探すのが基本ですが、ファイル名の中に複数のドットが含まれるケース（例: Project.v2.Final.xlsx）を考慮しなければなりません。このようなエッジケースに対応できるかどうかが、プロのコードかどうかの分かれ道となります。

サンプルコード：FSOを用いた高度なファイル名処理

以下に、フォルダ内の全ファイル名を取得し、そこから情報を抽出・加工してイミディエイトウィンドウに出力するプロフェッショナルなコード例を示します。


Sub AnalyzeFileNames()
    Dim fso As Object
    Dim folderPath As String
    Dim targetFolder As Object
    Dim fileItem As Object
    
    ' 処理対象フォルダの設定
    folderPath = ThisWorkbook.Path & "\TestData"
    
    ' FSOの生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' フォルダが存在するか確認
    If Not fso.FolderExists(folderPath) Then
        MsgBox "指定されたフォルダが見つかりません。", vbCritical
        Exit Sub
    End If
    
    Set targetFolder = fso.GetFolder(folderPath)
    
    ' 各ファイルに対する処理
    For Each fileItem In targetFolder.Files
        Dim fullPath As String
        Dim fileName As String
        Dim baseName As String
        Dim ext As String
        
        fullPath = fileItem.Path
        fileName = fso.GetFileName(fullPath)
        baseName = fso.GetBaseName(fullPath) ' 拡張子なしの名称
        ext = fso.GetExtensionName(fullPath)  ' 拡張子のみ
        
        ' 加工例：ファイル名に現在の日付を付与して新しい名前にする
        Dim newFileName As String
        newFileName = baseName & "_" & Format(Date, "yyyymmdd") & "." & ext
        
        ' 結果の出力
        Debug.Print "---"
        Debug.Print "元ファイル名: " & fileName
        Debug.Print "本体名: " & baseName
        Debug.Print "拡張子: " & ext
        Debug.Print "新ファイル名案: " & newFileName
    Next fileItem
    
    Set fso = Nothing
End Sub

実務アドバイス：トラブルを避けるための設計思想

ファイル名の加工において、実務で最も注意すべきは「文字コード」と「禁則文字」です。

第一に、OSやファイルシステムはファイル名に使える文字を制限しています（\ / : * ? ” < > |）。加工後のファイル名にこれらの文字が含まれてしまうと、リネーム処理でエラーが発生します。加工の前後には、これらの文字を置換する関数を自作しておくことを強く推奨します。

第二に、拡張子を扱う際の注意点です。最近のWindows設定では「登録されている拡張子は表示しない」設定になっているユーザーが多いですが、VBAで処理する際は常にフルネーム（拡張子付き）で扱うのが鉄則です。また、FSOのGetExtensionNameは、ドットを含まない拡張子を返します。これを利用して条件分岐を行う際、大文字・小文字を区別しない（vbTextCompare）比較を行うのが定石です。

第三に、大量ファイル処理時のパフォーマンスです。Dir関数を使う場合は、一度のループで処理を完了させることが重要です。何度もパスを再計算するのではなく、最初に取得した情報を配列やコレクションに格納し、その後加工処理を行うことで、メモリ効率と速度を最適化できます。

また、リネームを行う際は「Nameステートメント」を使用しますが、同名のファイルが既に存在する場合にエラーが発生します。必ず事前に「Dir関数で存在チェックを行う」あるいは「FSO.FileExistsで確認する」という防衛的なプログラミング（Defensive Programming）を組み込んでください。これにより、実行時エラーで作業が中断されるリスクを最小限に抑えることができます。

まとめ

ファイル名の加工は、VBAによる自動化の入り口であり、同時に奥が深いテーマです。単なる文字列の切り出しだけでなく、将来的な拡張性やエラーハンドリングを考慮した設計を行うことで、プログラムの堅牢性は劇的に向上します。

本記事で紹介したFileSystemObjectの活用は、コードの可読性を高めるための第一歩です。まずは、現在手動で行っているファイル名の置換や整理作業をVBAに置き換えるところから始めてみてください。一度ロジックを組んでしまえば、それは一生使える強力な武器となります。Excel VBAは、地味な作業を魔法のように短縮するために存在します。ぜひ、今日からファイル名の加工テクニックをマスターし、より生産的な業務環境を手に入れてください。