there are 4 tables on your webpage. I down loaded the Login history table
onto a worksheet.

Sub Login()


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

URL = "http://www.countrybobsdemo.com/administrator/"

'get web page
IE.Navigate2 URL
Do While IE.readyState < 4
DoEvents
Loop

Do While IE.busy = True
DoEvents
Loop
Set Form = IE.document.getelementsbytagname("Form")

Set NameBox = IE.document.getElementById("modlgn_username")
'check if already login
If Not NameBox Is Nothing Then
NameBox.Value = "Ryan"

Set PasswordBox = IE.document.getElementById("modlgn_passwd")
PasswordBox.Value = "ryan123"

Form(0).submit
Do While IE.busy = True
DoEvents
Loop
End If

Set Mytables = IE.document.getelementsbytagname("table")

Set History = Mytables(1)

RowCount = 1
For Each itm In History.Rows
Range("A" & RowCount) = itm.innertext
Next itm
End Sub




"ryguy7272" wrote:

I posted this question a couple months ago, and got a few responses, but
never got the code to work, so Im re-posting now (finally have some free
time to revisit this).

Id like to go to this site:
http://www.countrybobsdemo.com/administrator/

login with these credentials:
username = Ryan
password = ryan123

Id like to store these values in tow cells, such as Sheet2, A1 = Ryan and
Sheet2, B1 = ryan123.

Once I login, Id like to go to Components RSform!Pro Manage
Submissions, which you can click though and see, or see here (once logged in):
http://www.countrybobsdemo.com/admin...ag e&formId=2

So, all the data is there. Id like to download all of that, into a sheet,
maybe Sheet3!! How can it be done?

Thanks,
Ryan---

PS, I tried recording a macro, and it failed miserably!!!

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.