Excel VB – getelementsbytagname – 返回运行时错误'438'

我是一名高尔夫爱好者和爱好程序员。 我试图写VB代码，如果传递一个特定的值（会员号码），将从网站抓住障碍。 我使用了一段我发现的代码，看起来对于他们的特定应用程序来说工作得很好，但我需要使用的网站似乎稍微复杂一点。

网页结构的摘录如下所示：

<div id="exactHandicap"> <h3>GA Handicap</h3> <div id="handicapType"> (Men's) </div> <br> <span> <span id="ContentPage_lblExactHandicap">26.9</span></span> <span id="AnchoredPanel"> </span> </div> 

我试图简单地抓住26.9的价值

我一直在寻找几天，如何正确引用getelementsbytagname或getelementbyId，但每个返回一个错误，最新的错误'438'

我是一个HTML新手，这个项目已经明确指出，但我相信这个社区有人有答案。

我的代码（从在线教程中借用）是：

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = Range("GolfLinkNumber").Row And _ Target.Column = Range("GolfLinkNumber").Column Then Dim IE As New InternetExplorer IE.Visible = True IE.navigate "http://handicap.golflink.com.au/handicaphistory.asp?framed=1&golflink_No=" & Range("GolfLinkNumber").Value Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim Doc As HTMLDocument Set Doc = IE.Document Dim HandicapValue As String HandicapValue = Doc.getElementByTagName("ContentPage_lblExactHandicap").innervalue MsgBox HandicapValue End If End Sub 

错误在…

HandicapValue = Doc.getElementByTagName（“ContentPage_lblExactHandicap”）。innervalue

提前致谢。