这段VBA代码演示了如何批量读取多个本地HTML文件，并从网页中提取特定表格数据。通过创建InternetExplorer对象，导航到每个URL，然后使用getElementsByTagName方法获取TD元素的innerText，将数据填充到Excel工作表的不同单元格中，实现了数据的快速抓取。最终，代码显示完成消息并记录执行时间。
Sub getifo()
Dim str As String
Dim t
t = Timer
For m = 2 To Sheets("URL").Range("A1048576").End(xlUp).Row
URL = Sheets("URL").Cells(m, 1)
With CreateObject("internetexplorer.application")
.Navigate URL
While .busy Or .readystate <> 4: Wend
On Error Resume Next
Sheets("数据表").Cells(m, "A") = .Document.getElementsByTagName("TD")(2405).innertext
Sheets("数据表").Cells(m, "B") = .Document.getElementsByTagName("TD")(2407).innertext
Sheets("数据表").Cells(m, "C") = .Document.getElementsByTagName("TD")(2409).innertext
Sheets("数据表").Cells(m, "D") = .Document.getElementsByTagName("TD")(2411).innertext
Sheets("数据表").Cells(m, "E") = .Document.getElementsByTagName(
最低0.47元/天 解锁文章
1127
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
