Excel VBAの「参照不可:プロジェクトまたはライブラリが見つかりません」エラーの解決方法

intermediate📊 Microsoft Excel2026-06-06| Windows 10/11上のMicrosoft Excel (Office 365, 2021, 2019, 2016)

Error Message

Compile error: Can't find project or library
#vba#excel#参照設定#コンパイルエラー#ライブラリ#参照不可

クイック解決:30秒で復旧させる方法

今すぐこのエラーを回避する必要がある場合は、以下の手順に従ってください。

  • Alt + F11 を押して、Visual Basic Editorを開きます。
  • 上部メニューの ツール > 参照設定 をクリックします。
  • リストの中から 「参照不可:」(または "MISSING:")と表示されている項目を探します。
  • それらのチェックボックスをオフにします。
  • OK をクリックし、デバッグ > VBAProjectのコンパイル を選択して、正常に戻ったことを確認します。

このエラーの原因は?

このエラーは通常、コードのロジックのミスではありません。代わりに、コードと実行中のコンピュータとの間の通信不全が原因です。VBAは特定のツール(Outlook 16.0ライブラリやカスタムの会計用DLLなど)を期待していますが、期待される場所で見つけることができません。

プロジェクトが破損した原因として、主に以下の理由が考えられます。

  • バージョンの違い: Excel 365 (v16.0) でマクロを作成したが、同僚が Excel 2013 (v15.0) で実行しようとしている。
  • ビット数の競合: 32ビット版 Office の設定から64ビット版のPCにファイルを移動した。古いActiveXコントロール(.ocx)の中には、64ビット環境では読み込めないものがあります。
  • 不足しているツール: スクリプトで Adobe Acrobat や SQL データベースドライバ (ADODB) を使用しているが、新しいPCにインストールされていない。
  • レジストリの不具合: ライブラリはディスク上に存在するが、Windowsがその場所を見失っている。

信頼できる解決策

方法1:壊れた参照設定をクリーンアップする

1つのリンクが切れると、チェーン全体が機能しなくなります。興味深いことに、Outlookの参照設定が欠けているだけで、Left$Date といった基本的なコマンドさえ動作しなくなることがあります。参照不可があると、VBAは標準的な関数であってもその場所がわからなくなってしまいます。

  • ツールバーにある リセット ボタン(小さな青い正方形)をクリックして、エラーのループを停止します。
  • ツール > 参照設定 を開きます。
  • 参照不可:(または MISSING:)で始まるエントリを探します。
  • マクロで実際にそのツールを使用していない場合は、チェックを外すだけで解決します。
  • そのツールが必須な場合は、現在のマシンにインストールされているバージョン(例:Microsoft Outlook 16.0 ではなく 15.0)を探して、そちらにチェックを入れ直します。

方法2:ライブラリを再登録する(上級者向け)

ファイルは存在するものの、Windowsがそれを認識するために「一押し」が必要な場合があります。コマンドプロンプトを使用してコンポーネントを強制的に登録できます。必ず管理者として実行してください。

# 64ビット版Windowsシステムで32ビット版DLLを使用する場合
C:\Windows\SysWOW64\regsvr32.exe "C:\Windows\System32\scrrun.dll"

# 標準的な64ビットライブラリの場合
regsvr32.exe "C:\Path\To\Your\Library.dll"

方法3:レイトバインディングでコードの将来性を確保する

このエラーを永久に防ぐ最善の方法は、**レイトバインディング(遅延結合)**を使用することです。この手法では「参照設定」メニューを完全にスキップします。コードは、スクリプトが実際に実行される時に必要なライブラリを探しに行きます。これは、異なるバージョンの Office で共有されるマクロにおける「黄金律」です。

リスクのある方法(アーリーバインディング/事前結合):

' ユーザーのOutlookのバージョンが異なるとクラッシュします
Dim outlookApp As Outlook.Application
Set outlookApp = New Outlook.Application

プロフェッショナルな方法(レイトバインディング):

' メニューでの参照設定は不要です
Dim outlookApp As Object
On Error Resume Next
Set outlookApp = CreateObject("Outlook.Application")

If outlookApp Is Nothing Then
    MsgBox "このコンピュータにOutlookが見つかりませんでした。", vbExclamation
    Exit Sub
End If

CreateObject を使用すると、コードに柔軟性が生まれます。ユーザーが Office 2016、2021、365 のどれを使っていても、シームレスに動作します。

修正を確認する方法

ファイルを他の人に送る前に、簡単なヘルスチェックを行ってください。

  • VBAエディタで デバッグ をクリックします。
  • VBAProjectのコンパイル を選択します。
  • 「コンパイル」オプションがグレーアウトし、エラーが表示されなければ、プロジェクトの構造は正常です。
  • すぐにファイルを保存(Ctrl + S)して、変更を確定させます。

エキスパートのアドバイス

  • APIに注意: Windows関数のために Declare Sub を使用する場合は、64ビット版 Excel でも動作するように宣言に PtrSafe を追加してください。
  • 標準化: チームで多くのマクロを共有している場合は、バージョンの乖離を避けるために、全員を同じ Office 更新チャネル(例:月次エンタープライズ チャネル)に保つようにしてください。

Related Error Notes