Activeブック以外の開いているブックを閉じたい

複数のbookが開いている状態で、
Activebook以外のworkbookを閉じたいです。
book名、book数は一定ではありません。

こんなことをしてみたのですが動かないです。
何かよい方法はないでしょうか。

Dim hbook As Object
名前 = ActiveWorkbook.Name
For Each hbook In Workbooks
If hbook.Name <> 名前 Then
Workbooks(hbook & ".xls").Close ' False
End If
Next

No.1 ベストアンサー 回答者： maruru01 回答日時： 2005/04/25 11:33

こんにちは。

maruru01です。

Workbooks(hbook & ".xls").Close

↓

hbook.Close

では？

この回答へのお礼

有難うございます。
記述がおかしかったですね。
助かりました。

お礼日時：2005/04/25 11:51

No.2 回答者： taocat 回答日時： 2005/04/25 11:44

こんにちは。

一般的には、maruru01さんの方法ですが、
どうしてもWorkbooksを使いたければ

Workbooks(hbook & ".xls").Close　を

Workbooks(hbook.Name).Close　にする
　
以上です。

この回答へのお礼

有難うございます。
何故かまどろっこしい書き方をしてました。
下記で動きました。

Dim hbook As Worksheet
For Each hbook In Workbooks
If hbook.Name <> ActiveWorkbook.Name Then
hbook.Close
End If
Next

お礼日時：2005/04/25 11:50