Embedded Files
Sub BANK_RATES_NEW_WSJ_PREV()
MyDate = Date
MyYear = Format(MyDate, "YYYY")
MyMonth = Format(MyDate, "MM")
MyMonthName = Format(MyDate, "MMMM")
MyDay = Format(MyDate, "DD")
MyDayName = Format(MyDate, "DDDD")
MyTime = Time
MyHour = Format(MyTime, "hh")
' ******** This is for Rates.*************************
Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Top = 0
'objIE.Left = 0
'objIE.Width = 0
'objIE.Height = 0
objIE.Visible = True
CheckDate = MyDate - 1
CheckYear = Format(CheckDate, "YYYY")
CheckMonthName = Format(CheckDate, "MMMM")
CheckMonth = Format(CheckDate, "MM")
CheckDay = Format(CheckDate, "DD")
CheckDayName = Format(CheckDate, "DDDD")
If CheckYear <> MyYear Then
MyYear = CheckYear
End If
If CheckMonthName <> MyMonthName Then
MyMonth = CheckMonth
MyDay = CheckDay
Else
If MyDayName <> "Monday" Then
MyDay = MyDay - 1
Else
MyDay = MyDay - 3
End If
End If
If MyDay = 1 Then
MyDay = "01"
ElseIf MyDay = 2 Then
MyDay = "02"
ElseIf MyDay = 3 Then
MyDay = "03"
ElseIf MyDay = 4 Then
MyDay = "04"
ElseIf MyDay = 5 Then
MyDay = "05"
ElseIf MyDay = 6 Then
MyDay = "06"
ElseIf MyDay = 7 Then
MyDay = "07"
ElseIf MyDay = 8 Then
MyDay = "08"
ElseIf MyDay = 9 Then
MyDay = "09"
End If
Source1 = "http://www.wsj.com/mdc/public/page/2_3020-libor-"
Source2 = MyYear & MyMonth & MyDay
Source3 = ".html?mod=mdc_pastcalendar"
FullPath = Source1 & Source2 & Source3
objIE.navigate FullPath
Do
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
Page updated
Google Sites
Report abuse