| |
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
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/10/29(日) 21:47 -
