Excel，VBA:如何从属于同一域的多个html网站抓取某些数据

Sub 抓取数据()
    Dim 网站列表() As String
    Dim 数据行 As Integer
    
    ' 定义要抓取的网站列表
    网站列表 = Split("http://www.example1.com,http://www.example2.com,http://www.example3.com", ",")
    
    ' 清空之前的数据
    Sheets("数据").UsedRange.Clear
    
    ' 遍历网站列表
    For 数据行 = 1 To UBound(网站列表) + 1
        ' 创建新的Web查询
        With Sheets("数据").QueryTables.Add(Connection:="URL;" & 网站列表(数据行 - 1), Destination:=Sheets("数据").Cells(数据行, 1))
            .Name = "数据" & 数据行
            .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
    Next 数据行
    
    ' 删除多余的查询表
    For Each 查询表 In Sheets("数据").QueryTables
        查询表.Delete
    Next 查询表
End Sub