VBAサンプル集
他ブックを開いて閉じる(Open,Close)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2020-04-15

他ブックを開いて閉じる(Open,Close)


他のExcelブックを開いて、何らかの処理(転記等)を実行した後に、そのブックを閉じる。
VBAでは、よくあるパターンですね。
ワークシート関数では出来ない、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を書くことは無くなりますが、基本として必ず覚えておくべきものです。

サイト内の参考ページ

第63回.ブックを開く(Open)
他のブックを開く方法です。しかし、これが結構いろいろあるのです。Excelで開くことが出来るファイルはCSV等のテキストファイルもありますが、ここではエクセルファイル限定で説明します。テキストファイルやCSVについては、別の記事を参考にして下さい。
第64回.ブックを閉じる・保存(Close,Save,SaveAs)
ワークブックを閉じる場合や保存する場合のVBAの説明です。閉じる時に保存するか保存しないかを指定できます、また、ブックを保存するにも、上書きなのか別ファイルにするのか等によってVBAの記述がそれぞれ違ってきます。ブックを閉じる ブックを閉じるには、WorkbookのCloseメソッドを使用します。

パターン2:Workbooks.Count

Sub sample2()
  Workbooks.Open "ブックのフルパス"
  '・・・処理
  Workbooks(Workbooks.Count).Close SaveChanges:=False
End Sub

OpenしたブックはWorkbooksコレクションに追加されます。
つまり、Workbooksの最後が開いたブックになります。
Workbooks.Countは、開いているブック数です。
つまり、Workbooks(Workbooks.Count)は最後に開いたブックになります。

考え方としては覚えておくべきことですが、このVBAを実際に使う事は無いと思います。

サイト内の参考ページ

第53回.Workbookオブジェクト
Workbookオブジェクトは、ワークブックそのものです。1つのワークブックは、1つのExcelファイルです。マクロVBAで複数のブックを扱う場合や、ブックを読込んだり保存したりする場合は、Workbookオブジェクトをしっかり意識しつつVBAを記述しなければなりません。

パターン3:オブジェクト変数

Sub sample3()
  Dim wb As Workbook
  Set wb = Workbooks.Open("ブックのフルパス")
  ・・・処理
  wb.Close SaveChanges:=False
End Sub

Openメソッドの戻り値(開いたブックのオブジェクト)を変数に入れています。
オブジェクト変数への代入はSetステートメントを使用します。
これ以降は、このオブジェクト変数を使う事で開いたブックに対して処理することができます。

この使い方は、初心者から上級者まで使う最も基本的なVBAになります。

サイト内の参考ページ

第51回.Withステートメント
Withステートメントを使う事で、Withに指定したオブジェクトに対してオブジェクト名を再度記述することなく、プロパティやメソッドを記述することができます。文章で例えて言えば、主語を一度書いたら、その後は主語を省略するような書き方になります。
第52回.オブジェクト変数とSetステートメント
変数のデータ型の説明において、Object…オブジェクト型 というのがあった事を覚えているでしょうか。数値や文字ではなく、オブジェクトを入れる変数がオブジェクト変数です。オブジェクトと言っても、いろいろなものがあります。

パターン4:Withステートメント

Sub sample4()
  With Workbooks.Open("ブックのフルパス")
    '・・・処理
    .Close SaveChanges:=False
  End With
End Sub

Openメソッドの戻り値(開いたブックのオブジェクト)をWithに指定しています。
Withの中(End Withまで)では、.ドットから書き始めることでWithに指定したオブジェクトの記述を省略できます。

変数が必要なくなりVBA記述が短くて済みますが、
使用するのは、End Withの手前で必ずブックを閉じる場合のみに限定されます。
Withの中でCloseしない場合は、結局パターン1等でブックを特定することになり、返って悪いVBAとなってしまいます。

サイト内の参考ページ

第51回.Withステートメント
Withステートメントを使う事で、Withに指定したオブジェクトに対してオブジェクト名を再度記述することなく、プロパティやメソッドを記述することができます。文章で例えて言えば、主語を一度書いたら、その後は主語を省略するような書き方になります。
第52回.オブジェクト変数とSetステートメント
変数のデータ型の説明において、Object…オブジェクト型 というのがあった事を覚えているでしょうか。数値や文字ではなく、オブジェクトを入れる変数がオブジェクト変数です。オブジェクトと言っても、いろいろなものがあります。

パターン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の書きやすさ見やすさとの兼ね合いになります。

開いているブックをブック名で検索し閉じる場合

ついでに、開いているブックをブック名で検索し閉じる場合の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も書けるようになっていた方が良いでしょう。



同じテーマ「マクロVBAサンプル集」の記事

重複削除してコピー(AdvancedFilter)
ブックを安全確実に開く方法(Open)
ブックを閉じる(Close)
他ブックを開いて閉じる(Open,Close)
ブックを開かずにセル値を取得(ExecuteExcel4Macro,Excel.Application)
罫線を簡単に引く(Borders,BorderAround)
マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ
オートフィルター(AutoFilter)
日付のオートフィルタ(AutoFilter)
印刷ダイアログを使用する(xlDialogPrint)
名前定義の一覧と削除(Name)


新着記事NEW ・・・新着記事一覧を見る

VBA100本ノック 18本目:名前定義の削除|VBA練習問題100(11月6日)
VBA100本ノック 17本目:重複削除(ユニーク化)|VBA練習問題100(11月6日)
VBA100本ノック 16本目:無駄な改行を削除|VBA練習問題100(11月5日)
VBA100本ノック 15本目:シートの並べ替え|VBA練習問題100(11月4日)
VBA100本ノック 14本目:社外秘シート削除|VBA練習問題100(11月3日)
VBA100本ノック 13本目:文字列の部分フォント|VBA練習問題100(11月1日)
VBA100本ノック 12本目:セル結合を解除|VBA練習問題100(10月31日)
VBA100本ノック 11本目:セル結合の警告|VBA練習問題100(10月30日)
VBA100本ノック 10本目:行の削除|VBA練習問題100(10月29日)
VBA100本ノック 9本目:フィルターコピー|VBA練習問題100(10月28日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.マクロって何?VBAって何?|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ