【VBAリファレンス】Excel VBAでファイル名を自在に操る｜実務で差がつく文字列操作の完全攻略ガイド

ExcelVBA

2026.08.24

概要

Excel VBAを用いた業務自動化において、最も頻繁に発生する作業の一つが「ファイルパスからの文字列操作」です。システムから出力された大量のファイル名から特定の情報を抽出したり、別フォルダへ移動させるために拡張子を書き換えたりと、ファイル名を加工するスキルはVBAエンジニアにとって必須の教養と言えます。
本稿では、単なる文字列置換にとどまらず、FileSystemObject（FSO）を活用した堅牢なファイル名操作術から、正規表現を用いた高度な抽出テクニックまで、ベテラン講師の視点で徹底解説します。この記事を読み終える頃には、どんなに複雑なファイル命名規則に対しても、一瞬で対応できる柔軟なコードが書けるようになっているはずです。

詳細解説

VBAでファイル名を加工する際、多くの初心者が躓くのが「どこまでがパスで、どこからがファイル名か」という境界線の判定です。まずは、標準的な関数である`InStrRev`を用いた手法と、よりオブジェクト指向的な`FileSystemObject`を用いた手法の使い分けを理解しましょう。

1. 標準関数によるパス分解
パス文字列に対して`InStrRev`関数を使用し、パスの区切り文字である「\」が最後に出現する位置を探します。これにより、フォルダパスとファイル名を分離することが可能です。
・`Left(filePath, InStrRev(filePath, “\”))`：フォルダパスの取得
・`Mid(filePath, InStrRev(filePath, “\”) + 1)`：ファイル名の取得
・`Mid(fileName, 1, InStrRev(fileName, “.”) – 1)`：拡張子を除いたファイル名の取得

2. FileSystemObjectの活用
Microsoft Scripting Runtimeを参照設定することで、より直感的に操作が可能になります。`GetFileName`や`GetExtensionName`といったメソッドを利用すれば、OSの仕様に基づいた安全な抽出が可能です。特に、ネットワークパスや特殊なファイル命名規則において、標準関数よりもバグが起きにくいという利点があります。

3. 文字列置換と正規表現
ファイル名の一部を置換する際には`Replace`関数が便利ですが、例えば「日付部分だけを抽出したい」「特定の連番を除去したい」といった要件には、VBAの`VBScript.RegExp`オブジェクトが最強の武器となります。パターンマッチングを用いることで、複雑な条件分岐を書くことなく、簡潔に目的の文字列を抽出できます。

サンプルコード

以下に、ファイルパスから「ディレクトリ」「ファイル名」「拡張子なしの名前」「拡張子」を個別に取得し、さらに一部を置換する実務的なサンプルコードを提示します。


Option Explicit

Sub ProcessFileNameExample()
    ' 参照設定不要で利用可能なFileSystemObjectの生成
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim fullPath As String
    fullPath = "C:\Users\Documents\Reports\2023_Monthly_Sales_Report.xlsx"
    
    ' 1. 基本情報の取得
    Dim folderPath As String
    Dim fileName As String
    Dim baseName As String
    Dim extName As String
    
    folderPath = fso.GetParentFolderName(fullPath)
    fileName = fso.GetFileName(fullPath)
    baseName = fso.GetBaseName(fullPath)
    extName = fso.GetExtensionName(fullPath)
    
    Debug.Print "フォルダパス: " & folderPath
    Debug.Print "ファイル名: " & fileName
    Debug.Print "拡張子なし: " & baseName
    Debug.Print "拡張子: " & extName
    
    ' 2. 正規表現を用いた高度な抽出（日付部分の抜き出しなど）
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "\d{4}" ' 4桁の数字を抽出
    
    If regEx.Test(baseName) Then
        Debug.Print "ファイル名に含まれる年: " & regEx.Execute(baseName)(0)
    End If
    
    ' 3. ファイル名の加工（置換）
    Dim newName As String
    newName = Replace(baseName, "Monthly", "Annual") & "_Final." & extName
    Debug.Print "加工後のファイル名: " & newName
    
    Set fso = Nothing
    Set regEx = Nothing
End Sub

実務アドバイス

現場で長くVBAを運用していく上で、特に意識していただきたいポイントは「エラーハンドリングの徹底」と「OS依存の考慮」です。

・パスの長さ制限：Windowsのファイルパス制限（MAX_PATH：260文字）を考慮してください。特にDeepな階層にあるファイル名を加工して保存しようとする際、この制限に抵触してエラーとなるケースが多発します。
・不正文字の排除：ユーザーが入力したファイル名や、外部システムから取得した名前には、Windowsでファイル名に使用できない文字（\ / : * ? ” < > |）が含まれている可能性があります。これらを加工後のファイル名に含めないよう、置換関数を用いてあらかじめクレンジングする関数を作成しておくことを強く推奨します。
・可読性の保持：`InStrRev`をネストさせると、コードが極めて読みづらくなります。「何をしているか」を一行で書こうとせず、一度変数に格納してから処理するよう心がけてください。可読性は将来の自分へのプレゼントです。

また、大規模なファイル処理を行う場合は、必ず「プレビュー用ログ」を出力する仕組みを組み込んでください。いきなり`Name`ステートメントでファイル名を変更するのではなく、イミディエイトウィンドウや別シートに「変更前→変更後」のリストを出力し、目視確認ができるプロセスを挟むだけで、事故のリスクは劇的に下がります。

まとめ

ファイル名の加工は、VBAにおける「データ加工の入り口」です。ここを正確かつ柔軟に行えるようになれば、その先に続く「ファイルの移動」「リネーム」「内容の読み込み」といった高度な自動化処理が非常にスムーズになります。

今回紹介した`FileSystemObject`によるオブジェクト指向的なアプローチと、`RegExp`によるパターンマッチングの組み合わせは、まさにプロフェッショナルなVBA開発の定石です。これらを習得し、日々の業務効率を飛躍的に向上させてください。VBAは単なる作業自動化のツールではなく、あなたの思考を形にするエンジニアリングの手段です。ぜひ、今日の業務からこれらのテクニックを実践し、洗練されたコードを書き続けてください。