📜  Excel 网页抓取 - VBA 代码示例

📅  最后修改于: 2022-03-11 14:51:55.693000             🧑  作者: Mango

代码示例1
Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object

ie.Visible = True
ie.navigate "http://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set ecoll = doc.getElementsByTagName("table")