Question

VBA关闭除当前工作簿以外的所有EXCEL工作簿

Answer 1

Sub aa()
    Dim wb As Workbook
        For Each wb In Workbooks
             If wb.Name <> ActiveWorkbook.Name Then
                wb.Close true
            End If
        Next
End Sub   默认保存