HTML combobox

[Eriasu]

Hi everyone!

I am fairly new to VBA and HTML magic, I use the following code to choose from a combobox:

Option Explicit
Const sWebPage = "https://analytics.emea.teleperformance.com/ibmcognos/bi/"

Sub IEBot()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.navigate sWebPage

While IE.ReadyState <> 4
DoEvents
Wend

Dim oHDoc As HTMLDocument
Set oHDoc = IE.document

Dim oHEle As HTMLSelectElement
Set oHEle = oHDoc.getElementById("main")
oHEle.selectedIndex = "1

End Sub

I get the Run-time error '438':
Object doesn't support this property or method.

Any help will be much appreciated!

 

[Norie]

The dropdown doesn't have an ID but it has a name - CAMNameSpace, so instead of GetElementById try GetElementsByName.

 

[Eriasu]

The dropdown doesn't have an ID but it has a name - CAMNameSpace, so instead of GetElementById try GetElementsByName.

Hi Norie, thanks for the tip!

I switched to

Set oHEle = oHDoc.getElementsByName("CAMNameSpace")

but now get the Run-time error '13': Type mismatch

Any workaround in mind?

 

[John_w]

Set oHEle = oHDoc.getElementsByName("CAMNameSpace")(0)

 

[Eriasu]

Set oHEle = oHDoc.getElementsByName("CAMNameSpace")(0)

Cheers, I now receive the Run-time error '91':

Object variable or With block variable not set; oHEle.selectedIndex ="1" is yellow highlighted.

 

[John_w]

The name is CAMNamespace, so try:

Set oHEle = oHDoc.getElementsByName("CAMNamespace")(0)
oHEle.selectedIndex = 1

 

[Eriasu]

The name is CAMNamespace, so try:

Set oHEle = oHDoc.getElementsByName("CAMNamespace")(0)
oHEle.selectedIndex = 1

Cheers John; was a typo, apologies.

Same error occurs though.

 

[John_w]

It could be a timing issue, meaning the element isn't available when the getElementsByName is executed. To confirm this, click Debug on the error message and drag the yellow execution arrow up to the getElementsByName line and press F5 to continue execution from that line.

If that works change the code so that it waits until the element is available:

    Do
        Set oHEle = oHDoc.getElementsByName("CAMNamespace")(0)
        DoEvents
    Loop While oHEle Is Nothing
    oHEle.selectedIndex = 1

 

[Eriasu]

It could be a timing issue, meaning the element isn't available when the getElementsByName is executed. To confirm this, click Debug on the error message and drag the yellow execution arrow up to the getElementsByName line and press F5 to continue execution from that line.

If that works change the code so that it waits until the element is available:

    Do
        Set oHEle = oHDoc.getElementsByName("CAMNamespace")(0)
        DoEvents
    Loop While oHEle Is Nothing
    oHEle.selectedIndex = 1

It was a timing issue afterall ty!!!! Works now