Excel List and Google Search

[laurenm]

Hi everyone,

I have a question I'm not sure if excel is able to do. If I have a list of businesses in excel and want to search the web (probably google) for their website address. Is there a formula or a way to upload my list somewhere and have each business googled and return their website address automatically?

It's been tedious to do a google search one by one to get this information, so I would like to save some time.

Thanks!

 

[Gomax604]

A starting point: Search Web

Sub SearchWeb
    Dim arStr As Variant, i As Byte
    Dim sTxt As String, sVal As String, sSearchFor As String, sURL As String
    Select Case ActiveSheet.name
        Case Else: sTxt = CStr(Selection.Value)
    End Select
    If Len(Trim(sTxt)) = 0 Then GoTo EXITNOW
    arStr = Split(sTxt, " ")
    For i = 0 To UBound(arStr)
        sVal = CStr(arStr(i))
        If i = UBound(arStr) = False Then sVal = sVal & "+"
        sSearchFor = sSearchFor & sVal
    Next i
    sURL = "http://www.google.com/search?q=" & sSearchFor & "&sourceid=chrome&ie=UTF-8"
    ActiveWorkbook.FollowHyperlink sURL, , True
EXITNOW:
    If IsArray(arStr) Then Erase arStr
End Sub