使用excel vba标记Internet Explorer中的所有checkbox

我试图创buildExcelmacros，这将标记在Internet Explorer页面上的某个表中的75个checkbox

该表的代码是：

<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 

预先感谢任何帮助或线索:)

Answer 1

我在这里做一个假设，有这样一个id的checkbox：

 ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_0 

有一个标识符，从0开始，如上所述，并增加1到74（对应于您对75个checkbox的请求）。

如果是这样，这样的事情可能会起作用：

  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 

然后我增加1，所以它会抓住并点击

 ctl00_MasterMain_ucGenConfig_ucConfigContainer_ucConfigPopup_cblSchemes_1 

等等，到74。