作者Ibrahimovic (伊布)
看板Office
标题[算表] 关闭开启的IE
时间Wed Jan 31 17:47:29 2018
软体: 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
请问要怎麽写？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 122.121.107.138
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1517392051.A.274.html
1F：→ soyoso: set ie...不要放入for回圈内的部分，不然执行一次就开启一 01/31 18:40
2F：→ soyoso: 个ie的窗体。关闭以quit 01/31 18:41
感谢
最後set ie我放进入回圈前，ie.quit放跑完回圈後
※ 编辑: Ibrahimovic (122.121.107.138), 01/31/2018 20:45:14
3F：→ ProTrader: set ie放在副程式 另外呼叫 "call 下载资料()" 02/01 12:15
4F：→ ProTrader: 副程式最後要set ie = nothing 副程式放在回圈呼叫 02/01 12:17