Excel VBA如何使用WebBrowser访问ContentDocument摘要

我正在尝试使用WebBrowser使用JS访问框架的文档对象。下面的代码工作得很好，但我需要改用WebBrowser。 这就是我的错误：

运行时错误“438”

对象不支持此属性或方法

有什么指导吗

对象不支持此属性或方法

可能问题与Close方法和访问html元素的相关方法有关

首先，请尝试使用F12开发者工具检查网站是否包含iframe标记和select元素，并检查帐户。根据您的代码，页面应至少包含两个iframe标记，iframe内容页面将至少包含一个select元素，请验证它。此外，还可以从VBA脚本中添加调试器，并检查innerhtml值，确保可以获得该值

第二，关于Close方法，尝试修改代码如下：

Close #3

此外，请检查以下代码，我已经在我这边对其进行了测试，它运行良好。网站包含一个iframe标记，而iframe内容页面仅包含一个select元素：

Sub GrabWorkerId1()

    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Visible = True
    objIE.Navigate "<website url>"

    While objIE.ReadyState <> 4
            DoEvents
    Wend

    Open "d:\temp\test.log" For Output As #3

    Write #3, objIE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementsbyTagName("select")(0).innerhtml

    Close #3

    Set objIE = Nothing   
End Sub

---

嗨，智，对不起，我的要求可能不清楚。如果我使用IE对象，我共享的代码可以正常工作。我需要改用WebBrowser，当我出现错误时，就会出现这种情况。类似这样的内容：webbrowser.Document.getElementsbyTagNameiframe0.contentDocument.getElementsbyTagNameselect0.innerhtml关于Close方法，您是对的，但是它在没有。谢谢。你能解释更多关于网络浏览器的细节吗？你是说网络浏览器吗？是否仍在使用VBA，能否共享相关代码重现问题？

Sub GrabWorkerId1()

    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Visible = True
    objIE.Navigate "<website url>"

    While objIE.ReadyState <> 4
            DoEvents
    Wend

    Open "d:\temp\test.log" For Output As #3

    Write #3, objIE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementsbyTagName("select")(0).innerhtml

    Close #3

    Set objIE = Nothing   
End Sub