[算表] 关闭开启的IE

楼主: Ibrahimovic (伊布)   2018-01-31 17:47:29
软件: Excel
版本: 2016
最近在解决下载网页资料不顺利的问题
觉得是网页没有读取完整就去下载才造成的
所幸在youtube上找到一段可以解决这个问题的程式码
只是又延伸另外一个大问题
主要程式码如下,基本上是等待网页读取完整才跳出循环吧
Set IE = CreateObject("internetexplorer.application")
IE.Navigate URLb 'URLb 为变量 (连结网址)
Do While IE.readyState <> 4 Or IE.Busy
DoEvents
Loop
以上这段程式码
我是放在下载用的 For 循环里面的前半段
加了以后试了几次,下载变得非常顺利
只是后来电脑开始也变的怪怪的
进工作管理员一看,cpu或内存的使用率都有异常
结果是 IE 已经开了一大堆
然而因为加了这段程式码后的下载完成度效果非常显著,实在不舍著删
想问的是
如果要在同个循环后面,关闭同个循环前面自已开启的IE
请问要怎么写?
作者: soyoso (我是耀宗)   2018-01-31 18:40:00
set ie...不要放入for循环内的部分,不然执行一次就开启一个ie的窗体。关闭以quit
作者: ProTrader (没有暱称)   2018-02-01 12:15:00
set ie放在副程式 另外呼叫 "call 下载资料()"副程式最后要set ie = nothing 副程式放在循环呼叫

Links booklink

Contact Us: admin [ a t ] ucptt.com