I have a macro set up and what it should do is go to a website copy the web page and paste into cell A1.
The problem I am having is that it will open the IE, open the Page but will not do the copy paste function can someone tell me what i am doing wrong
Sub Macro4()
Dim IE As Object
Sheets("Sheet2").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1:A1000") = "" ' erase previous data
Range("A1").Select
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://www.google.com" ' shou
Do Until .ReadyState = 4: DoEvents: Loop
End With
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False
Range("A1").Select
IE.Quit
End Sub
Bookmarks