「.Name」がエラーになる理由は？

質問

Sub 全てのシート名を取得する()
Dim w As Worksheet
Dim 行 As Long

行 = 1

For Each w In Worksheets
Debug.Print w.Name
行 = 行 + 1
Next
End Sub

Sub 全てのブック名を取得する()
Dim wb As Workbooks
Dim 行 As Long

行 = 1

For Each wb In Workbooks
Debug.Print wb.Name
行 = 行 + 1
Next
End Sub

標準モジュールに
ふたつのプロシージャーを作ったのですが
「全てのシート名を取得する」は問題なく動作しますが
「全てのブック名を取得する」は「.Name」の部分が
「コンパイルエラー
メソッドまたはデータ メンバが見つかりません。」 (Error 461)
になってしまいます。

なぜでしょうか？
全てのブック名を取得することはできないのですか？

回答No.1

himajin100000 · ベストアンサー

Workbooksオブジェクトがあるが、こいつにはNameプロパティがない。
http://msdn.microsoft.com/en-us/library/office/bb225771%28v=office.12%29

WorkbookオブジェクトにはNameプロパティがあり、こちらが正解。
http://msdn.microsoft.com/en-us/library/office/aa224504%28v=office.11%29.aspx

つまり、

Sub hoge()
Dim wb As Workbook 'こっちはWorkbooksじゃなくてWorkbook
For Each wb In Workbooks
Debug.Print wb.Name
Next
End Sub

ってこと

お礼

変数の宣言の時に「ｓ」を付けてしまったのが間違いの原因だったようですね。
ありがとうございました。大変参考になりました。

回答No.2

keithin

sub シートの巡回()
dim w as worksheet
for each w in worksheets

「ワークシーツ」コレクションオブジェクト（１冊のブックに含まれている全シートの集合）の中から、for eachで「ワークシートオブジェクト」（１枚のワークシート）を巡回しているので正解。

sub 正しいブックの巡回()
dim wb as workbook
for each wb in workbooks

「ワークブックス」コレクションオブジェクト（開かれているブックの集合）の中から、for eachで「ワークブックオブジェクト」（１つずつのブック）を巡回するのが正解。

お礼

やはり変数の宣言時の「ｓ」が余計だったようですね。ありがとうございました。