Excel VBA结合Selenium如何在ul元素下创建li元素？

由于直接操作输入字段无效，你可以通过Selenium的ExecuteScript方法执行JavaScript代码，直接操作DOM在目标ul下创建并添加li元素，具体实现如下：

1. 定位目标ul元素 #

先通过ID、XPath或CSS选择器定位到需要添加li的ul元素：

Dim driver As New ChromeDriver
Dim targetUl As WebElement

' 示例：通过ID定位ul，替换成你的ul元素实际ID
Set targetUl = driver.FindElementById("target-ul-id")

' 可选：如果用XPath定位
' Set targetUl = driver.FindElementByXPath("//ul[@class='your-ul-class']")

2. 执行JS创建并添加li元素 #

调用ExecuteScript执行JS代码，创建li元素并挂载到ul下：

' 基础版：添加带文本的li
driver.ExecuteScript _
    "var li = document.createElement('li'); " & _
    "li.textContent = '需要添加的列表文本'; " & _
    "arguments[0].appendChild(li);", targetUl

如果需要给li设置属性（如class、自定义属性），可以扩展JS代码：

' 进阶版：添加带样式和属性的li
driver.ExecuteScript _
    "var li = document.createElement('li'); " & _
    "li.textContent = '自定义列表项'; " & _
    "li.className = 'custom-li-style'; " & _
    "li.setAttribute('data-value', '123'); " & _
    "arguments[0].appendChild(li);", targetUl

3. 注意事项 #

• 动态页面需等待元素加载：如果ul是动态生成的，先等待元素出现再操作，避免找不到元素的错误：

  ' 等待10秒直到ul元素加载完成
  driver.WaitUntil ElementIsPresent(ById("target-ul-id"), 10)
  

• 触发页面事件：部分网页需要触发特定事件（如change、input）才能识别新添加的li，可在JS中补充事件触发：

  driver.ExecuteScript _
      "var li = document.createElement('li'); " & _
      "li.textContent = '触发事件的列表项'; " & _
      "arguments[0].appendChild(li); " & _
      "var updateEvent = new Event('change'); " & _
      "arguments[0].dispatchEvent(updateEvent);", targetUl
  

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