Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Using VBA to Update an Existing Web Query

Sub RefreshAllWebQueries()     Dim QT As QueryTable     For Each QT In ActiveSheet.QueryTables         Application.StatusBar = "Refreshing " & QT.Connection         QT.Refresh     Next QT     Application.StatusBar = False End Sub