0
我在Excel宏中使用VBA將數據從活動工作簿複製到第二個工作簿,關閉第二個工作簿並關閉第一個工作簿。問題是ActiveWorkbook.close false只關閉工作表而不是工作簿; Excel仍在運行。這兩段代碼分別進行了測試,並且工作正常;當在宏觀上關閉第一個工作簿問題時退出。我的代碼是:在宏中使用Excel VBA關閉活動工作簿
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
任何幫助,將不勝感激。提前致謝。
當我使用「Application.Quit」時,計算機認爲Excel遇到意外關機並重新啓動Excel。 – johnveit