VBA Internet Explorer - following link to new window

[blgross07]

Hello,

I am having some issues with data scraping a website table I am interested in. The reason is because one of the links I click on in the process opens a new IE tab. How do I follow the link to the new window via VBA? Current code I have is below.

Sub Button1_Click()
Dim ie As Object


Set ie = CreateObject("InternetExplorer.Application")


With ie


.Visible = True
.navigate ("website")


While ie.readyState <> 4: DoEvents: Wend


ie.document.forms(0).all("SheetContentPlaceHolder_c_search1_btnNextSale").Click


End With
 
Application.Wait Now + #12:00:01 AM#



ie.document.forms(0).all("SheetContentPlaceHolder_C_searchresults_lbPrint").Click

'This button click opens new window


End Sub

Thanks,

 

[blgross07]

Bump.

 

[blgross07]

Bump.

 

[John_w]

Loop through Shell.Windows, looking for a specific property of the new tab (e.g. its IE.LocationURL, or IE.LocationName, or maybe some text in IE.document.innerText, etc.). There should be example code on the forum - I think ZVI has a very good procedure.

Or put your code in sheet module and declare the IE object like this:

Public WithEvents IE As InternetExplorer

and catch the new tab in the IE_NewWindow2 event. You must set the reference (via Tools->References in the VBA editor) to Microsoft Internet Controls. This technique can also be done in a class module, but a bit more code is required to instantiate an object of the class.