概要：なぜ「パスの特定」が実務のボトルネックになるのか
日々の業務において、Excel、Word、PowerPointを同時に立ち上げ、複数のプロジェクトを並行して進めることは珍しくありません。しかし、作業が佳境に入れば入るほど、「今開いているこのExcelファイル、結局どのフォルダのどこにあるんだっけ？」という事態に陥ることがあります。
Windowsのエクスプローラーで探そうとしても、タスクバーのアイコンにカーソルを合わせるだけでは、ファイル名のみが表示され、詳細なパスまでは確認できません。プロパティを一つ一つ開くのも、ファイル数が多い場合には非効率極まりない作業です。
本稿では、VBA（Visual Basic for Applications）を用いて、現在アクティブな、あるいは開いているすべてのOfficeアプリケーションのファイルパスを一瞬でリストアップする手法を解説します。このスキルを習得することで、ファイル管理のストレスから解放され、マクロ開発のデバッグやファイル整理の時間を大幅に短縮できるでしょう。
詳細解説：Officeオブジェクトの構造を理解する
VBAで開いているファイルの情報を取得するためには、各Officeアプリケーションが持つオブジェクトモデルを理解する必要があります。Excel、Word、PowerPointはそれぞれ独立したアプリケーションですが、VBAから操作する際には「Applicationオブジェクト」を介してその配下の「Workbooks」「Documents」「Presentations」コレクションにアクセスします。
ここで重要なのは、それぞれのアプリケーションが持つ「FullName」プロパティです。これこそが、ディスク上のフルパスを保持している値です。
しかし、単にパスを取得するだけでは不十分なケースもあります。例えば、まだ一度も保存されていない「Book1」のような未保存ファイルの場合、FullNameにはパスが含まれず、ファイル名のみが表示されます。本稿で紹介するコードでは、こうしたエッジケースを考慮し、実務でそのまま使える堅牢なロジックを構築します。
サンプルコード：全開中ファイルのパスをシートに書き出す
以下のコードは、Excel、Word、PowerPointのすべてを横断し、現在開いているファイルのパスをアクティブなシートに書き出すツールです。
Option Explicit
Sub GetOpenedOfficeFilePaths()
Dim xlApp As Object
Dim wdApp As Object
Dim ppApp As Object
Dim wb As Object, doc As Object, pres As Object
Dim r As Long
r = 1
Cells.Clear
Cells(1, 1).Value = "アプリケーション"
Cells(1, 2).Value = "ファイル名"
Cells(1, 3).Value = "フルパス"
' Excelの取得
For Each wb In Application.Workbooks
r = r + 1
Cells(r, 1).Value = "Excel"
Cells(r, 2).Value = wb.Name
Cells(r, 3).Value = wb.FullName
Next wb
' Wordの取得
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Not wdApp Is Nothing Then
For Each doc In wdApp.Documents
r = r + 1
Cells(r, 1).Value = "Word"
Cells(r, 2).Value = doc.Name
Cells(r, 3).Value = doc.FullName
Next doc
End If
On Error GoTo 0
' PowerPointの取得
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
If Not ppApp Is Nothing Then
For Each pres In ppApp.Presentations
r = r + 1
Cells(r, 1).Value = "PowerPoint"
Cells(r, 2).Value = pres.Name
Cells(r, 3).Value = pres.FullName
Next pres
End If
On Error GoTo 0
Columns("A:C").AutoFit
MsgBox "全ファイルのパス取得が完了しました。", vbInformation
End Sub
このコードのポイントは「GetObject」関数を使用している点です。ExcelのVBAから他のOfficeアプリを操作する場合、既に開いているインスタンスを正しくキャッチすることが重要です。`On Error Resume Next`を適切に配置することで、WordやPowerPointが閉じていてもエラーで止まらないように設計しています。
実務アドバイス：パス取得の自動化と活用シーン
この技術を単なる「確認用」にとどめておくのはもったいない話です。実務においては、以下のような応用が考えられます。
1. **自動バックアップの生成**: 開いている全ファイルのパスを取得し、それらを一括で指定フォルダにコピーする「退避マクロ」を作成できます。急なPCの再起動やフリーズに備えるための保険として非常に有効です。
2. **リンク切れのチェック**: 特定のフォルダ配下にあるはずのファイルが正しく開かれているか、パスをリスト化して整合性を検証する管理ツールとして利用できます。
3. **作業ログの作成**: 誰がどのファイルを開いて作業していたかを記録する際に、このコードを「終了時マクロ」に仕込んでおけば、自動的な作業ログ出力機能が実装可能です。
また、パスが長い場合には、`Hyperlink`関数と組み合わせることで、リスト上のパスをクリックするだけで即座にそのファイルを開くことができる「インデックスシート」を自動生成させることも可能です。プロフェッショナルなVBA開発者は、コードを書くだけでなく、こうした「管理の仕組み」をいかに短時間で構築するかを常に考えています。
まとめ：道具を使いこなすプロフェッショナルへ
Excel VBAは単なる集計ツールではありません。OSとアプリケーション、そしてファイルシステムを統合的に管理するための強力な「OS拡張キット」です。今回紹介した「開いているファイルのパスを取得する」という、一見地味な機能であっても、それを自動化し、仕組み化することで、あなたの業務時間は劇的に削減されます。
PC内の散らばったファイルを追いかける作業から解放され、よりクリエイティブな業務に時間を割く。それこそが、VBAを学ぶ真の意義であると私は信じています。
ぜひ、このコードをあなたのパーソナルマクロブック（PERSONAL.xlsb）に追加し、いつでもワンクリックでファイルの所在を確認できる環境を整えてください。一度構築してしまえば、一生モノの業務効率化資産となるはずです。
もしコードの挙動をカスタマイズしたい場合や、特定フォルダ配下のファイルのみを抽出したいといった要望があれば、またいつでもご相談ください。技術を磨き、日々のストレスを自動化で打ち破っていきましょう。あなたの更なるスキルアップを期待しています。
