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

質問

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

回答No.2

zap35 · ベストアンサー

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

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

お礼

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

回答No.1

nicotinism

Function test()
　　Dim bk As Object

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