Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37951 / 76732 ←次へ | 前へ→

【43927】Re:不要なブックを閉じるには?
回答  りん E-MAIL  - 06/10/29(日) 22:19 -

引用なし
パスワード
   galikun さん、こんばんわ。

>複数のブックを開いた場合に、アクティブなブックはそのままで、それ以外のブックを保存なしで閉じるマクロを教えて下さい。
非表示なヤツ(Personal等)と、このマクロがあるブックが閉じると不都合があるかもしれないので、それらを除外してアクティブなブック以外を閉じます。

Sub test()
  Dim wb As Workbook, flg As Boolean
  For Each wb In Application.Workbooks
   '非表示ブックは無視します
   If wb.Windows(1).Visible = True Then
     'このマクロのあるブック名またはアクティブなブック名と一致すればTrue
     tf = (wb.Name = Application.ActiveWorkbook.Name) Or _
        (wb.Name = Application.ThisWorkbook.Name)
     If tf = False Then
      wb.Saved = True '保存したふり
      wb.Close    '閉じる
     End If
   End If
  Next
End Sub

こんな感じです。

0 hits

【43925】不要なブックを閉じるには? galikun 06/10/29(日) 21:47 質問
【43927】Re:不要なブックを閉じるには? りん 06/10/29(日) 22:19 回答
【43928】Re:不要なブックを閉じるには? galikun 06/10/29(日) 22:43 お礼
【43929】Re:不要なブックを閉じるには? りん 06/10/29(日) 22:45 発言
【43930】Re:不要なブックを閉じるには? galikun 06/10/29(日) 23:06 お礼

37951 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free