mikeon88
管理員
UID 1
精華
0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14 用戶註冊天數 6305
用戶失蹤天數 0
118.169.162.19
|
|
Wu Alex 於 2018年5月21日 下午4:45 寫道:
Hi Mike,
僅調整了美股, 請試試看是否改善. 說明如下:
1. 減少range.select. 因為此會使程式一定要點選該儲存格. Example as below變更前
| 變更後
| Range("k11").Select
ActiveCell.FormulaR1C1 = "=R[2]C[13]"
| Range("k11").FormulaR1C1 = "=R[2]C[13]"
|
2. [抓公司名,股價,市值, 日期 6/8] , [ 抓介紹 7 / 8] , 改用xmlhttp, 捨棄querytable方式, 因為querytable需要等該頁面load完後,才可以動作.
3. 在抓年金流表 8 / 8之後,先讓screenupdating=true, 並wait 0.5 second, 因為後續有.Calculation = xlAutomatic , 此時系統資源需求拉高以進行資料運算.
故先讓screenupdating=true first , 且 wait 0.5 second. 同時.Calculation = xlAutomatic前,再screenupdating=false
4. 我試了之後未有反白情形(重覆試了單一支美股及10支收藏).
系統資訊如下:
1. Windows 10 64 bit
2. Excel 2010
3. CPU: i7-6500U, 2.5GHz
4. RAM: 8GB
|
|
|