Excel asks to save a workbook when it is closed even if the last thing done to workbook was a save|VBA & Macros|Excel Forum|My Online Training Hub

I have a macro that refreshes a data query that gets information about the files in a specific folder. In the properties settings for the query all the refresh options are off.

The macro (GetNewDocuments) is run automatically when the workbook is opened. This is done from Auto_Open. Auto_Open tells the GetNewDocuments macro to save the workbook when the refresh is finished.

I know that the workbook has been saved by checking the last modified time for the workbook.

However when I close the workbook without having made any additional changes Excel asks if a save should be done.

I added Application.CalculateFull, Application.CalculateAsyncQueriesDone and the DoEvents loop waiting on xlDone to see if would help. None of these changes made any difference.

If I change the UpdateDocuments macro to pass True instead of False the workbook is saved and I can close it without Excel asking to save it again. The problem only occurs when GetNewDocuments is called from Do_Open.

Anyone have an idea what I am missing?

Source for macros:

Sub GetNewDocuments(DoSave As Boolean)

'

' UpdateDocuments Macro

' Get new documents that have been added to the source folder

'
ActiveWorkbook.Connections("Query - FolderFilesList").OLEDBConnection.BackgroundQuery = False

    ActiveWorkbook.Connections("Query - FolderFilesList").Refresh

    Application.CommandBars("Queries and Connections").Visible = False

    Sheets(1).Select

    Cells(1, 1).Select

    Application.CalculateFull

    Application.CalculateUntilAsyncQueriesDone

    Do While Application.CalculationState <> xlDone

        DoEvents

    Loop

    If DoSave Then

        ActiveWorkbook.Save

    End If

End Sub

Sub UpdateDocuments()

'  Add new documents when a button linked to this macro is clicked, workbook is not saved

   Call GetNewDocuments(False)

End Sub

Sub Auto_Open()

'  Add new documents when spreadsheet is opened, workbook is saved

   Call GetNewDocuments(True)

End Sub