VBA wird keine Arbeitsmappe schließen und speichert weiter

Question

Ich bin sehr neu in VBA und habe versucht, ein Makro zu schreiben, das meine Arbeitsmappe aktualisiert, speichert und schließt, wenn ich sie öffne. Es schließt die Arbeitsmappe nicht, sondern speichert die ganze Zeit in einer neueren Version.

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

Versuchen setzen:

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

Oder was auch immer Ihre Erweiterung für diese bestimmte Arbeitsmappe ist. Ich replizierte das Arbeitsbuch (bis zu einem gewissen Grad) und öffnete es, als ob Sie es selbst wären. Die Datei öffnete sich, tat, was gesagt wurde, wurde gespeichert und geschlossen.