HTML文档与获取元素不匹配：VBA访问Google Apps Script页面问题

首先，你遇到的核心问题是IE浏览器的兼容性限制和动态内容加载的差异，导致VBA获取的DOM和现代浏览器中看到的完全不一致，具体原因如下：

主要原因 #

• IE已被Google服务弃用：Google Apps Script部署的网页基于现代Web标准开发，而IE（尤其是旧版本）对ES6+ JavaScript、现代CSS特性的支持极差，网页在IE中根本无法正确渲染动态生成的DOM结构——你看到的outerHTML只是浏览器能勉强解析的原始静态内容，不是最终渲染后的完整页面。
• 动态内容加载时机不匹配：即使你等待了readyState = READYSTATE_COMPLETE并额外加了3秒等待，这个状态仅表示初始HTML资源加载完成，不代表页面的JavaScript执行完毕、动态DOM生成完成。现代网页很多内容是在页面加载后通过AJAX或前端框架动态插入的，IE可能因为JS执行失败或效率低下，根本没生成你要找的文本框元素。
• 浏览器环境差异：Chrome/Firefox等现代浏览器会自动适配Google服务的兼容性并高效执行JS，而IE的安全设置、渲染引擎和它们完全不同，导致页面表现天差地别。

解决建议 #

1. 替换为Edge Chromium浏览器进行自动化（推荐） #

IE已经被微软彻底淘汰，改用基于Chromium的Edge是最靠谱的方案，VBA可以通过Selenium或EdgeDriver实现自动化，步骤如下：

• 下载对应版本的Edge驱动程序（确保和你的Edge浏览器版本一致）
• 在VBA中使用Selenium实现自动化，示例代码：

Sub GetEdgeDOM()
    Dim driver As Object
    Set driver = CreateObject("Selenium.EdgeDriver")
    
    driver.Get "https://script.google.com/macros/s/AKfycbwIE5ZwronuD81Ze5yu7DTVeaRRiNYZI6wX62WED3ix/dev"
    ' 等待目标元素加载，这里用显式等待更精准
    driver.Wait 5000 ' 先等待5秒，也可以替换为等待特定元素出现的逻辑
    Set myObj = driver.FindElementByTag("html")
    Debug.Print myObj.Attribute("outerHTML")
    
    driver.Quit
    Set driver = Nothing
End Sub

这样获取的DOM和你在Edge浏览器中检查元素看到的完全一致，因为Edge能正确执行页面的所有JavaScript，渲染出完整的动态内容。

2. 改进IE的等待逻辑（不推荐，仅临时应急） #

如果必须用IE，尝试替换固定等待为等待目标元素出现，确保动态DOM生成完成：

Sub WaitForElementInIE()
    Dim MyBrowser As New InternetExplorer
    Dim myhttp As HTMLDocument
    Dim targetElement As Object
    Dim startTime As Double
    
    MyBrowser.Visible = True
    MyBrowser.navigate "https://script.google.com/macros/s/AKfycbwIE5ZwronuD81Ze5yu7DTVeaRRiNYZI6wX62WED3ix/dev"
    
    ' 等待页面初始加载
    Do
        DoEvents
    Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
    
    ' 等待目标元素，超时10秒
    startTime = Now
    Do
        Set myhttp = MyBrowser.document
        On Error Resume Next
        Set targetElement = myhttp.getElementById("你要找的文本框ID")
        On Error GoTo 0
        DoEvents
    Loop Until Not targetElement Is Nothing Or DateDiff("s", startTime, Now) > 10
    
    If Not targetElement Is Nothing Then
        Debug.Print myhttp.DocumentElement.outerHTML
    Else
        Debug.Print "超时未找到目标元素"
    End If
    
    MyBrowser.Quit
    Set MyBrowser = Nothing
End Sub

注意：这种方法成功率极低，因为IE本身无法兼容Google的现代网页，大概率还是拿不到正确的DOM。

3. 使用XMLHTTP获取原始内容并解析（仅适用于静态内容） #

如果页面内容是静态的（但你的情况显然是动态的），可以用XMLHTTP获取原始HTML，再用MSHTML解析，但对于动态生成的内容，这种方法无法获取到JavaScript渲染后的DOM：

Sub GetStaticHTML()
    Dim xhr As Object
    Dim htmlDoc As Object
    
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    xhr.Open "GET", "https://script.google.com/macros/s/AKfycbwIE5ZwronuD81Ze5yu7DTVeaRRiNYZI6wX62WED3ix/dev", False
    xhr.Send
    
    Set htmlDoc = CreateObject("MSHTML.HTMLDocument")
    htmlDoc.body.innerHTML = xhr.responseText
    
    Debug.Print htmlDoc.DocumentElement.outerHTML
End Sub

但你的场景中，文本框是动态生成的，所以这个方法也不适用。

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