【入門編】【上級プロフェッショナル向け】Windows API「GetOpenFileName」を利用した、AutoCAD標準を超越するカスタムファイル選択ダイアログ – AutoCAD VBA解析バイブル

【極限の知見】AutoCAD VBAを解き放つ：Windows APIによる究極のファイル選択ダイアログ実装術

「マクロの記録」から一歩踏み出し、自分でコードを書き始めたあなたへ。

AutoCAD VBAを学んでいくと、必ずと言っていいほど一つの「壁」にぶつかります。それは、「標準機能の物足りなさ」です。

例えば、図面を開く際に「特定のバージョンのDWGファイルだけを表示させたい」「もっと直感的なフィルタリングを行いたい」と思ったことはありませんか？ AutoCADが用意してくれている標準の `GetOpenFileName` メソッドは、非常に便利ですが、実はカスタマイズの自由度が極めて低いのです。

今日は、その壁を軽々と飛び越えるための、プロフェッショナルな手法をお伝えします。それは、AutoCADの枠組みを飛び出し、Windows OSそのものに直接「ファイルを選ばせてくれ」と命令する——Windows API（GetOpenFileName）の活用です。

少し難しく感じるかもしれませんが、大丈夫。ここをクリアすれば、あなたの作るツールは「単なるマクロ」から「プロ仕様のアプリケーション」へと進化します。

1. なぜ、標準の機能では足りないのか？

AutoCAD VBAの `ThisDrawing.Application.GetOpenFileName` は、非常に扱いやすい「ラップされた（包まれた）」関数です。しかし、プロの現場では以下のニーズが発生します。

• 高度なフィルタリング: 「AutoCAD 2018形式のDWGのみ」といった、より厳密な絞り込み。
• UIの制御: ダイアログの初期表示位置や、特定のフラグ（読み取り専用の強制など）の制御。
• 拡張性: 将来的に、より複雑なファイル選択ロジックを組み込むための土台作り。

これらを実現するには、AutoCADの機能ではなく、Windows OSが提供している「共通ダイアログ（Common Dialog）」という仕組みを直接叩く必要があります。

2. Windows APIへの挑戦：`OPENFILENAME` 構造体

Windows APIを使う際、最も重要な概念は「構造体（Structure）」です。

APIに「ファイルを選ばせて」と頼むとき、私たちは単に言葉で伝えるのではなく、「決められた形式のデータセット（名簿のようなもの）」を渡さなければなりません。これが `OPENFILENAME` 構造体です。

この構造体には、「どのフォルダから始めるか」「どんな拡張子を表示するか」「ダイアログのタイトルは何にするか」といった膨大な情報が詰まっています。

ここがプロの視点：メモリと型への意識

ここで初学者が最も陥りやすい罠があります。それは「型の不一致」です。
VBAの `Integer` は16ビットですが、Windows API（32/64ビット環境）が求めるのは32ビットの数値です。ここで型を間違えると、ExcelやAutoCADが「メモリの不正なアクセス」として、無慈悲に強制終了（クラッシュ）します。

「APIを叩くときは、OSの言葉（Long型など）で話しかける」。これが鉄則です。

3. 実装コード：カスタムファイルダイアログの完全版

それでは、実際に使えるコードを見ていきましょう。このコードは、そのまま標準モジュールに貼り付けて使用できます。

Option Explicit

' --- Windows API の宣言 ---
' GetOpenFileName は、ファイル選択ダイアログを表示するための核となる関数です
Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

' --- OPENFILENAME 構造体の定義 ---
' OSに渡すための「設定シート」のようなものです。
' 順番や型を一つでも間違えると、AutoCADがクラッシュするので注意してください。
Private Type OPENFILENAME
    lStructSize As Long          ' 構造体のサイズ（必須）
    hwndOwner As LongPtr         ' 親ウィンドウのハンドル
    hInstance As LongPtr         ' インスタンスハンドル
    lpstrFilter As String        ' ファイルフィルタ（例: "DWG (*.dwg)|*.dwg||"）
    lpstrCustomFilter As String  ' カスタムフィルタ
    nMaxCustFilter As Long       ' カスタムフィルタの最大長
    nFilterIndex As Long         ' 現在選択されているフィルタのインデックス
    lpstrFile As String          ' 選択されたファイルパスを格納するバッファ
    nMaxFile As Long             ' ファイルパスの最大長
    lpstrFileTitle As String     ' ファイル名のみを格納するバッファ
    nMaxFileTitle As Long        ' ファイル名の最大長
    lpstrInitialDir As String    ' 初期ディレクトリ
    lpstrTitle As String         ' ダイアログのタイトル
    flags As Long                ' ダイアログの動作フラグ
    nFileOffset As Integer       ' フィルタのオフセット
    nFileExtension As Integer    ' 拡張子の長さ
    lpstrDefExt As String        ' デフォルトの拡張子
    lCustData As Long            ' カスタムデータ
    lpfnHook As LongPtr          ' フック関数
    lpTemplateName As String     ' テンプレート名
End Type

''' <summary>
''' 高度なファイル選択ダイアログを表示する関数
''' </summary>
''' <returns>選択されたファイルのフルパス。キャンセル時は空文字。</returns>
Public Function CustomGetOpenFileName(Optional ByVal title As String = "ファイルを選択してください") As String
    Dim fn As OPENFILENAME
    Dim filePath As String
    Const MAX_PATH As Long = 256 ' Windowsのパス最大長
    
    ' 1. 構造体の初期化
    With fn
        .lStructSize = LenB(fn) ' 構造体のサイズを正確に伝える
        .hwndOwner = 0           ' 親ウィンドウを指定しない場合は0
        .lpstrFilter = "AutoCAD Drawing (*.dwg)|*.dwg|All Files (*.*)|*.*||"
        .lpstrFile = String(MAX_PATH, 0) ' パスを格納するための空きスペース（バッファ）を確保
        .nMaxFile = MAX_PATH
        .lpstrFileTitle = String(MAX_PATH, 0)
        .nMaxFileTitle = MAX_PATH
        .lpstrInitialDir = ThisDrawing.Path ' 現在の図面と同じフォルダを初期位置にする
        .lpstrTitle = title
        .flags = 0               ' 必要に応じてフラグ（OFN_FILEMUSTEXIST等）を設定
    End With

    ' 2. APIの呼び出し
    If GetOpenFileName(fn) <> 0 Then
        ' 成功した場合、バッファから実際のパスを取り出す
        ' String関数で作成したNULL文字（0）以降の文字列を抽出する
        filePath = Left(fn.lpstrFile, InStr(fn.lpstrFile, Chr(0)) - 1)
        CustomGetOpenFileName = filePath
    Else
        ' キャンセルされた場合
        CustomGetOpenFileName = ""
    End If
End Function

''' <summary>
''' 実行用テストメインルーチン
''' </summary>
Public Sub TestCustomDialog()
    Dim selectedFile As String
    
    ' カスタムダイアログの呼び出し
    selectedFile = CustomGetOpenFileName("図面選択（プロフェッショナル版）")
    
    If selectedFile <> "" Then
        MsgBox "選択されたファイル: " & vbCrLf & selectedFile, vbInformation, "成功"
        ' ここで Open コマンド等にパスを渡す処理を行う
    Else
        MsgBox "キャンセルされました。", vbExclamation, "中断"
    End If
End Sub

4. コードの解剖：何が「魔法」を起こしているのか？

このコードの重要なポイントを、エンジニアの視点で解説します。

① バッファの確保 (`String(MAX_PATH, 0)`)

ここが最も「プロ」らしい部分です。APIは、ファイルパスを書き込むための「あらかじめ用意されたメモリ領域（バッファ）」を要求します。
`String(MAX_PATH, 0)` と書くことで、「256文字分の空っぽのスペースを確保しておきますから、ここに書き込んでくださいね」とWindowsに予約を入れているのです。これを行わないと、書き込み先がなくてプログラムがクラッシュします。

② フィルタ文字列のルール

`.lpstrFilter = “AutoCAD Drawing (*.dwg)|*.dwg|All Files (*.*)|*.*||”`
この記述には独特のルールがあります。

• `表示名|実際の拡張子` というペアを作る。
• パイプ記号 `|` で区切る。
• 最後に必ず `||`（空のペア）を置く。

この「最後の `||`」を忘れるだけで、ダイアログが正しく動作しないことがあります。

③ 成功判定と文字列の切り出し

APIが成功すると、`fn.lpstrFile` にはパスが入りますが、後ろに大量の「NULL文字（`Chr(0)`）」がくっついています。そのまま表示すると文字化けやエラーの原因になるため、`InStr` 関数を使って「有効な文字列だけを綺麗に切り出す」処理を行っています。

5. 陥りやすいエラーと回避策

この道を進むあなたが、躓かないためのアドバイスです。

1. 「AutoCADが突然落ちる」
原因の9割は、`OPENFILENAME` 構造体の定義ミス、あるいは `lStructSize` の設定ミスです。構造体は、OSが「この設計図通りにメモリを読み取れるか」を厳密にチェックしています。
2. 「64ビット版AutoCADでのエラー」
現代のAutoCADは64ビットです。宣言時に `PtrSafe` を使い、ハンドル（`hwndOwner`）には `LongPtr` を使う必要があります。私が提示したコードはこの点に対応済みです。
3. 「フィルタが効かない」
フィルタ文字列の末尾に `||` があるか、セパレータ `|` の数が合っているかを確認してください。

まとめ：一歩先のエンジニアへ

標準の機能を使うことは「正しい」ことです。しかし、標準の限界を感じたとき、今回のように「システムの深層に手を伸ばす」勇気を持ってください。

Windows APIを使いこなせるようになると、AutoCAD VBAは単なる記録ツールではなく、強力な「業務アプリケーション開発プラットフォーム」へと変貌します。

「なぜ動くのか？」「メモリの中で何が起きているのか？」
その好奇心こそが、あなたを伝説的なエンジニアへと導く唯一の道です。

ここをクリアすれば、AutoCAD VBAの基本はバッチリですよ。次なる挑戦を楽しみにしています！