我正在尝试从 ASX 下载股息数据!
我需要知道如何遍历表中的每一行以及该表中的每个 td(数据元素)以将内部文本打印到 excel 工作表。
这是我的代码....以此为指导
VBA excel对于表格中的每一行匹配电子表格中的单元格与网页表格中的单元格
Sub WebTable()
Dim ie As New InternetExplorer
Set ie = Nothing
ie.Visible = False
Dim url As String
Dim doc As HTMLDocument
Dim items As Variant
Dim tr As String
Dim tbody As String
Dim td As String
Dim r As Double
Dim i As Double
Dim tbObj As Variant
Dim trObj As Variant
Dim tdObj As Variant
Dim tdItem As Variant
Dim element
tbody = "tbody"
tr = "tr"
td = "td"
url = "http://www.asx.com.au/asx/markets/dividends.do?by=asxCodes&asxCodes=ont&view=latest"
ie.navigate url
Debug.Print url
'loop until complete so program doesn't freeze
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
'get everything in the dividends table using its id
Set tbObj = ie.document.getElementById("dividends") 'all table elements including headers
'get the four rows for the ONT stock (headings and data elements
Set trObj = tbObj.getElementsByTagName(tr)
'get the eight data items for each row of the ONT stock e.g stock price date etc.
For Each trObj In tbObj
'print each data element one by one for each of the four rows
Set tdObj = tbObj.items(0).getelementbytagname("td")
Set Count = tdObj.length
Debug.Print tdObj(0).innerText
Next trObj
End Sub