VBA抓取网页数据到Excel的步骤如下:打开Excel,新建一个工作簿,然后打开VBA编辑器;
VBA抓取网页数据到Excel的步骤如下:
1. 打开Excel,新建一个工作簿,然后打开VBA编辑器;
2. 在VBA编辑器中,新建一个模块,并将以下代码粘贴进去:
Sub GetDataFromWeb()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.example.com"
Do While IE.ReadyState <> 4
DoEvents
Loop
Dim doc As HTMLDocument
Set doc = IE.document
Dim table As Object
Set table = doc.getElementById("tableID")
Dim trs As Object
Set trs = table.getElementsByTagName("tr")
Dim i As Integer
i = 1
For Each tr In trs
Dim tds As Object
Set tds = tr.getElementsByTagName("td")
Dim j As Integer
j = 1
For Each td In tds
Cells(i, j).Value = td.innerText
j = j + 1
Next
i = i + 1
Next
IE.Quit
End Sub
3. 保存代码,然后在Excel中运行它,即可抓取网页数据到Excel中。
本站系公益性非盈利分享网址,本文来自用户投稿,不代表码文网立场,如若转载,请注明出处
评论列表(62条)