- 帖子
- 219
- 主題
- 24
- 精華
- 0
- 積分
- 243
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-4-18
- 最後登錄
- 2022-2-7
 
|
43#
發表於 2012-8-5 10:22
| 只看該作者
回復 41# GBKEE - '取得頁數 ; 避開只為 [頁數] 取得而拼命刷該網頁;造成塞龜 http://bsr.twse.com.tw/bshtm/bsMenu.aspx?
- strURL = "http://bsr.twse.com.tw/bshtm/bsMenu.aspx?" & _
- "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKMTczNDk4NzY0Mg9kFgICAQ9kFgwCBQ8WAh4JaW5uZXJodG1sBQoyMDEyLzA4LzAxZAIGDxYCHwAFCDIwMTIwODAxZAIIDw8WBh4JRm9udF9Cb2xkZx4EXyFTQgKEEB4JRm9yZUNvbG9yCj1kZAIKD2QWAgIBDw9kFgIeB09uQ2xpY2sFHGphdmFzY3JpcHQ6YnV0Q2xlYXJfQ2xpY2soKTtkAgwPDxYGHwFoHwIChBAfAwpHZGQCDg8PFgIeB1Zpc2libGVoZGRktxLZGMAybpsQ2UGpZGNtbwAAAAA%3D&__EVENTVALIDATION=%2FwEWCALzjPG5CALjpuXcAwKN4Ij0CwLB5ZfoCQLjk6TKBwKY8en5CwLdkpmPAQL6n7vzC9kuc7umJfLwqKqibgdx3poAAAAA&HiddenField_spDate=&HiddenField_page=PAGE_BS&txtTASKNO=" & fileIdx & "&hidTASKNO=&btnOK=%E6%9F%A5%E8%A9%A2"
- With xml
- .Open "GET", strURL, 0
- .send
- Do While xml.readyState <> 4
- Loop
- x = Split(Split(.responseText, "sp_ListCount"">")(1), "</span></b>")(0)
- End With
- '將頁數丟給下載去處理
- '下載xls
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & fileIdx & "&FocusIndex=All_" & x _
- , Destination:=Range("A1")) '放置位置< ----->可變
- .Name = "券商"
- .BackgroundQuery = True '刷新返回查詢(執行更新)
- .RefreshStyle = xlOverwriteCells '= xlOverwriteCells '覆蓋原欄位 = xlInsertDeleteCells '插入新資料,原資料右移
- .RefreshPeriod = 0 '自動更新時間 以分為單位 5代表每5分鐘更新一次 0代表不自動更新
- .WebSelectionType = xlSpecifiedTables '指定類型= xlEntirePage 整頁 = xlSpecifiedTables 表格 = xlAllTables 所有表格
- .WebFormatting = xlWebFormattingNone '= xlWebFormattingNone 不保留連結及樣式 = xlWebFormattingRTF 保留連結及格式設定
- .WebTables = "5,""table2""" '指定取得之表格 與 .WebSelectionType = xlSpecifiedTables配合 = "1,2," 或 ="5,""table2""" 或 = """table1"",""table2"""
- .WebDisableDateRecognition = False '日期鑑別=False 禁用 =True 使用
- .Refresh BackgroundQuery:=False '刷新返回查詢(執行更新)
- End With
我很菜,看過我先前的發問就知道我是菜鳥一個；時常勞煩各位幫忙解決〔很感恩〕。
只是[提醒]刷頁面問題，也是另一個塞車的困擾。 [這勉強可算 (教學相長) 的一部份]
至於寫；因為還再不斷 Try 於VBA 很陌生的生字。沒到可以獻醜的部份。
現在正在思考的問題是 , 因為處理xls存檔；也掛載相當久。所以改用htm下回來再一起處理。
相關學習思路也是在版上，有跡可循。
http://forum.twbts.com/thread-7336-1-1.html
http://forum.twbts.com/viewthrea ... p;extra=&page=2
寫程式沒有絕對的誰好誰不好
可以再不同的思路中；學到更多的可能性
這點真的很棒！ --->相信很多版大都有這種 初衷
所以樂意在此幫助像我這樣的菜鳥
我目前還沒見過因為自己寫的爛
攻擊我的,都是適度給我其他更多的參考
這對於吸收不同的思維
提供了很好的輔助
不是嗎?!
在此!慎重聲明~~~不再回應W大的程式測試結果或提出問題
因為,我也怕受傷呀!
~~~正在哭!~~~ |
|
發表於 2012-8-5 09:50
| 
