excel vba读取html表格,从网页获取表格到Excel的VBA代码

你从哪里得到了一个主意

getElementsByTagName("table")

虽然没有单人房

table

标签在这页上?都是跳水。

我在做手术

HTMLDocument

需要引用Microsoft HTML对象库,

Set html = CreateObject("htmlfile")

给了我一个不允许的东西

getElementsByClassName

.

我删除了所有(现在)多余的变量声明。

Option Explicit

Sub Web_Table_Option_One()

Dim xml As Object

Dim html As New HTMLDocument

Dim myTable As HTMLObjectElement

Dim result As String

Dim rowNum As Long

Dim colNum As Long

Set xml = CreateObject("MSXML2.XMLHTTP.6.0")

With xml

.Open "GET", "https://www.99acres.com/microsite/ambey-group-eco-valley-new-town-kolkata-east/", False

.Send

End With

result = xml.responseText

html.body.innerHTML = result

Set myTable = html.getElementsByClassName("divTableBody")(0)

With ThisWorkbook.Sheets("Sheet3")

For rowNum = 0 To myTable.Children.Length - 1

For colNum = 0 To myTable.Children(rowNum).Children.Length - 1

.Cells(rowNum + 1, colNum + 1) = myTable.Children(rowNum).Children(colNum).innerText

Next colNum

Next rowNum

End With

End Sub