点击检查表(IE-HTML)。为什么不工作?
早上好!我正在开发一个宏来单击页面上的几个按钮,但有些按钮不起作用。有人知道为什么吗 我将我的工作表张贴在: 提前感谢您的帮助点击检查表(IE-HTML)。为什么不工作?,html,vba,Html,Vba,早上好!我正在开发一个宏来单击页面上的几个按钮,但有些按钮不起作用。有人知道为什么吗 我将我的工作表张贴在: 提前感谢您的帮助 Silmar在电子表格中,我发布了一张图片,上面有两个按钮无法点击。不管怎样,我会把代码贴在这里 谢谢 Sub test() Dim ie Dim obj Dim obj2 Dim linkCollection2 Dim elemCollection Dim t As Integer Dim r As Integer, c As Integer Set ie = Cr
Silmar在电子表格中,我发布了一张图片,上面有两个按钮无法点击。不管怎样,我会把代码贴在这里 谢谢
Sub test()
Dim ie
Dim obj
Dim obj2
Dim linkCollection2
Dim elemCollection
Dim t As Integer
Dim r As Integer, c As Integer
Set ie = CreateObject("internetexplorer.application")
ie.Navigate2 "http://www.infomoney.com.br/mercados/agendas"
ie.Visible = True
Do While ie.Busy
Loop
Do Until ie.Document.ReadyState = "complete"
Loop
Dim LinkFound As Boolean
Dim linkCollection
Set linkCollection = ie.Document.getElementsByTagName("A")
For Each link In linkCollection
If link.InnerText = "Resultados" Then
LinkFound = True
link.Click
Exit For
End If
Next
If Not LinkFound Then
MsgBox "Link Not Found!"
Exit Sub
End If
Do While ie.Busy
Loop
Do Until ie.Document.ReadyState = "complete"
Loop
For Each obj In ie.Document.All.Item("ctl00$cphContent$ctl02$ddlReferencePage").Options
If obj.InnerText = "3T12" Then
obj.Selected = True
' ie.Document.forms(0).submit
Exit For
End If
Next obj
Set linkCollection2 = ie.Document.getElementsByTagName("A")
For Each link In linkCollection2
If link.InnerText = "Resultados" Then
LinkFound = True
link.Click
Exit For
End If
Next
Set elemCollection = ie.Document.getElementsByTagName("TABLE")
For t = 0 To elemCollection.Length - 1
For r = 0 To elemCollection(t).Rows.Length - 1
For c = 0 To elemCollection(t).Rows(r).Cells.Length - 1
ThisWorkbook.Worksheets(1).Cells(r + 1, c + 1) = elemCollection(t).Rows(r).Cells(c).InnerText
Next c
Next r
Next t
' The error happens here
' TO FROM HERE DOES NOT WORK. WHY?
For Each obj2 In ie.Document.All.Item("tblCInvestorData_length").Options
If obj.InnerText = "100" Then
obj2.Selected = True
' ie.Document.forms(0).submit
Exit For
End If
Next obj2
End Sub
这一点并不清楚。你能更好地解释你想做什么以及宏是如何失败的吗?如果你在问题中发布问题代码,人们更有可能提供帮助。最明显的问题似乎是,在上一次循环中,你检查了
obj
的内部文本,而不是obj2
我做了你建议的更改,但在执行过程中出现了错误。请参阅我对ie.document.all.Item(“tblCInvestorData_length”)中的每个obj2所做的:[CODE]操作。如果obj2.innerText=“100”则obj2.Selected=如果下一个obj2[/CODE]结束,则“选项”在此行中给出错误