検索プログラマのメモ帳

壁にぶつかったら検索で調べるプログラマのちょっと遅れたメモ帳。たまに自分で挑戦する。

Skip to: Content | Sidebar | Footer

特定ワークブックを閉じる

5 2月, 2009 (16:04) | VBA・エクセル | By: admin

BOOK_NAMEとCOPY_BOOK_NAMEだけを開いていたら閉じる

Dim num As Long
For num = Workbooks.Count To 0 Step -1
If StrComp(Workbooks(num).Name, BOOK_NAME) = 0 Or StrComp(Workbooks(num).Name, COPY_BOOK_NAME) = 0 Then
Workbooks(num).Close
End If
Next

後ろから見ていかないとエラーになる。

最初、StrCompではなく、「=」で文字列の比較をやろうとしたらエラーがでました。

Write a comment