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

最新推荐文章于 2022-09-06 08:49:21 发布

宋哥

最新推荐文章于 2022-09-06 08:49:21 发布

阅读量4.5k

点赞数

分类专栏： VBA_Excel

本文链接：https://blog.csdn.net/iamlaosong/article/details/44773883

版权

作者在使用VBA自动化读取网页数据时遇到一个问题，即调用IWebBrowser2对象的quit方法关闭IE浏览器时失败。尽管对象的其他属性仍可正常访问，但quit方法无法执行。最终找到的解决方案是通过调用特定方法来成功关闭IE浏览器。此问题可能不适用于其他类型的浏览器，需要进一步测试确认。

摘要由CSDN通过智能技术生成

作者：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, "ＡＨ&#x