Excelファイルを開かさずにシート名を取得する高度な手法
Excel VBAを用いた自動化業務において、「特定のフォルダ内にある多数のExcelファイルから、中身を開かずに情報を抽出したい」というニーズは非常に頻繁に発生します。特に、ブックを開く処理はメモリ消費が激しく、ファイル数が多い場合には実行速度が大幅に低下する原因となります。
本稿では、ADO（ActiveX Data Objects）を利用して、対象のExcelファイルを「データベース」として扱い、その内部構造である「シート名」を高速かつ効率的に取得する手法について詳細に解説します。
ADOを利用した技術的背景とメリット
通常、Excelファイルの中身を参照するには「Workbooks.Open」メソッドを使用しますが、これには以下のデメリットがあります。
1. パフォーマンスの低下：ファイルを開く・閉じるというプロセスはOSのリソースを多大に消費します。
2. 画面のちらつき：Application.ScreenUpdatingを制御しても、バックグラウンドでの描画負荷はゼロではありません。
3. イベントの干渉：対象ファイルにWorkbook_Openなどのイベントが実装されている場合、意図しない挙動を引き起こすリスクがあります。
一方で、ADO（Microsoft ActiveX Data Objects）は本来データベース接続のためのライブラリですが、Excelファイルを「Jet OLEDBプロバイダ」経由で接続することで、SQLクエリのように内部のテーブル（＝シート）情報にアクセスすることが可能です。これにより、ファイルを開かずに「Schema（スキーマ）」情報を読み取るだけで、シート名のリストを抽出できます。
詳細解説：OpenSchemaメソッドの活用
ADOにおいて、ブック内のシート名を取得する鍵となるのが「OpenSchema」メソッドです。これはデータベースのメタデータを取得するためのメソッドであり、引数に「adSchemaTables」を指定することで、ファイル内に存在するすべてのシート名をリストとして取得できます。
処理の流れは以下の通りです。
1. ADODB.Connectionオブジェクトの生成。
2. 接続文字列（Connection String）の設定。Excelのバージョンに応じて「Microsoft.ACE.OLEDB.12.0」を指定します。
3. OpenSchemaメソッドの実行。
4. Recordsetオブジェクトからシート名（Table_Name列）を抽出。
5. 接続のクローズとオブジェクトの解放。
この手法を用いることで、数百のファイルが存在する場合でも、数秒から数十秒単位で全ファイルのスキャンが完了します。
サンプルコード：ファイルを開かずにシート名を取得する
以下のコードは、指定したフォルダ内のすべてのxlsxファイルからシート名を取得し、イミディエイトウィンドウに出力する実務的なサンプルです。
Option Explicit
' 参照設定: Microsoft ActiveX Data Objects x.x Library
' ツール > 参照設定 より追加してください
Sub GetSheetNamesWithoutOpening()
Dim strFolder As String
Dim strFile As String
Dim conn As Object
Dim rs As Object
Dim strConn As String
' 対象フォルダのパスを指定
strFolder = "C:\Data\Reports\"
strFile = Dir(strFolder & "*.xlsx")
Do While strFile <> ""
Debug.Print "ファイル名: " & strFile
Set conn = CreateObject("ADODB.Connection")
' 接続文字列（ACE.OLEDB 12.0を使用）
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
strFolder & strFile & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
On Error Resume Next
conn.Open strConn
If Err.Number = 0 Then
' スキーマ情報を取得
Set rs = conn.OpenSchema(20) ' 20 = adSchemaTables
Do Until rs.EOF
' シート名を取得（末尾の$マークを除去して表示）
Debug.Print " -> " & Replace(rs!TABLE_NAME, "$", "")
rs.MoveNext
Loop
rs.Close
Else
Debug.Print " -> 接続エラー: " & Err.Description
End If
On Error GoTo 0
conn.Close
Set rs = Nothing
Set conn = Nothing
strFile = Dir
Loop
End Sub
実務における注意点とトラブルシューティング
この手法は極めて強力ですが、実務で使用する際にはいくつか注意すべき技術的な制約が存在します。
まず、「シート名の末尾に$が付与される」という点です。ADO経由で取得すると、シート名は「Sheet1$」のように末尾にドルマークが付きます。これはExcelの内部構造上の仕様であるため、文字列操作（Replace関数など）で除去するのが一般的です。
次に、「接続文字列の互換性」です。古いExcel 97-2003形式（.xls）と、モダンな.xlsx形式ではプロバイダの指定やExtended Propertiesの設定が異なります。上記コードは.xlsxを想定していますが、.xlsを扱う場合は「Excel 8.0」を指定する必要があります。
また、64bit版のOfficeを使用している場合、古いドライバがインストールされていないと「プロバイダが見つかりません」というエラーが発生することがあります。その際は「Microsoft Access Database Engine」をインストールすることで解決可能です。
さらに、パスワード付きファイルにはこの手法は使えません。ADOは暗号化されたファイルへの接続をサポートしていないため、パスワード解除が必要なファイルについては、従来通りWorkbooks.Openを利用してパスワードを指定する必要があります。
まとめ
ファイルを開かずにシート名を取得する技術は、大規模なファイル管理やデータ集計業務において、エンジニアの必須スキルと言えます。ADOを活用することで、パフォーマンスを劇的に向上させるだけでなく、実行中のファイルに対する干渉を防ぎ、堅牢な自動化ツールを構築できます。
今回紹介したOpenSchemaメソッドは、シート名だけでなく、列の定義やデータの型情報まで取得できるポテンシャルを持っています。VBAの標準機能だけで限界を感じている方は、ぜひこのADOアプローチを取り入れ、よりプロフェッショナルで高速なツール開発を目指してください。
本手法をマスターすることで、Excel自動化の領域は大きく広がります。まずは小規模なファイル群からテストを行い、その圧倒的な速度差を体感してみてください。
