VBAでざっくりとした質問になります。

以下があります。

Sub VBA開始()
Bookを開く
処理
Workbooks.Close
End Sub

「Workbooks.Close」を記載すると開いているBOOKすべてが閉じてしまうのですが、VBA内で開いたBOOKのみを閉じるにはどのように記載すればよいでしょうか？

開く時に記載したプログラムです。
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Workbooks.Open OpenFileName

No.2 回答者： tom04 回答日時： 2020/08/03 17:57

こんにちは！

ざっくりとした回答になりますが、
No.1さんがおっしゃっているように一つ変数を増やしてみてはどうでしょうか？

Dim wB As Workbook
'Bookを開く
Set wB = ActiveWorkbook
'処理
wB.Save '//←保存する場合//
wB.Close

といった感じで・・・

※　保存しないで閉じる場合は
「保存確認」のメッセージを表示させない方法などもあります。m(_ _)m

No.1 回答者： fujillin 回答日時： 2020/08/03 16:55

こんにちは

＞開いたBOOKのみを閉じるにはどのように記載すればよいでしょうか？
Workbooks.Openの戻り値は、対象のブックオブジェクトになりますので、
　Set wb1 = Workbooks.Open OpenFileName
などとして変数に記憶しておいて、閉じる時には
　wb1.Close
とすれば、指定したブックだけ（wb1だけ）閉じることになります。

※ 開く対象のブックが複数ある場合でも、要領は同じです。

この回答へのお礼

回答ありがとうございます。
Set wb1 = Workbooks.Open OpenFileNameは
どこに記載すればよろしいのでしょうか？

お礼日時：2020/08/03 17:03