Search result extraction macro

**Manikandan Arumugam** · 03-29-2017, 04:42 AM

Hi All,

Looking for experts help since am new to excel VBA.

I have a Google results extraction macro which I got this from Google. The macro extracts first result hyperlink and the paragraph. I need a macro that extracts the header of the results.

For Ex: When we key in Wiki in google, this macro extracts "https://en.wikipedia.org/wiki/Wiki" and "A wiki is a website that provides collaborative modification of its content and structure directly from the web browser. In a typical wiki, text is written using a ..."

I need the header "Wiki - Wikipedia"

Attached the macro fyi.

Thanks in advance..!

**Sean Thomas** · 03-29-2017, 07:47 AM

objIE.document.Title

**Manikandan Arumugam** · 03-29-2017, 08:45 AM

Hi Sean Thomas,

Thanks for the reply. I dont have scripting experience. It will be needful if help me so

**Sean Thomas** · 03-29-2017, 01:46 PM

Where do you want the title to be placed and on what sheet?

**Manikandan Arumugam** · 03-30-2017, 12:41 AM

In Same sheet. The exisiting macro extracts paragraph with hyperlink. I need the title in next column

**Sean Thomas** · 03-30-2017, 04:42 AM

try adding this line into your code

I cant test it because your code doesn't work as certain items are missing from your worksheets
also I don't know what you are looking for on google or what is expected.
I'm taking it that only one result is found and TargetItemsQty = 1 so it ends the loop
in which case we can put the result in the next column

Please Login or Register  to view this content.

**Manikandan Arumugam** · 04-07-2017, 05:13 AM

Sean,

It seems Ur code doesn't extract the results i expected. Sorry, if i have not explained clearly.Attached the new sheet with input/output and screenshot for reference.