我使用以下代码构建了一个集合,其中有几个项目。但是,我不知道如何立即访问这些项目或其属性。例如,这些项目之一是一个复选框,其属性为Checked,可以为true或false。我尝试过的失败的事情:
objCollection.item5
objCollection(5)
objCollection.Item(5)
这是我的代码:
Dim objIE As InternetExplorer 'special object variable representing the IE browser
'initiating a new instance of Internet Explorer and asigning it to objIE
Set objIE = New InternetExplorer
'make IE browser visible (False would allow IE to run in the background)
objIE.Visible = True
'navigate IE to this web page
objIE.Navigate "https://secure01b.chase.com/web/auth/dashboard#/dashboard/overviewAccounts/overview/index"
'wait here a few seconds while the browser is busy
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop
Set objCollection = objIE.Document.getElementsByTagName("iframe")(0).contentDocument.getElementsByTagName("input")
整个过程的最终目标是能够通过宏登录此页面以检索我的信用支出,以便我可以进行一些出色的数据操作。
编辑:当我观看集合时,这是运行代码的结果:objCollection观看结果
正如QHarr所说,Collection列表的索引从0开始,如果要查找第5个元素,可以使用objCollection(4)
或objCollection.item(4)
。
此外,我们还可以使用getElementbyId方法找到特殊元素,如下所示:
Dim userText As Object, rememberCheckBox As Object
Set userText = objIE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementbyId("userId-input-field")
userText.Value = "AAA" 'set value.
Set rememberCheckBox = objIE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementbyId("input-useToken")
rememberCheckBox.Click 'click the useToken checkbox to check it.
在使用F12开发人员工具检查您的网站元素之后,我发现您正在通过使用checkbox__input checkbox__input--checked
CSS类而不是使用checked
属性来检查复选框。您可以使用F12开发人员工具进行验证。
因此,如果您想选中该复选框,则在找到该复选框之后,我们可以单击它进行选中。您可以参考上面的代码,或使用以下代码:
objCollection.Item(4).Click
objCollection(4).Click
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句