他ブックを開いて閉じる（Open,Close）
他のExcelブックを開いて、何らかの処理（転記等）を実行した後に、そのブックを閉じる。
VBAでは、よくあるパターンですね。
ワークシート関数では出来ない、VBAならではの処理とも言えます。
それぞれのVBAでの違いは、開いたブックをその後にどのように指定するかと言うところになります。
パターン1：ActiveWorkbook
Sub sample1()
Dim strBookName As String
Workbooks.Open "ブックのフルパス"
strBookName = ActiveWorkbook.Name
・・・処理
Workbooks(strBookName).Close
SaveChanges:=False
End Sub
"ブックのフルパス"は、"C:\ExcelFolder\Book1.xlsx"等です。
Openしたブックはアクティブ（一番前面に出ている）になっています。
つまりそれがActiveWorkbookです。
ActiveWorkbook.Nameを変数に入れて、それ以降のブック指定に使用しています。
保存が必要な時は、SaveChanges:=Trueとして下さい。
次の段階に進むと、このようなVBAを書くことは無くなりますが、基本として必ず覚えておくべきものです。
サイト内の参考ページ
パターン2：Workbooks.Count
Sub sample2()
Workbooks.Open "ブックのフルパス"
'・・・処理
Workbooks(Workbooks.Count).Close SaveChanges:=False
End Sub
OpenしたブックはWorkbooksコレクションに追加されます。
つまり、Workbooksの最後が開いたブックになります。
Workbooks.Countは、開いているブック数です。
つまり、Workbooks(Workbooks.Count)は最後に開いたブックになります。
サイト内の参考ページ
パターン3：オブジェクト変数
Sub sample3()
Dim wb As Workbook
Set wb = Workbooks.Open("ブックのフルパス")
・・・処理
wb.Close SaveChanges:=False
End
Sub
Openメソッドの戻り値（開いたブックのオブジェクト）を変数に入れています。
オブジェクト変数への代入はSetステートメントを使用します。
これ以降は、このオブジェクト変数を使う事で開いたブックに対して処理することができます。
サイト内の参考ページ
パターン4：Withステートメント
Sub sample4()
With Workbooks.Open("ブックのフルパス")
'・・・処理
.Close SaveChanges:=False
End With
End Sub
Openメソッドの戻り値（開いたブックのオブジェクト）をWithに指定しています。
Withの中（End Withまで）では、.ドットから書き始めることでWithに指定したオブジェクトの記述を省略できます。
使用するのは、End Withの手前で必ずブックを閉じる場合のみに限定されます。
Withの中でCloseしない場合は、結局パターン1等でブックを特定することになり、返って悪いVBAとなってしまいます。
サイト内の参考ページ
パターン5：オブジェクト変数+Withステートメント
Sub sample5()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\yamao\Desktop\Book1.xlsx")
With wb
'・・・処理
.Close SaveChanges:=False
End With
End Sub
パターン3とパターン4を組み合わせて使用しています。
全体構想の考えがまとまっておらず、とりあえず書き始めるなら、このようにしておくと融通が効きやすい場合が多いでしょう。
もちろん、ワークシートのオブジェクト変数を使ったりする過程で、VBAの書きやすさ見やすさとの兼ね合いになります。
開いているブックをブック名で検索し閉じる場合
Sub sample6()
Dim i As Long
For i = 1 To
Workbooks.Count
If Workbooks(i).Name Like "*○○○*" Then
Workbooks(i).Close SaveChanges:=False
End If
Next
i
End Sub
Sub sample7()
Dim wb As Workbook
For Each wb In
Workbooks
If InStr(wb.Name, "○○○") > 0 Then
wb.Close
SaveChanges:=False
End If
Next
End
Sub
上記2つのVBAは同じことをしています。
Workbooksコレクションを処理する場合として、For...Nextで処理するか、For Each...Nextで処理するかの違いと、
Likeでワイルドカードを使う場合と、InStrで文字列位置を取得するかの違いです。
同じテーマ「マクロVBAサンプル集」の記事
重複削除してコピー（AdvancedFilter）
ブックを安全確実に開く方法（Open）
ブックを閉じる（Close）
他ブックを開いて閉じる（Open,Close）
ブックを開かずにセル値を取得（ExecuteExcel4Macro,Excel.Application）
罫線を簡単に引く（Borders,BorderAround）
マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ
オートフィルター（AutoFilter）
日付のオートフィルタ（AutoFilter）
印刷ダイアログを使用する（xlDialogPrint）
名前定義の一覧と削除（Name）
新着記事NEW ・・・新着記事一覧を見る
AIは便利なはずなのに…「AI疲れ」が次の社会問題になる｜生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開｜エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法｜エクセル雑感(2026-01-27)
IMPORTCSV関数（CSVファイルのインポート）｜エクセル入門(2026-01-19)
IMPORTTEXT関数（テキストファイルのインポート）｜エクセル入門(2026-01-19)
料金表（マトリックス）から金額で商品を特定する｜エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA｜その終焉とAIの台頭｜エクセル雑感(2026-01-13)
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- 他ブックを開いて閉じる（Open,Close）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.