ExcelのVBA Workbook — ThisWorkbookとActiveWorkbookの違い、マクロが「別のファイル」を保存する理由

要点（TL;DR） — VBAには「このファイル」を指す言い方が2つあり、意味が違います。 ThisWorkbook は コードが住んでいるブック — ユーザーが何をクリックしても変わりません。 ActiveWorkbook は 今いちばん手前にあるウィンドウ — ユーザー（あるいはマクロ自身）がファイルを切り替えた瞬間に変わります。ActiveWorkbook 経由での読み書きは、マクロが別のブックを壊したり保存したりする最大の原因です。最初に参照をつかむこと（Set wb = ThisWorkbook または Set wb = Workbooks.Open(...)）。「アクティブ」を二度と信用しないことです。

Workbook はオブジェクトモデルの頂点 — ファイルそのもの、ワークシートを抱えている入れ物です。「マクロが間違ったファイルにデータを入れた」というバグのほとんどは、たった一つの混同から来ます。 コードが入っているファイル と 今手前にあるファイル を同じものとして扱うことです。この2つは別物で、その隙間でデータは失われます。

この記事でわかること

ThisWorkbook と ActiveWorkbook の正確な違い（とそれぞれの正しい使いどころ）
Workbooks.Open が返す参照を、なぜすぐに受け取るべきか
「インデックスが有効範囲にありません」の裏にある Workbooks("Data") 拡張子の罠
ブック関連のバグを消す、たった一つの習慣

考え方の軸：「自分が住んでいるファイル」vs「手前にあるファイル」

ThisWorkbook はマクロの「住所」だと考えてください — 不動で、登記簿に書かれています。 ActiveWorkbook は「今たまたま立っている場所」です。コードが別のファイルを開いた瞬間、あるいはユーザーが別のブックにAlt+Tabした瞬間、「今立っている場所」は移動します。住所は動きません。

Sub TwoMeaningsOfThisFile()
    ' ThisWorkbook = このコードを含むファイル。常に。
    Debug.Print ThisWorkbook.Name        ' 例: "Reports.xlsm"

    ' ActiveWorkbook = 今いちばん手前にあるもの。
    Debug.Print ActiveWorkbook.Name      ' 開いているどのファイルでもありうる

    ' 2つ目のファイルを開く — ここで ActiveWorkbook が裏で変わる
    Workbooks.Open "C:\data\Sales.xlsx"
    Debug.Print ThisWorkbook.Name        ' 依然 "Reports.xlsm"
    Debug.Print ActiveWorkbook.Name      ' いまや "Sales.xlsx"  ← 動いた！
End Sub

なぜ重要か： Sales.xlsx を開いた行が、ActiveWorkbook の指す先を黙って変えました。もし次の40行が ActiveWorkbook や限定なしの Range(...) 経由で書き込むなら、それらはすべて Sales.xlsx に着地します — あなたがコードを書いた対象のファイルではなく。マクロはエラーを出しません。ただデータを間違った場所に置くだけです。

「別ファイル事故」を防ぐルール

失敗モードをはっきり言いましょう。ActiveWorkbook に依存するコードは、ユーザーの 1クリック — あるいは1回の Workbooks.Open — で間違ったファイルを操作する寸前にいます。 解決策は「気をつける」ことではありません。「アクティブ」への依存をやめることです。

Sub SafeWorkbookHandling()
    ' 開いた瞬間に参照をつかむ — あとで探しに行かない
    Dim wbSource As Workbook
    Set wbSource = Workbooks.Open("C:\data\Sales.xlsx")

    ' マクロが住むファイルには ThisWorkbook
    Dim wbReport As Workbook
    Set wbReport = ThisWorkbook

    ' これですべての操作が明示的 — 曖昧さなし、「アクティブ」なし
    wbReport.Worksheets("Summary").Range("A1").Value = _
        wbSource.Worksheets("Data").Range("A1").Value

    wbSource.Close SaveChanges:=False
End Sub

Workbooks.Open は 開いたばかりのブックを返します。Set wb = Workbooks.Open(...) で受け取ることが、堅牢なコードと「自分のPCでは動くが他人のPCでは壊れる」マクロの分かれ目です。新しい空のブックを返す Workbooks.Add も同じです。

`Workbooks("Data")` — 拡張子の罠

開いているブックを Workbooks コレクションから名前で取得できます — ただし名前のルールが微妙で、「インデックスが有効範囲にありません」（実行時エラー9） の質問を大量に生みます。

Sub WorkbookByName()
    ' 保存される前は、拡張子なしで参照する：
    Dim wb1 As Workbook
    Set wb1 = Workbooks("Book1")           ' 新規・未保存のブック

    ' 保存されたあとは、拡張子を必ず含める：
    Dim wb2 As Workbook
    Set wb2 = Workbooks("Sales.xlsx")      ' "Sales" だけ → エラー9

    ' いちばん安全：名前で探さない — 開いた／作った時の参照を保持する
End Sub

判断：ブックを文字列の名前で探すのは設計上もろい — リネーム、保存、タイプミスで壊れます。同じマクロ内で開いた／作ったファイルなら、もう参照を持っています。それを使ってください。名前での検索は、別のプロセスが開いたファイルという稀なケースのために取っておきます。

ActiveWorkbook が実際に正しい場面

ActiveWorkbook は禁止ではありません — ただ用途が狭いだけです。マクロが ユーザーが今見ているものに対して動くユーティリティ のときは正解です — 個人用マクロブックのツールや、「このファイル」を整形するアドインのボタンなど。その一場面では「アクティブ」こそが意図です。特定のファイルを開いて処理して保存する本番の自動化では、ActiveWorkbook 参照はほぼ常に潜在バグです。

ExcelMasterでの代替

ブックをやりくりするVBAの多くは、たった一つの理由で存在します — 誰かが定期的に、あるファイルから別のファイルへデータを移す必要があったから。ExcelMaster はそれを日本語（自然言語）で行います — 「この3つの売上ファイルをサマリータブにまとめて」と言えば結合を作ります。間違えがちな Workbooks.Open / ActiveWorkbook の管理は一切なしで。

ブック内に常駐するマクロが必要なときは、これからもVBAを書くでしょう — ですが、ファイルをまたぐ結合や一度きりの統合なら、作業を言葉で説明するほうが速く、誰かがシート名を変えても壊れません。

よくある質問

ThisWorkbookとActiveWorkbookの違いは？

ThisWorkbook は実行中のコードを含むブックを常に指し、変わりません。ActiveWorkbook はその瞬間いちばん手前のブックを指し、ユーザーがウィンドウを切り替えたりコードが別のファイルを開くたびに変わります。信頼性のためには ThisWorkbook（または Set wb = ... の参照）を使ってください。

Workbooks("...") で「インデックスが有効範囲にありません」が出るのはなぜ？

渡した名前がその正確なキーで開いているブックではないからです。ファイルが保存済みなら拡張子を含める必要があります — Workbooks("Sales") ではなく Workbooks("Sales.xlsx")。さらに良いのは、名前で探さずに開いた時の参照を保持することです。

開いたばかりのブックはどう参照する？

同じ行で受け取ります：Set wb = Workbooks.Open("C:\path\file.xlsx")。Workbooks.Open はブックオブジェクトを返すので、あとで「どれがアクティブか」を推測する必要がありません。

ファイルの結合でExcelMasterはVBAの代わりになる？

ファイルをまたぐ一度きり／定期的な結合なら、はい — 統合を自然言語で説明すれば、ブック管理なしで ExcelMasterが作ります。ブックに埋め込む常駐マクロにはVBAが向いています。

検証環境

検証環境： Excel 365（Windows 11）、VBA 7.1 — 最終確認 2026-06-13。

関連ガイド： VBA Worksheet · VBA ActiveSheet · VBA Range · VBA Copy Paste · VBA For Loop