junior_88
12-04-2014, 04:13 AM
I have a problem with next code:
Set chooseLanguage = IE.Document.getElementById("L_langue")
chooseLanguage.selectedindex = jezyk 'jezyk value = 0 or 1
chooseLanguage.FireEvent ("onchange")
Do
DoEvents
Loop Until IE.ReadyState = 4 Or IE.Busy
'Take to /Listbox
Set Products = IE.Document.getElementById("listec")
For Each ele In Products
ListBox1.AddItem ele.innerText
Error 424 is appears and hightligh the error in 'For Each ele In Products' line...
When I remove line 'chooseLanguage.FireEvent ("onchange")' then
Set Products = IE.Document.getElementById("listec")
For Each ele In Products
ListBox1.AddItem ele.innerText works correct.
What is the reason? How to make action FireEvent ?
Set chooseLanguage = IE.Document.getElementById("L_langue")
chooseLanguage.selectedindex = jezyk 'jezyk value = 0 or 1
chooseLanguage.FireEvent ("onchange")
Do
DoEvents
Loop Until IE.ReadyState = 4 Or IE.Busy
'Take to /Listbox
Set Products = IE.Document.getElementById("listec")
For Each ele In Products
ListBox1.AddItem ele.innerText
Error 424 is appears and hightligh the error in 'For Each ele In Products' line...
When I remove line 'chooseLanguage.FireEvent ("onchange")' then
Set Products = IE.Document.getElementById("listec")
For Each ele In Products
ListBox1.AddItem ele.innerText works correct.
What is the reason? How to make action FireEvent ?