如何用http.Open "GET"获取HTML表格数据？VBA代码无法定位表格求解

核心问题 #

你代码里用的类名wikitable sortable jquery-tablesorter中，jquery-tablesorter是页面加载后由JavaScript动态添加的类，通过WINHTTP获取的原始HTML响应里并不包含这个类，所以无法匹配到目标表格。

修正后的代码 #

Option Explicit

Sub ScrapeWikiPopulationTable()
    Dim oHtml As HTMLDocument
    Dim oTable As Object
    Dim oRow As Object
    Dim oCell As Object
    Dim rowNum As Long, colNum As Long
    
    Set oHtml = New HTMLDocument
    
    ' 获取网页内容
    With CreateObject("WINHTTP.WinHTTPRequest.5.1")
        .Open "GET", "https://en.wikipedia.org/wiki/List_of_countries_and_dependencies_by_population", False
        .send
        oHtml.body.innerHTML = .responseText
    End With
    
    ' 使用静态类名定位表格（去掉动态添加的jquery-tablesorter）
    Set oTable = oHtml.getElementsByClassName("wikitable sortable")(0)
    
    If Not oTable Is Nothing Then
        rowNum = 1
        ' 遍历表格行
        For Each oRow In oTable.getElementsByTagName("tr")
            colNum = 1
            ' 遍历行内数据单元格
            For Each oCell In oRow.getElementsByTagName("td")
                Sheets("Sheet1").Cells(rowNum, colNum).Value = oCell.innerText
                colNum = colNum + 1
            Next oCell
            ' 处理表头单元格
            For Each oCell In oRow.getElementsByTagName("th")
                Sheets("Sheet1").Cells(rowNum, colNum).Value = oCell.innerText
                colNum = colNum + 1
            Next oCell
            rowNum = rowNum + 1
        Next oRow
    Else
        MsgBox "未找到目标表格"
    End If
    
    Set oHtml = Nothing
    Set oTable = Nothing
End Sub

额外说明 #

1. 添加Option Explicit强制变量声明，避免未定义变量引发的错误
2. 改用静态存在的类名wikitable sortable定位表格，确保匹配原始HTML中的目标元素
3. 拆分表格行与单元格，将内容分别写入Excel对应位置，避免所有内容挤在单个单元格
4. 同时处理表头（th标签）和数据行（td标签），完整提取表格内容

内容的提问来源于stack exchange，提问作者ASH