VBA 关闭

281508269

使用VBA代码写一段程序：
当只有一个excel文件打开时，关闭excel应用程序;
当有多个excel文件打开时，关闭当前excel文件,保留其他的excel文件不关闭。


Windows("Export.xlsm").Activate
            Worksheets("Manual").Range("AA4").Select
            ActiveWindow.Close


我现在这样每次能关闭当前的文件。但是还有个空白的excel应用需要再次手动关闭

3190496160

Sub 关闭()
For Each wbk In Workbooks
    ts = ts + 1
Next wbk
If ts = 1 Then
    ThisWorkbook.Save
    Application.Quit
Else
    ThisWorkbook.Close True
End If
End Sub

3190496160