Excel2007VBA ブックのアクティブ化

質問

●質問の主旨（2点）
１．以下のコードは、なぜエラーが返されるのでしょうか？
２．タスクバーにあるアクティブ状態ではないブックの1枚目シートを
選択するためには、以下のコードをどのように書き換えれば良いでしょうか？

●質問の補足
タスクバーにはエクセルブック「Book1」と「Book2」を表示させ、
「Book1」の「sheet1」がアクティブになっています。
Book1の標準モジュールに以下のコードを記述しています。

Sub sample1()

Workbooks("Book2.xlsx").Activate
Worksheets("sheet1").Select

End Sub

しかし実行すると「実行時エラー9インデックスが有効範囲にありません」と
エラーが返されます。なぜそうなるのかが分かりません。

ご存知の方がいらっしゃればご教示よろしくお願い申し上げます。
私はＶＢＡ初心者です。

回答No.1

noname#158634 · ベストアンサー

Book2が保存されていないから。

お礼

tk-is-pg_1206様
ご回答ありがとうございます。

アドバイスいただきましたように
Book2が保存された状態で実行すると、
意図通りの命令ができました。

助かりました。

回答No.3

MARU4812

質問履歴を公開してくれてるから言うけど、
Excel を操作しはじめて半年。もうそろそろ
初心者という言葉に頼らないようにすべき。

基本的なデバッグ作業で自力で確認できる
内容だよこれ。

ブック名やシート名がどうなっているかを
確認するコードを書けばいいし。
Sub Macro1()
　Dim xlsBook As Excel.Workbook
　Dim xlsSheet As Excel.Worksheet
　Set xlsBook = Application.Workbooks.Add() '新規
　MsgBox xlsBook.Name
　Set xlsSheet = xlsBook.Worksheets("sheet1")
　xlsSheet.Range("A1").Value = "Test"
　MsgBox xlsSheet.Range("A1").Value

　xlsSheet.Activate
End Sub

Sub Macro2()
　Dim xlsBook As Excel.Workbook
　Dim xlsSheet As Excel.Worksheet
　Dim strMsg As String

　For Each xlsBook In Application.Workbooks
　　strMsg = strMsg & "[" & xlsBook.Name & "]" & vbCrLf
　　For Each xlsSheet In xlsBook.Worksheets
　　　strMsg = strMsg & xlsSheet.Name & ","
　　Next
　　strMsg = strMsg & vbCrLf
　Next
　MsgBox strMsg
End Sub

お礼

MARU4812様
ご回答ありがとうございます。

No.1様のご指摘に従って
Book2が保存された状態で実行すると、
意図通りの命令ができました。
.
上記のコードは今後のＶＢＡ学習の参考と
させていただきます。

回答No.2

FEX2053

#1さんの問題がまず考えられますけど。いったん保存しないとブック名が確定しないんです。

そのほかに、Book2.xlsxにsheet1が本当にありますか？タマに全角と半角を間違えていたりします。

お礼

FEX2053様
ご回答ありがとうございます。

No.1様のご指摘通り
Book2が保存された状態で実行すると、
意図通りの命令ができました。