いつも大変お世話になっております。

いつも大変お世話になっております。
エクセルvbaについてお聞きしたいと思います。

aとbのエクセルファイルがあります。
aにはsheet1・sheet2、bにはsheet3・sheet4があります。
aのファイルにコードを入力し実行させ、ｂのファイルを開いてｂのSheet3を選択
したいのですが
”オブジェクトは、このプロパティまたはメソッドをサポートしていません。”
と実行エラーがでます。
他のブックを開いて他のブックのシートをコントロールすることはできるのでしょうか？
皆さんのお力をお貸しください。

Private Sub aのファイルのマクロ()
Workbooks.Open "C:\Documents and Settings\user\デスクトップ\b.xls"

Workbooks("b.xls").Sheets3.Select
End Sub

No.4 回答者： nbvcx 回答日時： 2009/12/31 05:52

下から2行目、

Sheets3→Sheets("Sheet3")ではないのですか？

※Sheet3部分はシート名と完全一致です。

No.3 ベストアンサー 回答者： Wendy02 回答日時： 2009/12/30 10:58

こんにちは。

"b.xls"が、アクィブになっていれば、Select は使えますが、
Workbooks("b.xls").Sheets3.Select 'Sheet3 というのは、Books の配下にはありませんから、
単に、オフジェクトを単体にして、Sheet3.Select 'と書くことになりますが、一般的ではありません。

なお、この内容で、なぜ、Private ステートメントをつけているのかなって思います。

あえて書くなら、標準モジュールに、こんなスタイルになりますね。
-------------------------------------------
Sub a_Test1()
With Workbooks.Open ("C:\Documents and Settings\user\デスクトップ\b.xls" )
.Worksheets("Sheet3").Select
End With
End Sub

この回答へのお礼

無事にプログラムが動くことになりました。ありがとうございます。

お礼日時：2010/01/05 19:58

No.2 回答者： Alshark 回答日時： 2009/12/30 09:39

私もうろ覚えなんですが、たしかBook・Sheet・Rangeは各々Selectしないといけないんじゃなかったかな？

Workbooks("b.xls").Activate
WorkSheets("Sheets3").Select 　　　シートまでならここまで
Range("A1").Select

No.1 回答者： tera333 回答日時： 2009/12/29 21:25

このままでいくなら、

Private Sub aのファイルのマクロ()
Workbooks.Open "C:\Documents and Settings\user\デスクトップ\b.xls"
Workbooks("b.xls").Sheets("sheet3").Select
End Sub
でどうですか？