Невозможно выбрать переключатель при вводе в Excel с помощью КОДА VBA

#excel #vba

#excel #vba

Вопрос:

В моем Excel у меня есть выпадающий список в ячейке C41. Если ячейка C41 имеет «простое членство», то на веб-странице должен быть выбран переключатель «простое членство», а если C41 имеет «не простое членство», то на веб-странице должен быть выбран переключатель «не простое членство». Вот код, который я создал, и это не работает.

 If ThisWorkbook.Sheets("Sheet1").Range("C41").Value = "prime-membership" Then
    With IE.Document

    .getElementById("prime-membership").Click
    
End With
End If

If ThisWorkbook.Sheets("Sheet1").Range("C41").Value = "non-prime-membership" Then
    With IE.Document

    .getElementById("non-prime-membership").Click
    
End With
 

Вот элемент проверки на предмет «простого членства» и «не простого членства».

 <div data-a-input-name="membershipRadio" class="a-radio a-radio-fancy"><label for="prime-membership"><input id="prime-membership" type="radio" name="membershipRadio" value="true" checked=""><i class="a-icon a-icon-radio"></i><span class="a-label a-radio-label">Prime Members</span></label></div>

<div data-a-input-name="membershipRadio" class="a-radio a-radio-fancy"><label for="non-prime-membership"><input id="non-prime-membership" type="radio" name="membershipRadio" value="false"><i class="a-icon a-icon-radio"></i><span class="a-label a-radio-label">Non-Prime Members</span></label></div>
 

Ответ №1:

Переключатели не имеют события щелчка. Попробуйте это:

 If ThisWorkbook.Sheets("Sheet1").Range("C41").Value = "prime-membership" Then
  IE.Document.getElementById("prime-membership").Checked = True
Else
  IE.Document.getElementById("non-prime-membership").Checked = True
End If
 

Комментарии:

1. Суть моего ответа такова "Radio buttons do not have a click event" . Вы должны быть в состоянии провести собственное исследование с этим.