VBA不会closures工作簿，并保持存储

我对VBA很陌生，并试图编写一个macros，当我打开它时，它将刷新，保存并closures我的工作簿。 它不会closures工作簿，而只是一直保存在新版本中。

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 

或者，无论你的扩展是为那个特定的工作簿。 我复制了工作簿（在一定程度上），并打开它，就好像你自己。 文件打开，做了什么被告知要做，保存和closures。