Advanced VBA Code

[uiqbal92]

Hi,


I have an Excel sheet with around 800 search queries for instance "Therapy for Fever" and "Therapy for Pneumonia". What I've already done is extract URLs of the top 5 Google searches for these respective search queries. Now, what I want to be able to do is use these URLs and technically extract the description that appears in the Google Search for these queries.


If this is not possible, perhaps what would help is that through VBA, each of the URL automatically opens in Chrome, stays open for roughly 5 seconds so that I can have a quick look, close, open the next URL, and continue the loop.


I would really appreciate your help in this regard!


Thanks,
Umar

 

[dmhexcel]

Hi, I would suggest doing something like this using internet explorer:
Sub time_sheet_filling()


Dim IE As Object
Dim doc As Object
Dim objElement As Object
Dim objCollection As Object
Dim html As MSHTML.HTMLDocument
Dim URL As String
Dim ClassNameVar as string

Dim i As Integer

Set IE = CreateObject("<wbr>InternetExplorer.Application")

IE.Visible = True
URL=
ClassNameVar=


IE.navigate URL

Do While IE.Busy

Application.Wait DateAdd("s", 1, Now)

Loop


Set html = IE.document

'do parsing of html code here using getelementsby...

 

[uiqbal92]

Hi,

Thank you for the swift response!
Is this for fetching the description or for opening the URLs?

Since I'm new to VBA, could you please confirm whether I just need to insert this in a new module and run it?

Thanks,
Umar

 

[dmhexcel]

This opens the URLs, you can set URL variable to the url for each url in range, then it will open and you can look into analyzing html code. Also you need to go tool>references and enable the following Microsoft XML, V6.0 and Microsoft HTML object library. Check out https://www.youtube.com/watch?v=dShR33CdlY8 or https://stackoverflow.com/questions/27066963/scraping-data-from-website-using-vba