vba抓取网页数据到excel(含代码示例)

VBA抓取网页数据到Excel的步骤如下:打开Excel,新建一个工作簿,然后打开VBA编辑器;

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中。

本站系公益性非盈利分享网址,本文来自用户投稿,不代表码文网立场,如若转载,请注明出处

(917)
gitlab community:g it lab community
上一篇
linux添加root用户(含代码示例)
下一篇

相关推荐

发表评论

登录 后才能评论

评论列表(62条)