GetElementsbyClassname: методы Open IE и MSXML2

Сообщение об ошибке довольно простое:

GetElementsByClassName не является методом, доступным в библиотеке Microsoft XML версии 6.0.

Вы можете просмотреть доступные методы здесь:

http://msdn.microsoft.com/en-us/library/aa926433.aspx

И хотя я не могу найти аналогичную ссылку на документацию, если вы включите ссылку на библиотеку MSHTML, вы можете просмотреть ее, чтобы подтвердить, что нет метода GetElementsByClassName. Этот метод доступен для автоматизации IE, но не для HTML или DOMDocument.

ОБНОВЛЕНО

Хотя это может не решить вашу проблему, я поместил это здесь на случай, если это поможет другим пользователям IE8. Кажется, он работает для этой цели, но, возможно, его нужно доработать.

Option Explicit

Sub BankRate_Rate_Retrieval()
Dim my_url As String
Dim html_doc As Object 'HTMLDocument
Dim xml_obj As Object 'MSXML2.DOMDocument
Dim my_rate As String

my_url = "http://www.bankrate.com/funnel/mortgages/mortgage-results.aspx?market=321&loan=150000&perc=20&prods=2&points=0"

Set html_doc = CreateObject("htmlfile")
Set xml_obj = CreateObject("MSXML2.XMLHTTP")

xml_obj.Open "GET", my_url, False
xml_obj.send
html_doc.body.innerhtml = xml_obj.responseText

'attempt to replicate the GetElementsByClassName for IE8

my_rate = IE8_GetElementsByClassName(html_doc.body, "br-col-2 br-apr", 1).GetElementsByTagName("div")(0).InnerText

MsgBox my_rate


Set xml_obj = Nothing
Set html_doc = Nothing


End Sub

Function IE8_GetElementsByClassName(html As Object, className As String, Optional Position As Integer)
'Function to return an array of matching classname elements
' or if specified will return a single HTMLElement by Position index

Dim eleDict As Object
Dim ele as Variant
Set eleDict = CreateObject("Scripting.Dictionary")
For x = 0 To html.all.Length - 1
    Set ele = html.all(x)
    If ele.className = className Then
        'Debug.Print i & vbTab & x & vbTab & ele.InnerText
        Set eleDict(i) = ele
        i = i + 1
    End If
Next

If Position = Empty Then
    IE8_GetElementsByClassName = eleDict.Items
Else
    Set IE8_GetElementsByClassName = eleDict(Position)
End If
Set eleDict = Nothing
End Function