如何解决通过直接链接下载文件后关闭IE
我使用此代码通过IE从直接下载链接下载文件。但是当它运行时我卡住了 IE.quit,运行时错误462:远程服务器不存在。这是我的代码:
Sub Download ()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim a,l As Integer
Sheet3.Select
Range("A1").Select
l = Range(Selection,Selection.End(xlDown)).Rows.Count
For a = 1 To l
IE.Visible = True
IE.navigate Cells(a,2)
Application.Wait (Now + TimeValue("0:00:15"))
Application.SendKeys "%{S}"
Application.Wait (Now + TimeValue("0:00:2"))
IE.Quit
IE = Nothing
Next a
End Sub
请帮助我解决此问题。非常感谢
解决方法
我认为这是因为您在循环之外创建了IE
对象,但在循环中释放了IE
对象。您可以在循环中释放它,这样当它第二次循环时,就不能再使用它了。您可以在循环完成后释放IE
。此外,在Set
之前应该有一个IE = Nothing
。
代码应如下所示:
Sub Download()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim a,l As Integer
Sheet2.Select
Range("A1").Select
l = Range(Selection,Selection.End(xlDown)).Rows.Count
For a = 1 To l
IE.Visible = True
IE.navigate Cells(a,2)
Application.Wait (Now + TimeValue("0:00:15"))
Application.SendKeys "%{S}"
Application.Wait (Now + TimeValue("0:00:2"))
Next a
IE.Quit
Set IE = Nothing
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。