VBA中如何通过WebDriver操作Chrome打开页面href链接？

两种适配你场景的跳转实现逻辑 #

结合你多商品批量编辑、后续要做循环的需求，两种方式都能稳定跑通：

• 直接打开链接（效率最高，优先推荐）：你只需要提前把每个商品对应的库存编辑页href存在Excel对应单元格里，根本不用在搜索结果页反复找元素点击，直接让浏览器打开目标链接就行，既减少元素定位出错的概率，写循环的时候逻辑也简单。
• 页面点击锚点跳转：如果必须在搜索结果页点那个带内嵌图片的编辑a标签再跳转，用属性选择器精准定位目标a标签触发点击即可。

可直接接在你现有脚本后的代码片段 #

先提醒个你现有脚本里的常见坑：obj.Wait(500)是硬等500毫秒，网络稍微卡一点，页面没加载完就去找元素，直接抛“元素不存在”的错，建议换成WebDriver自带的元素等待方法，稳定性高很多。

' 等搜索结果容器加载完成，最长等10秒，元素出来就立刻执行下一步
obj.WaitForElementByCss "#product-list-container", 10000

' 方式1：直接读Excel存的href跳转，适合批量操作
Dim editHref As String
' 提前把每行商品对应的编辑链接存在「31 CV」表的对应列就行，比如当前第4行商品的链接存在F4
editHref = ThisWorkbook.Sheets("31 CV").Range("F4").Value
obj.Get editHref

' 方式2：在搜索结果页点击你说的那个带图片的a标签跳转
' 利用a标签内嵌img的alt属性精准匹配，不会点错页面上其他同结构的a标签
Set editLink = obj.FindElementByCss "a > img[alt='href location']"
editLink.Click

' 重点注意：如果点a标签是新开标签页跳转，必须把WebDriver的控制句柄切到新标签，不然后续所有操作都会停在原搜索页，全部定位失败
' 先记录原搜索页的窗口句柄
Dim searchWindow As Selenium.Window
Set searchWindow = obj.Window
' 切换到刚打开的新标签页
obj.SwitchToNextWindow

后续做循环的基础逻辑参考 #

你后面要学循环操作的话，沿着这个流程搭框架就行，逻辑不复杂：

• 从工作表存商品的起始行开始逐行遍历
• 清空搜索框内容，输入当前行的商品名，点搜索
• 等搜索结果加载，触发编辑跳转
• 定位库存输入框，填入目标库存值，点保存按钮
• 切回初始搜索列表页，处理下一行的商品

容易踩的雷 #

• 定位元素的时候优先选固定不变的属性（比如这里的img的alt值），别靠容易变动的类名、临时显示的文本定位，不然页面一改版脚本就直接失效
• 所有需要等页面加载的环节，别用固定毫秒数的硬等，换成WaitForElement的显式等待，快的时候不浪费时间，慢的时候也不会因为等太短报错
• 跳转编辑页之后，输入框一般也是异步加载的，一定要等元素出来再填值，别直接就SendKeys

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