返回列表 上一主題 發帖

[發問] 請教高手, 執行階段錯誤1004, 及迴圈越執行越慢的問題

jer92jer

帖子
3 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-8-11 
最後登錄
2020-12-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-27 11:04 | 只看該作者

[發問] 請教高手, 執行階段錯誤1004, 及迴圈越執行越慢的問題

站內各位高手大家好,

       我自己寫一個VBA, 要顯示  證交所 買賣日報表 的資料,

       因為要抓很多支上市的股票, 所以 用迴圈處理,  發生2個問題, 也作了很多功能都解決不了,

       問題1:  不定時 會中斷, 每次都卡在 抓網頁的 語法的最後一行 .Refresh...
                     但每次顯示停住的視窗, 我 按"偵錯"  再按 F5 繼續, 就又可以繼續顯示,   但總不能每次都卡住再去按..

       問題2:  因為要抓 幾百支的股票, 所以 迴圈執行到後面, 會越顯示越慢,  可能前 1~100支股票, 只要花 30分鐘, 但到後面 花的時間是好幾倍
  
       我自己試過的方式
       1. delete 剛查過的table, 好像沒用
       2. 加 on error resume next , 是可以, 但  原本會卡住的那支股票的TABLE 就會跳過, 不顯示
       3. 加 delay,  要加到 delay 10, 好像 才可以 不卡住, 但這樣好像不是可靠的解法
      
       請各位高手, 能否 高知小弟, 如何解決,   非常感謝!   ^_^

上市各股每日券商明細_顯示.rar (262.54 KB)
收藏 分享

Jevon

帖子
19 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
Vista 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2010-5-14 
最後登錄
2020-7-23 

2015羊年全勤獎章2014馬年全勤獎章
2#
發表於 2013-1-27 19:04 | 只看該作者
根據我的經驗, 像yahoo的網頁如果用迴圈去跑資料的話,
對方的sever有時會認為遭受攻擊而中斷訪問,
證交所舊的網頁好像也是如此.
除非像您第3點所說的加入"delay".
但又因為有on error.., 還是很容易漏掉一些資料的.

至於愈跑愈慢, 釋放記憶體看會不會有幫助.

如果可以的話, 最好從交易總表下手, 跑迴圈真的不穩且很花時間...

TOP

jer92jer

帖子
3 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-8-11 
最後登錄
2020-12-3 
3#
發表於 2013-1-27 21:16 | 只看該作者
to Jevon 大大,

你指的釋放記憶體是指哪個?! 可以建議一下嗎?!
我自己試了
1.  若將查詢結果 存檔, 都有作以下前後必要的動作
            Set oXL = CreateObject("Excel.Application")
            Set oWB = oXL.Workbooks.Open(myNewName, True)
            ....
            oWB.Close
            oXL.Quit
            Set oWB = Nothing
            Set oXL = Nothing

2. 在 querytable 後, 也作過 馬上加 以下的CODE
                    For i = 1 To ActiveWorkbook.Connections.Count
                        ActiveWorkbook.Connections.Item(1).Delete
                    Next i

還是沒有用..

執行越來越慢, 我想這個與 server 較無關, 因為我自己試過
1. 全部 八百多筆資料一次跑完 的總時間A
2. 每跑100筆, 就關掉excel, 再跑下一個100筆, 分8次執行,   總時間B

總時間B 遠遠 <   總時間A
所以應該是釋放記憶體的問題造成, 但就不知哪裡出錯,

希望站內各位高手, 給點意見, 自己作很多功課, 但好像還是找不到關鍵點
謝謝!

TOP

Jevon

帖子
19 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
Vista 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2010-5-14 
最後登錄
2020-7-23 

2015羊年全勤獎章2014馬年全勤獎章
4#
發表於 2013-1-27 22:59 | 只看該作者
回復 4# jer92jer
To jer92jer 兄,

首先要說, 在這兒我一點都不大, 只是興趣+簡化工作的需求,
會找些類似的例子加以修改來用, 嚴格說VBA連基本功都沒打好...,

反觀這裡臥虎藏龍的高手實在很多, 由他們針對您的Code加以診斷,
一定能很快地找出癥結所在, 會比我憑空想像強得多.

因為我本身也有用Excel連結外部資料來追蹤自己的投資組合,
您所困擾的問題讓我有些似曾相識的感覺, 因此野人獻曝而已...

如果不是記憶體占用的問題, 請再看看
(1) 工作表/活頁簿內是否有複雜或大量的公式或連結-先關閉重算功能
(2) 名稱定義的部分是否過多-我之前就曾發生過, 嚴重影響速度

提供您參考...

TOP

jer92jer

帖子
3 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-8-11 
最後登錄
2020-12-3 
5#
發表於 2013-1-30 21:03 | 只看該作者
自己再推一下,

能有高手出手指導嗎?!

感恩丫!

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題