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 · ベストアンサー

こんにちは。maruru01です。

Workbooks(hbook & ".xls").Close

↓

hbook.Close

では？

お礼

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

回答No.2

taocat

こんにちは。

一般的には、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