выберите выпадающий список в IE11 с VBA

Question

Может кто-нибудь помочь мне с выбором опции в HTML объектах с помощью VBA. Я пробовал много разных синтаксисов. Они показывают много разных ошибок времени выполнения, таких как 41,936. Я использовал Dim optn as object, htmlselectelements, mhtml.htmlelements

Приведенный ниже код получает код HTML веб-страницы:

docu = ie.document

Тип 1

Set optn = docu.getElementById("categoryId")
optn.Focus
optn.selectedIndex = "2"

Тип 2

Set optn = docu.getElementsByTagName("categoryId")
For Each op In optn
    If op.Value = "2" Then
        op.Click
Next

Тип 3

docu.getElementsByName("categoryId")().Value = "2"

Вот веб-страница HTML код: