VBA结合Selenium按ID定位元素失败，如何解决并获取元素值

核心原因排查与解决步骤 #

• 1. 增加元素等待时长，避免页面未渲染完成就执行查找
     Selenium默认无等待时间，页面DOM还未完全渲染时执行查找会直接报错，可给查找方法增加超时参数（单位：毫秒），最长等待指定时间直到元素加载完成：

  ' 最长等待10秒查找目标元素
  Set SearchInput = MyBrowser.FindElementById("sys_readonly.change_request.start_date", 10000)
  

  也可先强制等待页面加载完成再执行查找操作：

  MyBrowser.Wait 5000 ' 强制等待5秒
  Set SearchInput = MyBrowser.FindElementById("sys_readonly.change_request.start_date")
  

• 2. 切换到元素所在的iframe
     ServiceNow平台的表单元素默认嵌套在名为gsft_main的iframe中，需要先切换到对应iframe上下文才能定位到内部元素：

  MyBrowser.Start baseUrl:="https://cibc.service-now.com/change_request.do?sysparm_query=%5EGOTOnumber%3D" & sTicket   
  MyBrowser.Get "/"
  ' 先切换到ServiceNow表单专属iframe
  MyBrowser.SwitchToFrame "gsft_main"
  ' 再查找目标元素
  Set SearchInput = MyBrowser.FindElementById("sys_readonly.change_request.start_date", 10000)
  

  后续需要操作iframe外的元素时，可执行MyBrowser.SwitchToDefaultContent切回默认页面上下文。

获取value属性值代码 #

成功定位元素后，调用Attribute方法即可获取指定属性值：

Dim startDate As String
startDate = SearchInput.Attribute("value")

备选定位方案 #

如果ID定位仍失败，可使用CSS选择器或XPath精准匹配：

' CSS选择器定位
Set SearchInput = MyBrowser.FindElementByCss("input[id='sys_readonly.change_request.start_date']", 10000)
' XPath定位
Set SearchInput = MyBrowser.FindElementByXPath("//input[@id='sys_readonly.change_request.start_date']", 10000)

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