使用QuertyTables.Add VBA的动态网址

Sub AddQueryTable()
    Dim ws As Worksheet
    Dim qt As QueryTable
    Dim url As String
    
    ' 设置要添加查询表格的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置动态网址
    url = "http://example.com/data"
    
    ' 添加查询表格
    Set qt = ws.QueryTables.Add(Connection:="URL;" & url, Destination:=ws.Range("A1"))
    
    ' 设置查询表格的属性
    With qt
        .Name = "DynamicTable"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    ' 更新查询表格
    qt.Refresh
    
    ' 清除查询表格的连接
    qt.Delete
End Sub