VBA中Selenium点击页面元素无响应问题求助

尝试用VBA版Selenium点击页面元素无响应，已尝试XPath、链接文本等定位方式均失败。

目标元素HTML #

<a href="javascript:void(0);" onclick="startProcess('QC inspector creates inspection report');">QC inspector create inspection report</a>

目标元素XPath #

//*[@id="CustomHTML0"]/table/tbody/tr[4]/td[2]/a

尝试的代码 #

方式一 #

Dim Crn As Selenium.WebElements
Set Crn = Bot.FindElementsByLinkText("QC inspector create inspection report", timeout:=5000)
Crn(1).Submit

方式二 #

Dim Crn As Selenium.WebElements
Set Crn = Bot.FindElementsByXpath("//*[@id="CustomHTML0"]/table/tbody/tr[4]/td[2]/a", timeout:=5000)
Crn(1).Submit

页面完整相关HTML #

<table border="0"><tbody><tr><td valign="top" width="200px"><font size="+1">Master Maintenance</font></td><td><a href="/teamworks/executeServiceByName?processApp=QCINSP&amp;serviceName=QA_COL-Vendor%20Factory%20Maintenance">Vendor Factory Maintenance</a></td></tr><tr><td valign="top" width="200px"><font size="+1">Enquiry</font></td><td><a href="/teamworks/executeServiceByName?processApp=QCINSP&amp;serviceName=QA_COL-QA%20user%20inquiries%20inspection%20report">QA user inquiries inspection report</a></td></tr><tr><td valign="top" width="200px"><font size="+1"></font></td><td><a href="/teamworks/executeServiceByName?processApp=QCINSP&amp;serviceName=QA_COL-QA%20user%20inquiries%20inspection%20report%20eConnect2">QA user inquiries inspection report eConnect2</a></td></tr><tr><td valign="top" width="200px"><font size="+1">Update</font></td><td><a href="javascript:void(0);" onclick="startProcess('QC inspector creates inspection report');">QC inspector create inspection report</a></td></tr><tr><td valign="top" width="200px"><font size="+1"></font></td><td><a href="javascript:void(0);" onclick="startProcess('Vendor creates inspection report');">Vendor creates inspection report</a></td></tr><tr><td valign="top" width="200px"><font size="+1"></font></td><td><a href="/teamworks/executeServiceByName?processApp=QCINSP&amp;serviceName=QA_COL-Vendor%20create%20inspection%20requisition">Vendor create inspection requisition</a></td></tr><tr><td valign="top" width="200px"><font size="+1"></font></td><td><a href="javascript:void(0);" onclick="startProcess('VA inspector creates correlation report');">VA inspector create correlation inspection report</a></td></tr><tr><td valign="top" width="200px"><font size="+1"></font></td><td><a href="/teamworks/executeServiceByName?processApp=QCINSP&amp;serviceName=VA%20inspector%20revise%20correlation%20report">VA supervisor revise approved correlation inspection report</a></td></tr><tr><td valign="top" width="200px"><font size="+1">Enquiry</font></td><td><a href="/teamworks/executeServiceByName?processApp=QCINSP&amp;serviceName=QA_COL-QA%20user%20inquiries%20correlation%20report">QA user inquiries correlation inspection report</a></td></tr></tbody></table>

问题诊断与修复方案 #

1. 错误使用Submit方法 #

目标元素是<a>标签，并非表单控件，Submit方法仅适用于表单或表单内的提交按钮，应替换为Click方法触发点击事件。

2. 集合索引错误 #

VBA Selenium中FindElementsBy...返回的WebElements集合是0索引，你用Crn(1)会访问第二个匹配元素（如果存在），但目标元素是第一个匹配项，应改为Crn(0)。

3. XPath字符串双引号嵌套问题 #

方式二中的XPath字符串包含双引号，在VBA中字符串内的双引号需要转义（用两个连续双引号），否则会导致字符串截断报错：
原错误代码：

Set Crn = Bot.FindElementsByXpath("//*[@id="CustomHTML0"]/table/tbody/tr[4]/td[2]/a", timeout:=5000)

修正后：

Set Crn = Bot.FindElementsByXpath("//*[@id=""CustomHTML0""]/table/tbody/tr[4]/td[2]/a", timeout:=5000)

或者改用单引号包裹XPath中的属性值，避免转义：

Set Crn = Bot.FindElementsByXpath("//*[@id='CustomHTML0']/table/tbody/tr[4]/td[2]/a", timeout:=5000)

4. 更稳定的定位方式推荐 #

依赖表格行索引的XPath易受页面结构变化影响，可通过onclick属性或链接文本直接定位单个元素（而非集合），简化代码：

方案A：通过链接文本定位单个元素

Bot.FindElementByLinkText("QC inspector create inspection report", timeout:=5000).Click

方案B：通过onclick属性定位

Bot.FindElementByXPath("//a[contains(@onclick, 'QC inspector creates inspection report')]", timeout:=5000).Click

内容的提问来源于stack exchange，提问作者RedDragon