Populate a cell with URL retrieved from Google?

**camfrye** · 07-15-2008, 11:23 PM

Apologies if this is a far-fetched scheme, but I have a spreadsheet of a couple thousand company names and addresses and would like to also add the URL for each company.

In my quick and dirty tests, when I Googled the company names (from column A), the first search result was accurate (ie; Company name "Acme Widgets" yields www.acmewidgets.com) about 70% of the time.

Is it possible to create a script/macro/other that will run a Google "I'm feeling lucky" search using the company name from cell A1 and return this URL and populate it in C1?

Is what I'm thinking of possible within Excel?

If it matters, I'm on a Mac running Excel X 2001 (with VBA) - but could probably track someone down who runs a current Windows version of Excel if need be.

Thanks for listening.
Cam

**inwalkedbud** · 07-16-2008, 12:04 AM

are you looking for the web site of each corporation or are you trying to download data about the company from a central server like google?

**Tom Schreiner** · 07-16-2008, 01:23 AM

In sticking with your quick and dirty theme...

Never the less, the results were fairly accurate. Unfortunately, I do not have a MAC. This code utilizes the internet explorer webbrowser control. Is this installed with office for MAC? I don't know...

Is fairly slow but would be good enough for me for an occasional run... Saves the workbook at every 50th row.

Download the example or follow the instructions below. There is a list of companies in in column a that I tested this on. Disable script debugging. See comments in code...

Download Example Workbook

Add UserForm1 with WebBrowser1.
There is no code in the userform.

Select your URL list and name it UrlList.
Add this code in a public class module. Any worksheet or the workbook class will do.

Please Login or Register  to view this content.

**inwalkedbud** · 07-16-2008, 01:39 AM

tom--

im trying to run your code but the complier is telling me that

Please Login or Register  to view this content.

needs to be in the object module. I pasted it in the module for sheet1 and still got the error. i believe i turned off all debugging? where did i go wrong?