Excel 关闭活动工作簿

我在Excel宏中使用VBA，该宏将数据从活动工作簿复制到第二个工作簿，关闭第二个工作簿，然后关闭第一个工作簿。问题是ActiveWorkbook。close false仅关闭工作表，而不关闭工作簿；Excel仍在运行。这两段代码分别进行了测试，效果良好；在宏中组合时，存在关闭第一个工作簿的问题。我的代码是：

Sub SacoFieldUnitDataCopy()
' SacoFieldUnitsDataCopy Macro
' This macro copies the Saco Field Units Avail_Run Stat sheet to a new workbook.
'
ActiveWorkbook.RefreshAll
Call ConvertToValues("Saco Field Units Avail_Run Stat")
Sheets("Saco Field Units Avail_Run Stat").Select
Sheets("Saco Field Units Avail_Run Stat").Copy
ChDir "C:\Saco Units Avail_Run Stats"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
    "C:\Saco Units Avail_Run Stats\Saco Unit Avail_Run Data" & "  " & VBA.Format(Date, "MM-DD-YYYY") & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False
Call CloseAllOtherWorkbooks
Application.Wait (Now + TimeValue("0:00:03"))
ThisWorkbook.Close False
Application.DisplayAlerts = True


End Sub

Function ConvertToValues(Sheetname As String)
'Select Sheet
Sheets(Sheetname).Select
'Select All Cells
Range("B4:C26").Select
Selection.Copy
'Paste Special to remove formulas
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'Put cursor back on cell a1
Range("a1").Select
End Function

Function CloseAllOtherWorkbooks()
Dim WBs As Workbook
For Each WBs In Application.Workbooks
    If Not WBs.Name = ThisWorkbook.Name Then WBs.Close False
Next WBs
End Function

---

任何帮助都将不胜感激。提前感谢。

好吧，但您是特别要求Excel关闭工作簿，而不是对象Excel应用程序本身。试着换掉这条线

ThisWorkbook.Close False

为此：

Application.Quit

也就是说，假设两者都在同一个Excel实例上运行，这似乎是一样的。

当我使用“Application.Quit”时，计算机认为Excel意外关闭并重新启动Excel。