等到加载特定元素

Question

我正在尝试抓取一个网站，我正在处理许多元素。我需要等待元素加载完毕。

这是我到现在为止的尝试，但我等待了很长时间，有时我会出错。

.FindElementById("ContentPlaceHolder1_Button1").Click
.Wait 2000
GoBack1:
Set elePrint = .FindElementById("IconImg_CrystalReportViewer1_toptoolbar_print", timeout:=20000, Raise:=False)
If elePrint Is Nothing Then
    Application.Wait Now() + TimeValue("00:00:01"): GoTo GoBack1
Else
    elePrint.Click
End If
GoBack2:
Set eleExport = .FindElementById("theBttnbobjid_1545642213647_dialog_submitBtn", timeout:=20000, Raise:=False)
If eleExport Is Nothing Then
    Application.Wait Now() + TimeValue("00:00:01"): GoTo GoBack2
Else
    eleExport.Click
End If

有没有更好的方法来做到这一点？

这是html部分

<tbody><tr valign="middle"><td height="21" width="5" style="background-image:url('aspnet_client/system_web/4_0_30319/crystalreportviewers13/js/crviewer/../dhtmllib/images/skin_standard/button.gif');background-position:0px 0px;"></td><td id="theBttnCenterImgbobjid_1545656314367_dialog_submitBtn" align="center" class="wizbutton" style="padding-left:3px;padding-right:3px;background-image:url('aspnet_client/system_web/4_0_30319/crystalreportviewers13/js/crviewer/../dhtmllib/images/skin_standard/button.gif');background-position:0px -42px;"><nobr><a id="theBttnbobjid_1545656314367_dialog_submitBtn" href="javascript:void(0)" class="wizbutton" role="button">Export</a></nobr></td><td height="21" width="5" style="background-image:url('aspnet_client/system_web/4_0_30319/crystalreportviewers13/js/crviewer/../dhtmllib/images/skin_standard/button.gif');background-position:0px -21px;"></td></tr></tbody>

Answer 1

您可以尝试循环您的元素，直到它们可用为止。

On Error Resume Next
Do While .FindElementById("theBttnbobjid_1545642213647_dialog_submitBtn") Is Nothing
    DoEvents
Loop
On Error Goto 0

如果由于某种原因网页挂起，我也会考虑在您的循环中添加一个计时器 - 如果是这种情况，您可以重新加载网页或执行一些其他错误处理操作。

Answer 2

您可以将其缩短为

Do 
Loop While .FindElementsByCss("#theBttnbobjid_1545642213647_dialog_submitBtn").Count = 0 

虽然你应该设置一个超时时间

Const MAX_WAIT_SEC As Long = 10
Dim t 
t = Timer
Do 
    If Timer - t > MAX_WAIT_SEC Then Exit Do
Loop While .FindElementsByCss("#theBttnbobjid_1545642213647_dialog_submitBtn").Count = 0 

不会出现错误，也无需让步控制。如果找不到该项目，.Count 将为零。

如果 id 是动态的并且你有一个常量子字符串（它只出现在页面上的一个 id 属性上（为了安全起见 - 可能不是必需的）你可以在 css 中使用 ^、*、$ 运算符）。例如，如果起始字符串在页面间保持不变，则将 css 选择器更改为

[id^='theBttnbobjid']

如果出现不止一次，并且索引在页面之间是恒定的，则使用索引稍后进行交互，例如

.FindElementsByCss("[id^='theBttnbobjid']")(2)