отметьте все флажки в Internet Explorer с помощью excel vba

Я пытаюсь создать макрос excel, который отметит 75 флажков в определенной таблице на странице проводника Интернета

код этой таблицы:

<TABLE id=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes border=0><TBODY> <TR> <TD><INPUT id=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_0 type=checkbox name=ctl00$MasterMain$ucGenConfig$ucConfigContainer$ucConfigPopup$cblSchemes$0><LABEL for=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_0>Start</LABEL></TD></TR> <TR> <TD><INPUT id=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_1 type=checkbox name=ctl00$MasterMain$ucGenConfig$ucConfigContainer$ucConfigPopup$cblSchemes$1><LABEL for=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_1>Start2</LABEL></TD></TR> <TR> <TD><INPUT id=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_2 type=checkbox name=ctl00$MasterMain$ucGenConfig$ucConfigContainer$ucConfigPopup$cblSchemes$2><LABEL for=ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_2>Default</LABEL></TD></TR> <TR> 

и т. д. Я пробовал разные способы, но он не хочет играть

 With IE.document.getElementsByName("ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes") .Item.Click end with 

а также

 With IE.document.getElementsByName("checkBoxlist(ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes)") .Item(0).Checked = True 'Entered End With 

а также

 For Each htmlelement In IE.document.getElementsByName("ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes") htmlelement.Item(0).Click Next htmlelement 

Спасибо заранее за любую помощь или ведет 🙂

Я делаю здесь предположение, что флажки с таким идентификатором:

 ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_0 

Идентификатор, начинающийся с 0, как указано выше, и увеличивается на 1 – 74 (соответствует вашему запросу 75 флажков).

Если это так, что-то вроде этого может работать:

  Dim sBaseName As String Dim i As Integer 'The base id of the checkboxes sBaseName = "ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_" For i = 0 To 74 '75 checkboxes ie.Document.getElementByID(sBaseName + CStr(i)).Click Next i 

Конечно, вы должны быть уверены, что правильно настроили, правильно, перешли на страницу и т. Д.

Этот код сначала захватит и щелкните

 ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_0 

Затем i увеличивается на 1, поэтому он захватывает и нажимает

 ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_1 

И так далее, до 74.

Давайте будем гением компьютера.