Using IE via VBA, copy pasting

[Nickmite]

Hi all,

In brief, webquery cannot import JavaScript, that's why I thought it could be easier just to make VBA do following:

Switch to internet explorer, go to web Topic Related Searching at ANY.COM., wait 30 sec, select all (as if ctrl+a), then copy (as if ctrl+c), then back to VBA application and paste in cell A1.

Would that be possible? I am obviously quite new to VBA and will appreicate any help. A working code would be a lovely xmas present!

Thanks in advance.

 

[WarPigl3t]

Re: Using IE via VBA, copy oasting

Sub myMacro()
     myInputBox = ("Enter the URL of the website.")
     FollowHyperlink myInputBox
     Application.Wait(Now + TimeValue("00:00:30"))
     SendKeys "^a"
     SendKeys "^c"
     Application.Paste Destination:= Range("A1")
End Sub

 

[WarPigl3t]

Re: Using IE via VBA, copy oasting

shortest code I ever wrote

 

[Nickmite]

Re: Using IE via VBA, copy oasting

Sub myMacro()
     myInputBox = ("Enter the URL of the website.")
     FollowHyperlink myInputBox
     Application.Wait(Now + TimeValue("00:00:30"))
     SendKeys "^a"
     SendKeys "^c"
     Application.Paste Destination:= Range("A1")
End Sub

Thanks! But when I try execute it breaks saying sub or function is not defined, at FollowHyperlink

 

[WarPigl3t]

That's weird. Its thinking that myInputBox is a Sub but its an input box. Try this
FollowHyperlink myInputBox, True

or this
FollowHyperlink "http://www.your website.com", True

 

[WarPigl3t]

If that fails, try adding
Application.FollowHyperlink myInputBox, True