VBA code to retrieve Google Results!

[neodjandre]

Hello,

I have a name in cell "C1".

Can someone genius enough think of VBA code to enter the cell contents of "C1" in a google search and return the website address of the first google result in cell "D1" ?

many thanks guys!
andy

 

[rconverse]

I got this from some place...maybe here. I can't recall.

Sub AutomateIE() 
    Dim ie As InternetExplorer 
    Dim RegEx As RegExp, RegMatch As MatchCollection 
    Dim MyStr As String 
     
    Set ie = New InternetExplorer 
    Set RegEx = New RegExp 
     
     'Search google for cell value
    ie.Navigate "http://www.google.com.au/searchhl=en&q=antsmarching.org&meta=" 
     
     'Loop unitl ie page is fully loaded
    Do Until ie.ReadyState = READYSTATE_COMPLETE 
    Loop 
     
     'String to parse google search for an ants reference
    With RegEx 
        .Pattern = sheets(1).range(C1).value 
        .MultiLine = True 
    End With 
     
     'return text from google page
    MyStr = ie.Document.body.innertext 
    Set RegMatch = RegEx.Execute(MyStr) 
     
     'If a match to our RegExp searchstring is found then launch this page
    If RegMatch.Count > 0 Then 
        ie.Navigate RegMatch(0) 
        Do Until ie.ReadyState = READYSTATE_COMPLETE 
        Loop 
        MsgBox "Loaded Google link" 
         'show internet explorer
        ie.Visible = True 
    Else 
        MsgBox "No link found" 
    End If 
     
    Set RegEx = Nothing 
    Set ie = Nothing 
End Sub

Should get you started.

HTH,
Roger

 

[neodjandre]

thanks for the help.

I am getting object not defined at this line

Dim ie As InternetExplorer

do you know why? do I need to change VBA references in the VBA editor ?

 

[neodjandre]

ok I have set up the correct references but the code is not really working and is actually not applied to my specific scenario... any more ideas?