Comments on: VB(A) and InternetExplorer and XMLHttp

By: atsm

atsm — Fri, 11 Jan 2008 13:31:00 +0000

Hi ,
im actually trying to log into my yahoo inbox and search a particular mail from QTP .For this i was tryin to use thw Wsh to send keys , turns out thats not an option .Then i used the Internet explorer object , however i do not know how to browse the application with that kinda scriptin.

By: Joshua Collier

Joshua Collier — Fri, 21 Sep 2007 23:33:00 +0000

I have been looking for a way to grab information from a website and paste it into Excel. The idea is to use Excel to surf to a particular website, select an option from an option box, move forward a page, copy that information into a spreadsheet, then move back a page and select the next option in the option box. So far I cannot find any resources as to how to identify and get the elements from the option box, count the elements in the option box, whatever. Anyone have any suggestions?

By: jkpieterse

jkpieterse — Wed, 08 Aug 2007 06:22:00 +0000

Hi Tushar,

Excellent article.

A suggestion though. There is no need to go through the hoops of creating a class with a default property, the msxml.DOMDocument has two events you can use. In the Class, you can:

Public WithEvents DOMEvent As DOMDocument

Private Sub DOMEvent_onreadystatechange()
If DOMEvent.readyState = 4 Then
MsgBox "Loaded." & DOMEvent.XML
End If
End Sub

Then in a normal module (or wherever you put the code that calls up some XML):

Dim moXMLdoc As MSXML2.DOMDocument
Dim mcXMLClass As clsMSXML

Sub demo()
Set mcXMLClass = New clsMSXML
Set moXMLdoc = New MSXML2.DOMDocument
Set mcXMLClass.DOMEvent = moXMLdoc
moXMLdoc.async = True
moXMLdoc.Load "http://www.jkp-ads.com/feed.xml"
End Sub

By: Randy

Randy — Tue, 07 Aug 2007 03:46:00 +0000

I use FireFox instead of IE and don't even have IE7 installed, so I'm not sure of the nuances there. I actually use the XMLHTTP protocol in my add-in and parse the raw data instead of using the COM object when I get data from the web:

http://finance.groups.yahoo.com/group/smf_addin/

By: Huaming

Huaming — Tue, 07 Aug 2007 03:18:00 +0000

Thanks, Randy!!! It does what I wanted. But can you merge these two windows into same one window but in two separate tabs?
Huamiang

By: Randy

Randy — Tue, 07 Aug 2007 03:00:00 +0000

Try creating your second EXCEL object as:

Set oIE2 = CreateObject("InternetExplorer.Application")
oIE2.Visible = True
oIE2.Navigate txtURL2

Using the "1? flag would have the same problem your original code did -- it's trying to open the URL in a new window. Your browser security settings may be preventing that.

By: Huaming

Huaming — Tue, 07 Aug 2007 02:38:00 +0000

Hi, Randy,
I use the "navigate2? method to keep these two web sites in two separate tabs underneath same Internet Explorer window. This is to make it little easier to compare and to follow links in them. I also tried to create another oIE object by using the following procedure, but it does not work either.
Huaming

Set oIE2 = CreateObject("InternetExplorer.Application")
oIE2.Visible = True
oIE2.Navigate2 txtURL2, 1

By: Randy

Randy — Tue, 07 Aug 2007 00:55:00 +0000

Huaming -- Why did you switch over to the Navigate2 method and ask for it to open in another window? On my machine, the browser settings block the opening of the second window, which is why nothing changes for me.

It works fine for me if I just use:

oIE.Navigate txtURL2

...for the second web page retrieval. In any case, even if the IE object were to open another window for the second web page, you'd need to refer to THAT object to get your outerHTML data (not sure how to do that).

By: Huaming

Huaming — Tue, 07 Aug 2007 00:22:00 +0000

Thank you very much for your greatly useful tips, Tushar. I have been enjoying reading your articles here and in your web site.

Would you mind giving me some help with my case as the following?

I'd like to open two different web sites and and then combine the information from these two sites. I can grab the information that I want from the first web site, but I cannot get any information from the second web site. It looks like the oIE.document object always point to the first web site and does not switch to the second after it is loaded. Hope you can point out the things that I am doing wrong here and offer some solutions.

Huaming

Here is my procedure and I am using Internet Explorer 7

Sub NavigateToTwoWebSites()

txtURL1 = "http://www.google.com/"
txtURL2 = "http://www.yahoo.com/"

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
oIE.Navigate txtURL1

While oIE.Busy Or oIE.ReadyState READYSTATE_COMPLETE
DoEvents
Wend

Debug.Print oIE.document.all.tags("A").Item(0).outerHTML

oIE.Navigate2 txtURL2, 1

While oIE.Busy Or oIE.ReadyState READYSTATE_COMPLETE
DoEvents
Wend

Debug.Print oIE.document.all.tags("A").Item(0).outerHTML

Set oIE = Nothing
End Sub

By: Scott

Scott — Sat, 04 Aug 2007 05:37:00 +0000

Awesome awesome article! Thank you so much for publishing this!!!