教えて!gooグレードポイントがdポイントに!

いつもお世話になっています
教えていただきたいです
このコードをユーザーフォームにある
コマンドボタンから
実行するとthisWorkbookが
閉じられ他の開いてある
ブックはそのままのこります


Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> thisWorkbook.Name Then
wb.Close
End If
Next

質問者からの補足コメント

  • 標準モジュールから
    実行すると問題なくうまくいくのですが

      補足日時:2021/12/01 09:38
教えて!goo グレード

A 回答 (2件)

理由はわかりませんが、



>標準モジュールから実行すると問題なくうまくいくのですが

コードを標準モジュールに記載してCallで呼んでみてもダメなのかな?
    • good
    • 0

For Each wb In Workbooks


debug.print wb.name
debug.print thisworkbook.name
debug.print wb.Name <> thisWorkbook.Name
next
などやって原因をさぐってみたら?
    • good
    • 1

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

教えて!goo グレード

人気Q&Aランキング