使用Excel VBA从SVG格式网页导入数据

嘿，刚接触VBA就尝试自动导入网页数据，这想法超赞！针对你提到的那个页面，我整理了一份适合新手的VBA脚本，能把目标表格的数据精准导入Excel，我会一步步给你说明用法和代码逻辑~

第一步：准备工作 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 点击菜单栏的「工具」→「引用」，找到并勾选Microsoft HTML Object Library（这是解析网页HTML必需的库）
3. 右键点击左侧的工程窗口，选择「插入」→「模块」，把下面的代码粘贴进去

完整VBA代码 #

Sub ImportClubEloResults()
    Dim xmlHttp As Object
    Dim htmlDoc As HTMLDocument
    Dim tableElement As HTMLTable
    Dim rowElement As HTMLTableRow
    Dim cellElement As HTMLTableCell
    Dim targetSheet As Worksheet
    Dim rowNum As Integer, colNum As Integer
    
    ' 设置要导入数据的工作表（这里用Sheet1，你可以改成自己需要的工作表名）
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    ' 清空工作表原有数据（可选，根据你的需求调整）
    targetSheet.Cells.Clear
    
    ' 创建XMLHTTP对象，获取网页内容
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    On Error GoTo ErrorHandler ' 捕获请求错误
    xmlHttp.Open "GET", "http://clubelo.com/2018-02-11/Results", False
    xmlHttp.send
    
    ' 解析网页内容为HTML文档
    Set htmlDoc = New HTMLDocument
    htmlDoc.body.innerHTML = xmlHttp.responseText
    
    ' 定位目标表格（该页面的结果表格是页面里的第一个table元素）
    Set tableElement = htmlDoc.getElementsByTagName("table")(0)
    
    ' 循环遍历表格的每一行
    rowNum = 1
    For Each rowElement In tableElement.Rows
        colNum = 1
        ' 遍历当前行的每个单元格
        For Each cellElement In rowElement.Cells
            ' 把单元格内容写入Excel对应位置
            targetSheet.Cells(rowNum, colNum).Value = cellElement.innerText
            colNum = colNum + 1
        Next cellElement
        rowNum = rowNum + 1
    Next rowElement
    
    ' 自动调整列宽，让数据更美观
    targetSheet.Cells.EntireColumn.AutoFit
    
    MsgBox "数据导入完成！", vbInformation
    Exit Sub
    
ErrorHandler:
    MsgBox "请求网页时出错：" & Err.Description, vbCritical
End Sub

代码关键说明 #

• XMLHTTP对象：用来发送请求获取网页的原始HTML内容，比用浏览器控件更高效，适合静态网页数据抓取
• HTMLDocument：把获取到的HTML文本转换成可解析的文档对象，方便定位表格、行、单元格这些元素
• 表格定位：因为目标页面的结果表格是页面中的第一个<table>标签，所以用getElementsByTagName("table")(0)直接获取
• 循环写入数据：通过嵌套循环遍历表格的每一行和每个单元格，把文本内容写入Excel工作表
• 错误处理：加入了简单的错误捕获，避免网页请求失败时程序崩溃

运行脚本 #

回到Excel界面，按下Alt + F8，选择ImportClubEloResults，点击「执行」就可以啦~ 如果一切顺利，数据会自动导入到Sheet1中，还会自动调整列宽哦！

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