VBA IE自动化代码无返回结果问题排查（后期绑定）

我来帮你分析下问题所在，你的代码能运行但拿不到translation值，核心问题出在元素定位的稳定性和等待逻辑的可靠性上，咱们一步步来解决：

问题根源拆解 #

• 硬编码的元素索引极不稳定：你用getElementsByTagName("span")(22)和(109)来定位语言切换按钮，这种基于标签集合索引的方式完全依赖网页的静态结构——只要网站更新一点布局，这些索引就会失效，大概率你现在点击的根本不是目标语言切换按钮，导致后续翻译流程没走通，自然拿不到结果。
• 固定等待时间不可靠：Application.Wait Now + TimeSerial(0, 0, 3)是强制等3秒，但实际网络加载速度、网页渲染时间都是不确定的，可能3秒内翻译结果还没生成，也可能早就加载完了白等。
• 变量未显式声明：translation没有提前声明，虽然VBA支持隐式声明，但显式声明能避免很多潜在错误（比如变量名拼写错误）。

修复后的代码（保留后期绑定） #

Public Sub GetInfo()
    Dim IE As Object, html As Object
    Dim translation As String ' 显式声明变量
    
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://pl.pons.com/tłumaczenie"
        
        ' 等待IE完全加载
        While .Busy Or .readyState < 4: DoEvents: Wend
        Set html = .document
        
        ' 替换不稳定的span索引，用更精准的选择器定位语言切换（示例：切换到波英翻译）
        html.querySelector("a[href='/tłumaczenie/polski-angielski']").Click
        
        ' 等待语言切换页面加载完成
        While IE.Busy Or IE.readyState < 4: DoEvents: Wend
        
        ' 输入要翻译的单词
        html.getElementById("q").Value = "rower"
        
        ' 点击提交按钮（用更精准的选择器）
        html.querySelector("button.btn-primary.submit").Click
        
        ' 等待翻译结果加载完成：循环等待目标dd元素出现
        Do While html.getElementsByTagName("dd").Count = 0
            DoEvents
        Loop
        
        ' 获取翻译结果
        translation = html.getElementsByTagName("dd")(0).innerText
        Debug.Print translation ' 可在VBA立即窗口查看结果
        Stop
        
        .Quit
    End With
End Sub

关键改进点说明 #

• 用属性选择器替代索引定位：比如querySelector("a[href='/tłumaczenie/polski-angielski']")，通过链接的href属性定位语言切换按钮，只要网站的语言路由不变，这个定位就一直有效，远胜静态索引。
• 元素加载等待逻辑：替换固定等待为循环等待目标元素（dd）出现，确保翻译结果生成后再获取，不会因加载慢导致拿不到值。
• 显式声明变量：避免隐式声明带来的意外问题，代码更规范。

额外注意事项 #

• 确保IE的安全设置允许VBA自动化操作（如果遇到权限问题，可以在IE的Internet选项->安全->自定义级别里启用“允许脚本初始化的窗口没有大小或位置限制”等相关选项）。
• 如果你需要切换其他语言对，只需要修改querySelector里的href属性值，对应Pons网站上的语言路由即可。

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