清理 InternetExplorer 实例时 return HTMLDocument 的有效方法

Question

在清理我的 InternetExplorer 实例时，这是 return 和 HTMLDocument 的有效方法吗？

Private Function myFunction() As HTMLDocument

    'init
    Dim out As HTMLDocument
    Dim browser As InternetExplorer
    Set browser = CreateObject("InternetExplorer.Application")

    ...
        
    'get HTMLDocument
    Set out = browser.document

    browser.Quit
    Set browser = Nothing

    Set myfunction = out
Exit Function

我之所以这样问，是因为我稍后在代码中使用 returned HTMLDocument 时出现不稳定的行为。我会看到输出 003，但看不到 004:

doc = myFunction()
...
Debug.Print "003"
strVar = doc.getElementsByClassName("sectionheading_center")(0).innerText
Debug.Print "004"
....

错误：-2147417848-Automation error The object invoked has disconnected from its clients. -VBAProject-1000440-0

Answer 1

您将失去动态交互，但可以通过将 innerHTML 转移到 MSHTML.HTMLDocument 变量来获取 html。也是只有正文html.

Private Function myFunction() As MSHTML.HTMLDocument
    'init
    Dim out As MSHTML.HTMLDocument
    Dim browser As SHDocVw.InternetExplorer
    Set browser = New SHDocVw.InternetExplorer

    '...Other code
        
    'get HTMLDocument
    Set out = New MSHTML.HTMLDocument
    out.body.innerHTML = browser.Document.innerHTML

    browser.Quit
    Set myFunction = out
Exit Function

@KostasK 的 class 解决方案是维护实例化实例以及向该对象添加方法的好方法。

清理 InternetExplorer 实例时 return HTMLDocument 的有效方法

Valid way to return HTMLDocument while cleaning InternetExplorer instance

excel

internet-explorer

vba