Excel VBA向SkyVector网站复制文本出现运行时错误438的求助

核心错误点 #

• 方法名拼写错误：DOM标准获取单元素ID的方法为getElementById（单数无s），你的代码多写了s导致IE无法识别该方法，直接触发438报错。
• 动态元素未提前加载：sv_planEditField是点击「Flight Plan」按钮后才动态渲染到DOM中的元素，首页加载完成时该元素不存在，直接操作必然报错。
• 前端框架适配问题：SkyVector使用了前端框架做数据双向绑定，直接修改value属性不会被框架逻辑识别，需要模拟输入事件触发数据更新。

修复后可运行代码 #

Sub test1()
    Dim IE As Object
    Dim doc As HTMLDocument
    Dim planBtn As Object
    Dim routeInput As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://www.skyvector.com/"
    
    ' 等待首页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        Application.Wait DateAdd("s", 1, Now)
    Loop
    
    Set doc = IE.document
    
    ' 点击Flight Plan按钮调出面板
    Set planBtn = doc.getElementById("fplshow")
    planBtn.Click
    
    ' 等待Route输入框渲染完成
    On Error Resume Next
    Do
        Application.Wait DateAdd("s", 0.5, Now)
        Set routeInput = doc.getElementById("sv_planEditField")
        DoEvents
    Loop Until Not routeInput Is Nothing
    On Error GoTo 0
    
    ' 赋值并触发输入事件
    routeInput.Value = "test"
    routeInput.FireEvent ("oninput")
End Sub

注意事项 #

• 运行前需确认VBA引用中已添加「Microsoft HTML Object Library」
• 如果IE浏览器版本过低可能无法触发前端事件，建议使用IE11版本运行

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