【入門編】【中級】ステンシル読み込み時の「ファイルが見つかりません」エラーを回避する堅牢な実装 – Visio VBA解析バイブル

Visio VBA

2026.11.10

【極限の知見】Visio VBAでステンシル読み込みエラーを根絶する：堅牢なファイル管理の極意

【極限の知見】Visio VBAでステンシル読み込みエラーを根絶する：堅牢なファイル管理の極意

こんにちは。Visioによる業務自動化の世界へようこそ。

マクロの記録ボタンを押し、「できた！」と喜ぶ瞬間は最高に楽しいものです。しかし、そのマクロをチームのメンバーに渡したり、ネットワーク上の共有フォルダから実行したりした途端、「ファイルが見つかりません」という無慈悲なエラーメッセージに襲われたことはありませんか？

「さっきまで動いていたのに……」
「僕のパソコンでは動くのに、なぜ部長のパソコンではエラーになるんだ？」

もしあなたがそう感じているなら、おめでとうございます。あなたは今、「単なるマクロ使い」から「真のエンジニア」へと脱皮する境界線に立っています。

今日は、プロの開発現場で絶対に避けて通れない「ファイルパスの不確実性」をどう制御するか。ステンシル（Stencil）の読み込みを例に、エラーに負けない「堅牢（ロバスト）なコード」の書き方を伝授します。ここをクリアすれば、あなたの作るツールは劇的に信頼性を増すはずですよ。

1. なぜ「マクロの記録」で作ったコードは壊れやすいのか？

まず、初心者が陥りがちな「脆弱なコード」を見てみましょう。マクロの記録機能を使うと、以下のようなコードが生成されます。

' ❌ 典型的な「壊れやすい」コード
Sub BadExample()
    ' マクロの記録は、実行時の絶対パスをそのまま書き込む
    Application.Documents.Add "C:\Users\YourName\Documents\MyNetworkStencil.vssx"
End Sub

一見、正しく動くように見えます。しかし、このコードには3つの致命的なリスクが潜んでいます。

1. ユーザー環境の違い: `YourName` というパスは、他の人のPCには存在しません。
2. ネットワークドライブの罠: 共有フォルダを `Z:` ドライブとして割り当てている場合、他の人のPCでは `Y:` ドライブかもしれないし、そもそもドライブレターが割り当てられていないかもしれません。
3. タイミングの問題: ネットワークの瞬断や、サーバーのメンテナンス中に実行すると、Visioは「ファイルがない！」とパニックを起こして止まってしまいます。

プロのエンジニアは、「ファイルは、いつか必ず見つからなくなるものだ」という前提でコードを書きます。

2. 二つの武器：`Dir` 関数と `FileSystemObject`

ファイルを安全に扱うために、VBAには主に二つの武器があります。これらを使い分けるのが、中級者への第一歩です。

① `Dir` 関数（軽量な偵察兵）

VBA標準の関数で、非常に高速です。ファイルが存在するかどうかを「はい/いいえ」で素早く確認するのに適しています。

② `FileSystemObject` (FSO) （重装備の精鋭部隊）

Windowsのファイルシステムを高度に操作できる、オブジェクト指向の強力なツールです。ファイルが存在するかだけでなく、「フォルダが存在するか」「ファイルが書き込み可能か」といった詳細な調査が可能です。

特徴	`Dir` 関数	`FileSystemObject` (FSO)
手軽さ	◎（すぐに使える）	△（参照設定やCreateObjectが必要）
速度	◎（非常に速い）	○（Dirよりは少し重い）
多機能さ	△（存在確認程度）	◎（フォルダ操作、属性確認など万能）
推奨用途	単純な存在チェック	複雑なパス操作や、堅牢なエラー管理

3. 【実践】エラーを未然に防ぐ「堅牢なステンシル読み込み」の実装

では、これらを踏まえて、現場でそのまま使える「プロ仕様」のコードを書いてみましょう。
ここでは、より高度な制御ができる `FileSystemObject` を使った実装を紹介します。

以下のコードを標準モジュールに貼り付けてみてください。

Option Explicit

''' <summary>
''' 指定されたパスのステンシルを安全に開くメインルーチン
''' </summary>
Sub SafeOpenStencilProcess()
    ' 1. 読み込みたいステンシルのパスを指定（UNCパスを推奨）
    ' ※ ネットワークドライブ(Z:\)ではなく、\\Server\Folder\ の形式を使うのがプロの鉄則です
    Dim targetPath As String
    targetPath = "\\YourServer\Shared\Templates\NetworkStencil.vssx"
    
    ' 2. 安全に開くためのカスタム関数を呼び出す
    Dim openedDoc As Visio.Document
    Set openedDoc = TryOpenStencil(targetPath)
    
    ' 3. 結果に応じた処理
    If Not openedDoc Is Nothing Then
        MsgBox "ステンシルの読み込みに成功しました！", vbInformation, "成功"
        ' ここに、読み込んだ後の処理（シェイプの配置など）を記述します
    Else
        ' エラーハンドリングは関数内で行っているため、ここでは通知のみ
        MsgBox "ステンシルの読み込みに失敗しました。管理者にお問い合わせください。", vbCritical, "エラー"
    End If
End Sub

''' <summary>
''' ステンシルの存在を確認し、安全に開く関数
''' </summary>
''' <param name="filePath">対象ファイルのフルパス</param>
''' <returns>成功した場合はDocumentオブジェクト、失敗した場合はNothing</returns>
Function TryOpenStencil(ByVal filePath As String) As Visio.Document
    Dim fso As Object
    Dim doc As Visio.Document
    
    ' 返り値の初期化
    Set TryOpenStencil = Nothing
    
    ' FileSystemObjectの生成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' --- 防御的プログラミングの核心 ---
    
    ' A. パスが空でないかチェック
    If filePath = "" Then
        Debug.Print "Error: パスが空です。"
        Exit Function
    End If
    
    ' B. ファイルが存在するかチェック
    If Not fso.FileExists(filePath) Then
        ' ファイルがない場合、ログ出力やエラー処理を行う
        Debug.Print "Error: ファイルが見つかりません -> " & filePath
        Exit Function
    End If
    
    ' C. ファイルを開く試行（エラーハンドリングを有効にする）
    On Error Resume Next
    Set doc = Application.Documents.Add(filePath)
    On Error GoTo 0
    
    ' D. 開く際にエラーが発生した場合のチェック
    If Err.Number <> 0 Then
        Debug.Print "Error: ファイルを開く際に予期せぬエラーが発生しました。 " & Err.Description
        Set doc = Nothing
    Else
        Set doc = Application.Documents(doc.Name)
    End If
    ' ----------------------------------

    Set TryOpenStencil = doc
    Set fso = Nothing
End Function

4. アーキテクトからのアドバイス：ここが成功の分かれ目

コードを理解できましたか？この実装には、プロが必ず意識している「3つの設計思想」が込められています。

① UNCパス（\Server\Folder）を使え

ネットワークドライブの割り当て（`Z:\` など）は、ユーザーごとに異なるため非常に不安定です。必ず `\\サーバー名\共有名\ファイル名` という形式の UNCパス を使いましょう。これが、ネットワーク越しにツールを配布する際の絶対条件です。

② 「戻り値」で成否を判定せよ

`TryOpenStencil` 関数は、成功したら `Document` オブジェクトを、失敗したら `Nothing` を返します。呼び出し側（メインルーチン）は、その結果を見て「次に進むか、エラーを表示するか」を判断します。このように「役割を分担させる（関数のカプセル化）」ことで、コードの読みやすさとメンテナンス性が劇的に向上します。

③ `On Error Resume Next` の使いどころ

エラーを無視する魔法の言葉のように思われがちですが、使い所を間違えるとバグの温床になります。今回のように、「ファイル操作という、外部環境に左右される不安定な一瞬」にだけ限定して使い、すぐに `On Error GoTo 0` で解除するのが、正しい作法です。

まとめ：一歩先の自動化へ

「ファイルが見つかりません」というエラーを回避する実装ができるようになったあなたは、もう単なるマクロの記録係ではありません。

環境の変化を予測し（防御的プログラミング）
適切な道具を選び（FSOの活用）
エラーをエレガントに処理する（関数化）

このステップをマスターすれば、あなたが作るVisioツールは、どんな現場でも「頼れる相棒」として重宝されるはずです。

さあ、次はもっと複雑なオブジェクトの制御に挑戦していきましょう。応援していますよ！