Sub to refresh powerquery and pivot chart

Guinaba · Aug 14th 2021

Hi experts,

I have the code below to refresh Powerquery and one pivot chart. It works however I have to run twice to be able to refresh both items. Any suggestion how to fix this issue?

Code

Sub RefreshQueries_Click()
     ActiveWorkbook.Connections("Query - qryAldiScanData").Refresh   
'     Application.Wait (Now + TimeValue("0:00:05")) 
  Call RefreshData    
End Sub

Sub RefreshData()
    Sheets("Graph").PivotTables("PivotTable1").PivotCache.Refresh
    ThisWorkbook.RefreshAll    
End Sub

**alansidman** · Aug 14th 2021

Code

Sub Refresh()
ActiveWorkbook.RefreshAll
End Sub

This is the code I use.

Guinaba · Aug 16th 2021

Thanks alansidman, I have disable the query background refresh and my code is working now.

Sub to refresh powerquery and pivot chart

Participate now!

Share

Tags