作者：iamlaosong
用VBA编程实现自动读取网页数据，在读取过程中关闭网页时遇到这样一个错误：“ 方法quit作用IWebBrowser2失败”，无法执行quit方法，但其它属性没有问题，百思未得其解，其源代码如下：
Sub login3()Dim ie1 As Objectlineno = [A65536].End(xlUp).Row'行数For row1 = 2 To linenoems_id = Trim(Cells(row1, 1))Set ie1 = CreateObject("InternetExplorer.Application")ie1.Visible = Trueie1.navigate ""Do Until ie1.Readystate = 4DoEventsLoopie1.document.Forms(0).All("mailNum").Value = ems_idie1.document.Forms(0).submitIf MsgBox("第" & row1 – 1 & "个邮件查询完毕，继续…", vbOKCancel, "ＡＨＥＭＳ：iamlaosong") = vbCancel Then Exit Subie1.Quit ' 此句报错'Debug.Print ie1.document.DocumentElement.outerHTML' 显示网页源代码'Debug.Print ie1.document.body.innertext' 显示网页文本信息'rethtml = ie1.document.DocumentElement.outerHTMLNext row1End Sub网上搜了一下，也有人提出类似问题，但没有找到问题所在，，有人说可以正常执行，有人说不行，也有人说有时行，有时不行，仔细思考，怀疑是否是浏览器的原因，出问题时，打开的是360浏览器，换成IE也许就行了，于是，将默认浏览器换成IE8，再运行程序，问题不再出现。
结论：该方法可以关闭IE浏览器，其它浏览器是否可行，需要测试。
蝙蝠黑暗中闯荡，树木默默的成长，蝴蝶破蛹后飞翔，
