VBA不會關閉工作簿，並且會繼續保存

Question

我是VBA的新手，並試圖編寫一個宏，該宏在打開工作簿時將刷新，保存和關閉我的工作簿。 它不會關閉工作簿，而是一直將所有時間都保存在較新的版本中。

Sub Main()

Dim sngStartTime, sngTotaltime As Date                                            
Dim LstUpdateRow As Integer                                                     
sngStartTime=Now                                                                

LstUpdateRow = Workbooks("Quick").Worksheets("settings").Range("c60000").End(xlUp).Row + 1               
sngTotaltime = Now - sngStartTime                                                 
Workbooks("Quick").Worksheets("Settings").Cells(LstUpdateRow, 3) = Now                                   
Workbooks("Quick").Worksheets("Settings").Cells(LstUpdateRow, 4) = sngStartTime                          
Workbooks("Quick").Worksheets("Settings").Cells(LstUpdateRow, 5) = sngTotaltime                          

End Sub

Sub RefreshData()

Application.Run "RefreshEntireWorkbook"

Application.Run "RefreshAllStaticData"

Application.OnTime Now() + TimeValue("00:00:05"), "Main"

End Sub

的ThisWorkbook：

Private Sub Workbook_Open()

Main
RefreshData

Workbooks("Quick").Close Savechanges:=true

End Sub

Answer 1

嘗試放入：

Workbooks("Quick.xlsm").Close Savechanges:=true

或針對特定工作簿的擴展名。 我（一定程度上）復制了工作簿，並像您自己一樣打開了它。 文件被打開，按照其指示執行，保存並關閉。