workbookオブジェクトのクリアについて

質問

下記のコードはtest.xlsxを開き、ABCにセットして、開いたtest.xlsxを閉じた後、
ABCを参照しようとするコードです。
しかし、(4)でオートメーションエラーが発生します。
(3)のtest.xlsxを閉じるコードを
削除した場合うまくいきます。

開いたtest.xlsxを閉じた場合はABCにセットしたtest.xlsxもクリアされてしまうものなのでしょうか？

私のオブジェクトの認識では、エクセルファイルをオブジェクトにセットした場合はセット元のエクセルファイルは閉じてもworkbookオブジェクトのABCに保持されていると思っています。

※test.xlsxを閉じたい理由は以降のコードで同名ファイルを開きたいからです。

よろしくお願い致します。

Sub a()
Dim ABC As Workbook

Workbooks.Open (ThisWorkbook.Path & "\" & "test.xlsx") '(1)
Set ABC = Workbooks("test.xlsx") '(2)
Workbooks("test.xlsx").Close savechanges:=False '(3)
ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = ABC.Worksheets("Sheet1").Range("A1").Value '(4)
End Sub

回答No.1

keithin · ベストアンサー

＞workbookオブジェクトのABCに保持されていると思っています。

いいえ。ブックを閉じた時点で変数ＡＢＣの中身はクリアされます。
試しにＶＢＥ画面でローカルウィンドウを開き、変数ＡＢＣの中身を確認しながら１行ずつステップ実行してみてください。

＃補足
(2)によってＡＢＣにはtext.xlsxへの「参照」が代入されます。
ＡＢＣにブックを丸ごと格納しているのではありません。
ＡＢＣに格納した参照を足掛かりとして、ＡＢＣ.worksheets("シート名").range("セル番地")はtest.xlsxの実体を取得しようとします。が、既にtest.xlsxは閉じられているため、エラーになります。

お礼

ありがとうございました。そういうものなのですね。
それを前提にコーディングします。