HTML - getElementsByClassName

Required Libraries: Microsoft Internet Controls, Microsoft HTML Object Library

Sub BANK_RATES_NEW_WSJ()

Set objIE = CreateObject("InternetExplorer.Application")

'objIE.Top = 0

'objIE.Left = 0

'objIE.Width = 0

'objIE.Height = 0

'objIE.Visible = True

objIE.navigate "http://www.wsj.com/mdc/public/page/2_3020-libor.html"

DoEvents

Loop Until objIE.ReadyState = READYSTATE_COMPLETE

Dim Doc As HTMLDocument

Set Doc = objIE.Document

Dim MyList As String

y = 0

For x = 1 To 28

MyList = Trim(Doc.getElementsByClassName("num")(y).InnerText)

If y = 8 Then

'Libor1Month

Libor2 = MyList

End If

If y = 16 Then

'Libor3Month

Libor4 = MyList

End If

If y = 20 Then

'Libor6Month

Libor5 = MyList

End If

y = y + 1

Next x

MsgBox "The rates for today are: " & Chr(13) & "Libor 1 Month - " & Libor2 & Chr(13) & "Libor 3 Month - " & Libor4 & Chr(13) & "Libor 6 Month - " & Libor5

End Sub