VBAで別ブックのセルを指定する際のエラー

Question

前提・実現したいこと

VBAで別ブックを操作する際のエラーについて、
原因が分からず困っています。

「基データ」ブックの「リスト」シートを新規ブックにコピーして、
「基データ」ブック側では値をクリアしたいのですが、
「基データ」ブックの
下記ソースコードについて、
Workbooks("基データ").list.range(list.cells...)
の太字の箇所がエラーになります。
Workbooks("基データ").Worksheets("リスト").range(list.cells...)
とすると動くのですが、
このとき、セルの番地を指定するための「list」はそのままでも動く理由がわかりません。

下記ソースコード外に原因がありそうであれば追記いたします。

＜ 使用 Excel：Office365、使用 OS：Windows7 ＞

発生している問題・エラーメッセージ

VBA エラー 438 
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

該当のソースコード

Dim list As Worksheet
Set list = Worksheets("リスト")

Workbooks("基データ.xlsm").list.Range(list.Cells(2, 7), list.Cells(k, 11)).ClearContents

Answer 1

Worksheets("リスト") は、ActiveWorkbook.Worksheets("リスト") の省略形です。
つまりアクティブなファイル（マクロを実行しているファイル）内の「リスト」シートを示します。

Workbooks("基データ.xlsm").Worksheets("リスト") は「基データ」ファイルの「リスト」シート、を意味します。

Workbooks("基データ.xlsm").list は「基データ」ファイル内の「マクロを実行しているファイル内のリストシート」という、わけのわからないものを指定していることになります。

Set list = Workbooks("基データ.xlsm").Worksheets("リスト")

list.Range(list.Cells(2, 7), list.Cells(k, 11)).ClearContents

とすることで指定したい状態になると思いますが、いかがでしょうか。

---

Workbooks("基データ").Worksheets("リスト").range(list.cells...)

とすると動くのですが、
このとき、セルの番地を指定するための「list」はそのままでも動く理由がわかりません。

list を展開して書き直すと、

Workbooks("基データ").Worksheets("リスト").Range(ActiveWorkbook.Worksheets("リスト").Cells(2, 7), ActiveWorkbook.Worksheets("リスト").Cells(k, 11)).ClearContents と参照しているのは「基データ」ファイルではなく、マクロを実行しているファイルの「リスト」シートとなります。

「基データ」はマクロファイルからコピーしているとのことで、つまりは「たまたま結果が一致する」状態だったということです。

Comments

[kurakawa]

まさしくこれが原因でした。
全く知らなかったため、勉強になりました。
ありがとうございました。

Answer 2

Debug.Print list.Parent.Name

全体がわからないのでなんとも言えませんが、
どのファイルのシートかこれでわかりますので確認してみましょう。
シートをオブジェクト変数に入れている場合は同じシート名でも
他のファイルで利用することはできません。

Comments

[kurakawa]

解決しました。
恥ずかしながら確認していないアプローチでした。

ありがとうございました。