Как выбрать и изменить выпадающий список в VBA без идентификатора

Question

Итак, я изо всех сил старался найти способ выбрать раскрывающийся список на этой конкретной веб-странице и изменить значение в нем. Я просмотрел десятки примеров кода от других людей, но все они находят элемент по идентификатору, который элемент, который я ищу, не имеет идентификатора, и не имеет никакого другого элемента на веб-странице. Единственное уникальное значение, которое имеет элемент, это имя =. Это было бы простым и понятным, если бы элемент имел идентификатор, но я не нашел кода, который мог бы мне помочь, если у элемента нет идентификатора. То, что я пытаюсь до сих пор, это то, что вы видите ниже, но, похоже, это не работает. Если кто-нибудь может помочь мне узнать, как выбрать элемент по имени, а затем изменить выделение из выпадающего меню, я был бы чрезвычайно благодарен. Спасибо.

Мой код до сих пор выглядит следующим образом:

For x = 1 To agent1.explorer.document.body.all.Length - 1 
      temp = "" 
      If agent1.explorer.document.body.all(x).Name = "advsearch_contents_objecttypectrl_0" Then 
       agent1.explorer.document.body.all(x).Click 
       Exit For 
      End If 
     Next 

Я переборе элементов на веб-странице, чтобы найти тот, который я хочу, однако, он никогда не выбирает правильный и я из идей ,

Элемент, который я пытаюсь выбрать это в Select Tag и Name = «advsearch_contents»

Есть несколько вариантов, чтобы выбрать из в раскрывающемся списке, но значение, которое я хочу установить это sales_contracts

Спасибо, что нашли время, чтобы протянуть руку. Это очень ценно.

Answer 1

Try ниже код

Set agent= agent1.explorer.document.getElementsByName("advsearch_contents_objecttypectrl_0") 

     For x = 0 To agent.Options.Length - 1 
      If agent.Options(x).Text = "sales_contracts" Then 
       agent.selectedIndex = x 
       Exit For 
      End If 
     Next 

Если он не работает запрос добавить источник HTML страницы в вашем посте. Также проверьте это post для альтернативного способа.