How to build a web query to paste into specified cell

[msraga]

I am having trouble writing a macro that will copy an entire webpage and paste it in excel. I am trying to use SendKeys right now which probably isn't the best idea. I've never used macros and I need to learn for a new internship, so it is a learning process!!!

PLEASE HELP!! it is greatly appreciated

Here is what I have that I cant get to work:

[B]Sub OpenIE()
'Open site if it requires a PassWord Model!
Dim IE As Object

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

'Go to this Web Page!
IE.Navigate "http://www.gomeznetworks.com/login.asp"

'Wait for window to open!
Application.Wait (Now + TimeValue("0:00:05"))
'MsgBox "Done"
IE.Visible = True

'Send log-on information!
SendKeys "msraga", True
SendKeys "{TAB}", True
SendKeys "password", True
SendKeys "{ENTER}", True

'Wait for window to open!
Application.Wait (Now + TimeValue("0:00:06"))
'MsgBox "Done"
IE.Visible = True

'Navigate to Settings
IE.Navigate "http://www.gomeznetworks.com/admin/mysettings.asp"
Application.Wait (Now + TimeValue("0:00:03"))
'MsgBox "Done"
IE.Visible = True

'Navigate to Reports
IE.Navigate "http://www.gomeznetworks.com/reports/daily_report.asp"
Application.Wait (Now + TimeValue("0:00:03"))
'MsgBox "Done"
IE.Visible = True

'Navigate to each distinct report

'Navigate to Home Page - Firefox
IE.Navigate "http://www.gomeznetworks.com/reports/daily/perspective.asp?report_id=158363&sendopt=1 "
Application.Wait (Now + TimeValue("0:00:03"))
'MsgBox "Done"
IE.Visible = True

Application.Wait (Now + TimeSerial(0, 0, 2))
SendKeys "^a"
SendKeys "^c"[/B]
[B]ActiveSheet.Range("B2").Select[/B]
[B]SendKeys "^v"
[/B]

'more code that isnt added..

 

[msraga]

Is there a different way since SendKeys is not working for me?