View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Andym Andym is offline
external usenet poster
 
Posts: 35
Default trouble with onchange event

In this code, the varTags variable would be a collection of <td tags. Are
there no td tags on the page you are using?

"Dudely" wrote:

I'm not sure where to go with this question so I thought I'd try this
group.

I'm having some trouble with the following VBA code. The varTags
variable is sometimes empty, and sometimes it has what it's supposed
to have. I always use the same set of pages to test.

I thought maybe the page needed time to load, so I added in
Do While obIe.Busy & Do While obIe.readyState <4
DoEvents loops after the onchange call, but they had no effect.

The onchange call does in fact load the expected page, it's the line
of code afterwards that doesn't always work. Any ideas?

Thank you

Public Function submitDropDownData(IeDoc As Object, obIe As Object,
elementToSelect As Long, elementValue As String, ID As String)
Dim el As Object
Dim varTags as Variant
Dim tagType as String

tagType="td"

Set el = IeDoc.getElementsByName(ID)
el(0).children(elementToSelect).Selected = True
el(0).children(elementToSelect).Value = elementValue
el(0).onchange

Set varTags = IeDoc.getElementsByTagName(tagType)