white5168

敬告各位 會員
希望各位在回文時 字句的修飾是必須的,要考慮到對方有不舒服的感受,請不要製造出互相攻擊的 ...
GBKEE 發表於 2012-8-5 09:30

7598秒為未優化前的數據,開啟視窗的執行迴圈是不開視窗執行迴圈的3.5倍,版主該不會也在文字上沒注意看到吧?

GBKEE

回復 42# white5168
你這 未優化 與我 7# 未更新前的程式一樣 尚未測試確定沒問題就急著推出 有點類似
期待 你優化後 VBA    會 [ 教學相長 ] 的
想請教 python 也是未優化 嗎?

HSIEN6001

回復 41# GBKEE

1. '取得頁數 ; 避開只為 [頁數] 取得而拼命刷該網頁;造成塞龜 http://bsr.twse.com.tw/bshtm/bsMenu.aspx?
   
2.     strURL = "http://bsr.twse.com.tw/bshtm/bsMenu.aspx?" & _
   
3.     "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKMTczNDk4NzY0Mg9kFgICAQ9kFgwCBQ8WAh4JaW5uZXJodG1sBQoyMDEyLzA4LzAxZAIGDxYCHwAFCDIwMTIwODAxZAIIDw8WBh4JRm9udF9Cb2xkZx4EXyFTQgKEEB4JRm9yZUNvbG9yCj1kZAIKD2QWAgIBDw9kFgIeB09uQ2xpY2sFHGphdmFzY3JpcHQ6YnV0Q2xlYXJfQ2xpY2soKTtkAgwPDxYGHwFoHwIChBAfAwpHZGQCDg8PFgIeB1Zpc2libGVoZGRktxLZGMAybpsQ2UGpZGNtbwAAAAA%3D&__EVENTVALIDATION=%2FwEWCALzjPG5CALjpuXcAwKN4Ij0CwLB5ZfoCQLjk6TKBwKY8en5CwLdkpmPAQL6n7vzC9kuc7umJfLwqKqibgdx3poAAAAA&HiddenField_spDate=&HiddenField_page=PAGE_BS&txtTASKNO=" & fileIdx & "&hidTASKNO=&btnOK=%E6%9F%A5%E8%A9%A2"
   
4.         With xml
   
5.             .Open "GET", strURL, 0
   
6.             .send
   
7.             Do While xml.readyState <> 4
   
8.             Loop
   
9.             x = Split(Split(.responseText, "sp_ListCount"">")(1), "</span></b>")(0)
   
10.         End With
    
11. '將頁數丟給下載去處理
    
12. '下載xls
    
13.     With ActiveSheet.QueryTables.Add(Connection:= _
    
14.         "URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & fileIdx & "&FocusIndex=All_" & x _
    
15.         , Destination:=Range("A1"))             '放置位置< ----->可變
    
16.         .Name = "券商"
    
17.         .BackgroundQuery = True                 '刷新返回查詢(執行更新)
    
18.         .RefreshStyle = xlOverwriteCells        '= xlOverwriteCells '覆蓋原欄位  = xlInsertDeleteCells '插入新資料,原資料右移
    
19.         .RefreshPeriod = 0                      '自動更新時間 以分為單位 5代表每5分鐘更新一次 0代表不自動更新
    
20.         .WebSelectionType = xlSpecifiedTables   '指定類型= xlEntirePage 整頁        = xlSpecifiedTables 表格        = xlAllTables 所有表格
    
21.         .WebFormatting = xlWebFormattingNone    '= xlWebFormattingNone 不保留連結及樣式    = xlWebFormattingRTF  保留連結及格式設定
    
22.         .WebTables = "5,""table2"""             '指定取得之表格 與 .WebSelectionType = xlSpecifiedTables配合 = "1,2," 或 ="5,""table2""" 或 = """table1"",""table2"""
    
23.         .WebDisableDateRecognition = False      '日期鑑別=False 禁用        =True 使用
    
24.         .Refresh BackgroundQuery:=False         '刷新返回查詢(執行更新)
    
25.     End With

複製代碼

我是真的佩服W大的功力,完全沒有攻訐意思。
我很菜,看過我先前的發問就知道我是菜鳥一個；時常勞煩各位幫忙解決〔很感恩〕。
只是[提醒]刷頁面問題，也是另一個塞車的困擾。 [這勉強可算 (教學相長) 的一部份]
至於寫；因為還再不斷 Try 於VBA 很陌生的生字。沒到可以獻醜的部份。

現在正在思考的問題是 , 因為處理xls存檔；也掛載相當久。所以改用htm下回來再一起處理。
相關學習思路也是在版上，有跡可循。

http://forum.twbts.com/thread-7336-1-1.html
http://forum.twbts.com/viewthrea ... p;extra=&page=2

寫程式沒有絕對的誰好誰不好
可以再不同的思路中；學到更多的可能性
這點真的很棒！ --->相信很多版大都有這種 初衷
所以樂意在此幫助像我這樣的菜鳥

我目前還沒見過因為自己寫的爛
攻擊我的,都是適度給我其他更多的參考
這對於吸收不同的思維
提供了很好的輔助
不是嗎?!

在此!慎重聲明~~~不再回應W大的程式測試結果或提出問題
因為,我也怕受傷呀!

~~~正在哭!~~~

white5168

回復  GBKEE 我是真的佩服W大的功力,完全沒有攻訐意思。
我很菜,看過我先前的發問就知道我是菜鳥一個；時常 ...
HSIEN6001 發表於 2012-8-5 10:22

我笑了
拿一個未被實現的功能來評論別人,完之後就趕快跑,這樣卻說自己很受傷,打人喊救人,如果每個人都這樣那真的沒完沒了
還有你所貼出的code跟我的應該是不同,你該不會是拿自己寫的code,跑出問題再來質疑別人吧

Hsieh

本篇主題討論至今，大家踴躍討論，中間或許也有些口舌辯論
希望盡量以針對程式技術做討論，不必要的口水戰請適可而止
整體過程中已經有了完整的結論，當然要各憑本事去體會
這類下載方式，其實對於網管人員來說，是非常不認同的
所以下載不完全並非程式的問題(不論您使用任何程式下載結果是一樣的)
就VBA技術來說，本帖已經完全得到結論，為避免再有不愉快的口水戰
本帖將關閉討論。