I made a few changes and the code now dumps everything

Sub OANDA()

URL = "https://fx2.oanda.com/user/interestrate.html"

StartDate = "01/01/1970"
EndDate = "02/02/2010"
MyCurrency = "US DOLLAR"

'Do
' MyStartDate = InputBox("Enter Start Date : ")
'Loop While Not IsDate(Response)

'StartDate = DateValue(MyStartDate)

'Do
' MyEndDate = InputBox("Enter End Date : ")
'Loop While Not IsDate(Response)

'EndDate = DateValue(MyEndDate)

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True


'get web page
IE.Navigate2 URL & Ticker
Do While IE.readyState < 4 Or _
IE.Busy = True

DoEvents
Loop

Set FormInput = IE.document.getElementsByTagName("input")

FormInput(0).Value = Format(StartDate, "MM/DD/YYYY")
FormInput(1).Value = Format(EndDate, "MM/DD/YYYY")

Set ListBox = IE.document.getElementsByTagName("select")
Set AllCurrencies = ListBox(3).getElementsByTagName("option")
Set ListboxItem = Nothing
For Each itm In ListBox(3)
itm.Selected = True
'If UCase(itm.innertext) = MyCurrency Then
'Set ListboxItem = itm
'Exit For
'End If

Next itm

'If ListboxItem Is Nothing Then
'MsgBox ("could Not find currency - exiting Macro ")
'Exit Sub
'End If

'ListboxItem.Selected = True

'submit form
FormInput(2).Select
FormInput(2).Click


Do While IE.readyState < 4 Or _
IE.Busy = True

DoEvents
Loop

Set Mon_Sel = IE.document.getElementById("mon_sel")



Set Table = IE.document.getElementsByTagName("Table")

RowCount = 1
For Each Row In Table(2).Rows
ColCount = 1
For Each cell In Row.Cells

Cells(RowCount, ColCount) = cell.innertext
ColCount = ColCount + 1
Next cell
RowCount = RowCount + 1
Next Row

IE.Quit
End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=175422

Microsoft Office Help