ワークブックを閉じる方法

いつもお世話になっております。
おしえてくれませんでしょうか
Book1.xlsm　以外の開いている
ワークブックを閉じる方法
お願い致します。

Private Sub CommandButton12_Click()
Dim wbbb As Workbook
For Each wbbb In Workbooks
If wbbb.Name <> "Book1.xlsm" Then
wbbb.Saved = True
wbbb.Close
End If
Next
Application.Quit



End Sub

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

• 

  Application.Quit外しました。
  Book1のエクセルが表示されてしまいます。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/12/01 09:12

• 

  creatobject("Shell.application").open "path名"
  この時に本体のbook1のエクセルが表示されます。
  昨日までは表示されませんでした。

    補足日時：2021/12/01 09:14

No.2 回答者： Qchan1962 回答日時： 2021/12/01 11:13

連投です

＞Book1のエクセルが表示されてしまいます。
＞本体のbook1のエクセルが表示されます。
当然のように思えるので、示されているコードだけでは、
私にはわかりません。
ユーザーフォームロード時に操作しているのでしょうか？

＞昨日までは表示されませんでした。

分からないので確度の低い推測ですが、（全然違うかも）
同じ操作で不具合が出ているのであれば、最近に行われたWindowsアップデートやOfficeアップデートに原因があるかも知れません。
（creatobject("Shell.application")なので、、）
どこの処理に問題が生じているのか切り分けて検証するしかないかな？

どこの処理に問題が生じているのか分からない時の対策は一般的な方法？
取敢えず、最新の更新を実行、Officeの修復など、一連の修復処理工程を試すとか、、、
Updateに問題がある場合は、Updateを戻す？改善されたUpdateを待つ
同様の処理を他の方法で構築する。（2016の時に行った経験があります）
などなど、、最近は比較的修正Update配布されるようですが、、難儀ですね。

この回答へのお礼

ありがとうございます。

お礼日時：2021/12/01 11:15

No.1 回答者： Qchan1962 回答日時： 2021/12/01 00:21

こんばんは

Application.Quit　？
Excel を終了してしまっていますが、よろしいのでしょうか？

この回答へのお礼

ありがとうございます。

お礼日時：2021/12/01 11:15