【VBA研究】方法quit作用于IWebBrowser2失败怎么办

浏览数：38 / 时间：2015年06月08日

作者：iamlaosong

用VBA编程实现自动读取网页数据，在读取过程中关闭网页时遇到这样一个错误：“ 方法quit作用IWebBrowser2失败”，无法执行quit方法，但其它属性没有问题，百思未得其解，其源代码如下：

Sub login3()
    Dim ie1 As Object

    lineno = [A65536].End(xlUp).Row      '行数
    For row1 = 2 To lineno
        ems_id = Trim(Cells(row1, 1))
        Set ie1 = CreateObject("InternetExplorer.Application")
        ie1.Visible = True
        ie1.navigate "http://10.3.10.83/ems/newsystem/thesecond/ttq/ttqMailquery.jsp"
        Do Until ie1.Readystate = 4
        DoEvents
        Loop
        ie1.document.Forms(0).All("mailNum").Value = ems_id
        ie1.document.Forms(0).submit
        If MsgBox("第" & row1 - 1 & "个邮件查询完毕，继续...", vbOKCancel, "ＡＨＥＭＳ：iamlaosong") = vbCancel Then Exit Sub
        ie1.Quit    ' 此句报错
        
        'Debug.Print ie1.document.DocumentElement.outerHTML      ' 显示网页源代码
        'Debug.Print ie1.document.body.innertext                  ' 显示网页文本信息
        'rethtml = ie1.document.DocumentElement.outerHTML

    Next row1
    
End Sub

网上搜了一下，也有人提出类似问题，但没有找到问题所在，有人说可以正常执行，有人说不行，也有人说有时行，有时不行，仔细思考，怀疑是否是浏览器的原因，出问题时，打开的是360浏览器，换成IE也许就行了，于是，将默认浏览器换成IE8，再运行程序，问题不再出现。

结论：该方法可以关闭IE浏览器，其它浏览器是否可行，需要测试。

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

【VBA研究】方法quit作用于IWebBrowser2失败怎么办