vba处理html 文档,javascript – Excel VBA：获取HTML表格td的内部文本

您似乎在变量名中有拼写错误.你有没有使用Option Explicit？

Function myFunction(id)

Call myConnection(id)

Set myDadta = oHtml.getElementById("myDiv").getElementsByClassName("myTable")(0).getElementsByClassName("data")(0)

myFunction = myData.innerText '

End Function

UPDATE

我在VBA表单上放了一个Button,以及下面更正的代码：

Option Explicit

Dim oHtml, myData

Private Sub CommandButton1_Click()

MsgBox myFunction(0)

End Sub

Function myFunction(id)

Call myConnection(id)

Set myData = oHtml.getElementById("myDiv").getElementsByTagName("Table")(0).getElementsByTagName("td")(1)

myFunction = myData.innerText '

End Function

Public Sub myConnection(id)

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")

'.Open "GET", "http://www.example.com" & id, False

.Open "GET", "http://localhost/Test/Test.htm", False '

.send

oHtml.body.innerHTML = .responseText

End With

End Sub

更新代码以在现场URL上演示功能

Option Explicit

Dim oHtml, myData

Private Sub CommandButton1_Click()

MsgBox myFunction(0)

End Sub

Function myFunction(id)

Call myConnection(id)

Set myData = oHtml.getElementById("overallRatios").getElementsByTagName("Table")(0).getElementsByTagName("td")(1)

myFunction = myData.innerText

End Function

Public Sub myConnection(id)

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")

'.Open "GET", "http://www.example.com" & id, False

.Open "GET", "http://www.reuters.com/finance/stocks/overview?symbol=PTI.LS", False

.send

oHtml.body.innerHTML = .responseText

End With

End Sub