【極限の設計】ディレクトリ構造を完全同期するPowerPoint PDF一括変換エンジンの構築
業務自動化の現場において、「ファイルが一個ずつ変換できればいい」という思考は、プロフェッショナルとしては二流だ。
現場のプロジェクトは、決してフラットな構造ではない。プロジェクト、フェーズ、クライアント、年度……といった複雑な階層構造（ディレクトリツリー）の中に、膨大なプレゼンテーション資料が埋もれている。それらを「元の構造を一切崩さずに、一括でPDF化して別ドライブへ転送する」――。この要求に対し、単純なループ処理で挑もうとする者は、必ず「フォルダが存在しません」というランタイムエラーの壁にぶち当たり、あるいは出力先がゴミの山となる結末を迎える。
今回は、`FileSystemObject (FSO)` を駆使し、再帰的アルゴリズムを用いてディレクトリ構造を完全にミラーリングしながら、PPTXをPDFへと変換する「プロダクション・グレード（本番運用耐性）」のコードを伝授する。
1. なぜ `Dir` 関数ではなく `FileSystemObject` なのか
多くの初学者は、VBA標準の `Dir` 関数でファイル探索を行おうとする。しかし、`Dir` 関数は「再帰的な探索（サブフォルダの奥深くへ潜る処理）」において、状態管理が極めて困難であり、設計を複雑にする要因となる。
我々アーキテクトが `FileSystemObject` を選択する理由は明白だ。
- オブジェクト指向的な操作: フォルダやファイルを「オブジェクト」として扱えるため、属性の取得や操作が直感的である。
- 階層構造への親和性: `SubFolders` コレクションを通じて、ディレクトリツリーを自然に辿ることができる。
- 堅牢なパス操作: パスの結合や存在確認が、文字列操作よりも遥かに安全に行える。
2. 設計思想：ミラーリング・アルゴリズム
このツールの核心は、「ソースパス（元）の相対構造を、ターゲットパス（先）に即座に再構築する」ことにある。
1. 再帰的走査 (Recursive Traversal): 指定されたフォルダを起点に、サブフォルダを見つけたら自分自身を再度呼び出す。
2. パスの置換 (Path Mapping): ソースフォルダのルート部分を、ターゲットフォルダのルート部分に置換し、出力先パスを動的に生成する。
3. ディレクトリの自動生成 (Auto-Creation): 出力先にフォルダが存在しない場合、その場で `mkdir`（フォルダ作成）を実行する。
これを怠ると、出力先がカオスになり、情報の整合性が失われる。
3. 実装：階層維持型PDFエクスポート・エンジン
以下に、そのまま実務に投入可能なレベルのコードを示す。
※このコードは、参照設定を必要としない「レイトバインディング（遅延結合）」を採用している。これにより、配布時の「参照不可エラー」という、最も低レベルなトラブルを回避している。
Option Explicit
''' <summary>
''' メインエントリーポイント
''' </summary>
Public Sub ExecuteHierarchicalPDFExport()
Dim fso As Object
Dim sourceRoot As String
Dim targetRoot As String
' --- 設定エリア ---
' 実際の実務では、セルから取得するか、ダイアログで選択させる設計にする
sourceRoot = "C:\Project\SourceData" ' 元データフォルダ
targetRoot = "D:\Backup\PDF_Export" ' PDF出力先フォルダ
' ------------------
Set fso = CreateObject("Scripting.FileSystemObject")
' 入力チェック：ソースが存在しない場合は即座に終了（Fail-Fast原則）
If Not fso.FolderExists(sourceRoot) Then
MsgBox "エラー: ソースフォルダが見つかりません。" & vbCrLf & sourceRoot, vbCritical
Exit Sub
End If
' 出力先ルートの作成
If Not fso.FolderExists(targetRoot) Then
fso.CreateFolder targetRoot
End If
On Error GoTo ErrorHandler
' 再帰処理の開始
Debug.Print "--- 処理開始: " & Now & " ---"
RecursiveProcess fso, sourceRoot, sourceRoot, targetRoot
Debug.Print "--- 処理完了: " & Now & " ---"
MsgBox "全ての変換処理が正常に完了しました。", vbInformation
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
"Error Number: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical
End Sub
''' <summary>
''' フォルダを再帰的に走査し、PPTXをPDFに変換する
''' </summary>
''' <param name="fso">FileSystemObject</param>
''' <param name="currentPath">現在走査中のパス</param>
''' <param name="sourceRoot">全体のルートパス（相対パス計算用）</param>
''' <param name="targetRoot">出力先のルートパス</param>
Private Sub RecursiveProcess(fso As Object, currentPath As String, sourceRoot As String, targetRoot As String)
Dim currentFolder As Object
Dim subFolder As Object
Dim file As Object
Dim relativePath As String
Dim destinationFolder As String
Dim pdfPath As String
Dim pptApp As Object
Set currentFolder = fso.GetFolder(currentPath)
' 1. サブフォルダの走査（再帰）
For Each subFolder In currentFolder.SubFolders
' 相対パスを計算し、出力先のフォルダパスを特定
' 例: Source\Sub1 -> Target\Sub1
relativePath = Replace(subFolder.Path, sourceRoot, "")
destinationFolder = targetRoot & relativePath
' 出力先にフォルダがなければ作成
If Not fso.FolderExists(destinationFolder) Then
fso.CreateFolder destinationFolder
End If
' 再帰呼び出し
RecursiveProcess fso, subFolder.Path, sourceRoot, targetRoot
Next subFolder
' 2. ファイルの処理
' PowerPointのインスタンスは、ループの外で1回だけ生成するのがパフォーマンスの鉄則
' ただし、ここでは再帰の深さによるリソース管理を考慮し、ファイル単位で制御
For Each file In currentFolder.Files
' 拡張子が .pptx または .ppt の場合のみ処理
If LCase(fso.GetExtensionName(file.Path)) Like "ppt*" Then
' 出力先パスの構築 (拡張子を .pdf に変更)
' Replaceで元のパスのルート部分をターゲットルートに差し替える
relativePath = Replace(file.Path, sourceRoot, "")
pdfPath = targetRoot & Replace(relativePath, "." & LCase(fso.GetExtensionName(file.Path)), ".pdf")
' PDF変換実行
ConvertPPTXToPDF file.Path, pdfPath
End If
Next file
End Sub
''' <summary>
''' 個別のPPTXファイルをPDFへ変換する
''' </summary>
Private Sub ConvertPPTXToPDF(sourceFile As String, targetFile As String)
Dim pptApp As Object
Dim pres As Object
On Error Resume Next
' PowerPointの起動（既に開いているものがあればそれを使う、なければ新しく作る）
Set pptApp = GetObject(, "PowerPoint.Application")
If pptApp Is Nothing Then
Set pptApp = CreateObject("PowerPoint.Application")
End If
On Error GoTo 0
If pptApp Is Nothing Then
Debug.Print "Error: PowerPointを起動できませんでした -> " & sourceFile
Exit Sub
End If
On Error GoTo ConversionError
' プレゼンテーションを開く (ReadOnly, NoWindow)
' 画面表示を抑制することで速度を向上させる
Set pres = pptApp.Presentations.Open(sourceFile, ReadOnly:=msoTrue, WithWindow:=msoFalse)
' PDFとして保存 (ppSaveAsPDF = 32)
pres.SaveAs targetFile, 32
' クローズ
pres.Close
Set pres = Nothing
Debug.Print "Success: " & targetFile
Exit Sub
ConversionError:
Debug.Print "Failed: " & sourceFile & " | Error: " & Err.Description
If Not pres Is Nothing Then pres.Close
Set pres = Nothing
End Sub4. アーキテクトの視点：堅牢性を高めるための「重み」
このコードを単なる「コピペ用スクリプト」で終わらせないために、以下の設計的意図を理解してほしい。
① オブジェクトのライフサイクル管理
`pptApp.Presentations.Open` で開いたオブジェクトは、必ず `Close` しなければならない。これを怠ると、メモリ上に「幽霊プロセス」が残り続け、最終的にPCの動作を著しく低下させる。`On Error GoTo ConversionError` を用いて、エラー発生時でも必ず `Close` を通るように設計している。
② パフォーマンスの最適化
`FileSystemObject` を再帰的に回す際、最もコストが高いのは「外部アプリケーション（PowerPoint）の起動と終了」だ。本コードでは、`GetObject` を試行することで、既に開いているPowerPointがあればそれを利用し、無駄なプロセス生成を抑えている。
③ エラーハンドリングの階層化
- 致命的エラー（Fatal Error）: フォルダが存在しない、権限がない等。これは `Execute` メソッドで検知し、即座に処理を中断させる（Fail-Fast）。
- 個別エラー（Recoverable Error）: 特定のファイルが壊れている、使用中である等。これは `ConvertPPTXToPDF` 内で個別にキャッチし、「そのファイルは飛ばして次のファイルへ進む」という、業務を止めない設計にしている。
④ 拡張性の確保
現在は `ppSaveAsPDF` (定数 32) をハードコードしているが、将来的に「画像形式で出力したい」「特定のページだけ出力したい」という要件が出た場合も、`ConvertPPTXToPDF` 関数の中身を書き換えるだけで、ディレクトリ走査のロジックには一切手を加えずに対応できる。これが「関心の分離」だ。
結論
自動化エンジニアの仕事は、コードを書くことではない。「例外が発生しても、システム全体が崩壊しない構造を設計すること」だ。
今回提示したツールは、ディレクトリ構造の完全維持、エラー耐性、そして保守性を極限まで高めている。この設計思想を胸に、次のプロジェクトに挑んでほしい。
