creates a QueryTable object on the active worksheet and sets its data source to a single table from a Web page at the designated location: : QueryTable « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. QueryTable

creates a QueryTable object on the active worksheet and sets its data source to a single table from a Web page at the designated location:

 
Public Sub ImportWeb()
   Dim qt As QueryTable
   Set qt = ActiveSheet.QueryTables.Add(Connection:=" URL;http://finance.yahoo.com/q?s=^DJI&d=v1", _
        Destination:=Range("A1"))
    With qt
        .name = "DJIQuery"
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "16"    ' DJI table
        .WebFormatting = xlWebFormattingNone
        .EnableRefresh = True
        .RefreshPeriod = 5   'Unit in minutes
        .Refresh     'Execute query
    End With

    Set qt = Nothing
End Sub








Related examples in the same category

1.Using VBA to Update an Existing Web Query
2.Building a New Web Query with VBA