Pause macro until Power Queries finished refreshing|VBA & Macros|Excel Forum|My Online Training Hub

It's not working, i had just copy paste in VBA, still it's not working, can you please let me know how to do?

Catalin Bombea said 

You will get such code if you use the macro recorder while performing this action manually for a connection. Unfortunately, there is a bug, the code will continue before the last query is completed 

Just hit this issue myself.
If the bug is still an issue, another (untested) workaround is to loop twice.
This may still be an issue with a single connection.

Sub ChangeConnectionBackgroundRefreshMode()
    'On Error Resume Next
    Dim conn As WorkbookConnection
    Dim bugfix As Integer
    For bugfix = 1 To 2
        For Each conn In ActiveWorkbook.Connections
            With conn
                If (.Type = xlConnectionTypeOLEDB) Then
                    .OLEDBConnection.BackgroundQuery = false
                Else
                If (.Type = xlConnectionTypeODBC) Then
                    .ODBCConnection.BackgroundQuery = false
                End If
                End If
            End With
        Next conn
    Next bugfix
End Sub

Thanks,
Andrew K.

Why is this still a problem 3 years later!  Shesh Microsoft!  Anyway, THANKS to Gregory.

Step 1:  I created a "hello world" query from a blank query and a sheet to store result

Step 2: Refresh query before my other queries seems to do the trick.  (BTW, I have a trick to pull in only "pages" from PDFs if anyone interested).

' ONLY RUNNING THIS TO PREVENT "UNEXPECTED ERROR" Silly frown POPUP ' It forces Power Query to finish up last query before VBA code asks to do another in a loop

Sheets("DummyQueryForKludgeWait").Select Columns("A:A").

Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Started getting problems with above, so doing this now

' ONLY RUNNING THIS TO PREVENT UNEXPECTED ERROR POPUP
' it forces Power Query to finish up before VBA code asks for more

Sheets("DummyQueryForKludgeWait").Select
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=DummyQueryForKludgeWait;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [DummyQueryForKludgeWait]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "DummyQueryForKludgeWait"
.Refresh BackgroundQuery:=False
End With
' Now delete link to query, I wish I understood better!
Columns("A:A").Select
Selection.ListObject.QueryTable.Delete
Selection.ClearContents
Range("A1").Select