vba
Sub UpdateWebData()
Dim http As Object
Dim html As Object
Dim table As Object
Dim row As Object
Dim cell As Object
Dim ws As Worksheet
Dim url As String
' 创建 HTTP 对象
Set http = CreateObject(MSXML2.XMLHTTP)
' 发送 HTTP 请求
http.Open GET, url, False
http.send
' 解析 HTML 内容
Set html = CreateObject(htmlfile)
html.body.innerHTML = http.responseText
' 假设网页中有一个表格,我们可以遍历它
For Each table In html.getElementsByTagName(table)
For Each row In table.Rows
For Each cell In row.Cells
' 将数据写入 Excel 单元格
ws.Cells(row.RowIndex, cell.ColumnIndex).Value = cell.innerText
Next cell
Next row
Next table