Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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