ＶＢＡで開いているファイルの数を調べる

ＶＢＡの初心者です。
ExcelVBAで現在このプログラムのファイル以外に開いているファイルの数がいくつあるか調べるには、どのように書いたらよいでしょうかお教え下さい。

No.2 ベストアンサー 回答者： zap35 回答日時： 2006/12/04 10:43

Msgbox(workbooks.Count)

ですが、開いているようには見えないけれど開いているＢＯＯＫが存在する場合があります。(マクロブックやアドインなど）

見た目と数が一致しない場合は、それぞれのブック名を確認される方がよいでしょう

この回答へのお礼

回答ありがとうございました。
うまくいきました。

お礼日時：2006/12/04 11:21

No.1 回答者： nicotinism 回答日時： 2006/12/04 08:33

Function test()

　　Dim bk As Object
　　
　　Debug.Print "ファイルの数は全部で " & Workbooks.Count
　　For Each bk In Workbooks
　　　　Debug.Print bk.Name
　　Next
End Function
ということかな？