data refresh all worksheets in a workbook using vba

G

Guest

I have set up a Database query and query will get data to populate all
worksheets in a workbook. At the moment I have to go to each worksheet and
press refresh data button to update. Is there a VBA code whereby I could
refresh all worksheets in the workbook.

Thanks
 
K

Ken Wright

Sub RefreshQrys()
For Each wSht In ThisWorkbook.Worksheets
For Each qt In wSht.QueryTables
qt.Refresh
Next
For Each pt In wSht.PivotTables
pt.RefreshTable
Next
Next
End Sub


Works best if none of the queries have the "BackgroundQuery" property set to
true as it ensures that they are refreshed 1 at a time
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Auto update some spreadsheets inside a shared workbook and NOT others 0
Refresh VBA 1
Refresh data with macro code 0
Refreshing external data on individual sheets in a specific sequen 1
Refreshing query data via vba button 2
vba code does not run 3
Linking to Access Table 2
VBA Excel - Select a value from one cell in Excel to update a SQL table 1

Top