他ブックを開いて閉じる（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 ・・・新着記事一覧を見る
第5章：AI×VBAでつまづかない！トラブルシューティングとAIとの付き合い方
｜生成AI活用研究(2025-05-20)
第4章：【事例で学ぶ】AIとVBAでExcel作業を劇的に効率化する！
｜生成AI活用研究(2025-05-20)
第3章：AIを「自分だけのVBA先生」にする！質問・相談の超実践テクニック｜生成AI活用研究(2025-05-19)
第2章 VBAって怖くない！Excelを「言葉で動かす」（超入門）｜生成AI活用研究(2025-05-18)
第1章：AIって一体何？あなたのExcel作業をどう変える？（AI超基本）｜生成AI活用研究(2025-05-18)
AI時代のExcel革命：AI×VBAで“書かない自動化”超入門｜生成AI活用研究(2025-05-17)
Geminiと100本ノック 23本目：シート構成の一致確認｜生成AI活用研究（5月16日）
AIが問う出版の未来は淘汰か進化か：AIと書籍の共存の道とは｜生成AI活用研究(2025-05-16)
Geminiと100本ノック 22本目：FizzBuzz発展問題｜生成AI活用研究（5月15日）
すぐに使える！生成AI プロンプト作成 実践ガイド｜生成AI活用研究(2025-05-15)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- 他ブックを開いて閉じる（Open,Close）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。