Workbookオブジェクトに格納できない

質問

一つのアプリケーション内で、
2008.xlsx
2009.xlsx
のファイルを開いているのですが
2009.xlsxの標準モジュールから
2008.xlsxをWorkbookオブジェクトに格納するにはどうすればいいですか？

例えば、2008.xlsxの全てのファイル名を取得したい場合、

Sub Sample()
Dim w As Workbook
Dim s As Worksheet

Set w = Windows("2008.xlsx")

For Each s In Worksheets
Debug.Print s.Name
Next
End Sub

を実行しようとすると、
型が一致しません。(Error 13)になります。

回答No.1

oka_me · ベストアンサー

Dim w As Workbook
↓
Dim w As Window

もしくは

Set w = Windows("2008.xlsx")
↓
Set w = Workbooks("2008.xlsx")

のどちらか一方で動きましたがどうでしょうか。。。

WorkbookとWindowでは型は別物です。

お礼

ありがとうございます。