123
返回列表 上一主題 發帖

[原創] 集保資料(改版後)

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
7# 跳轉到 »
發表於 2018-3-28 15:15 | 只看該作者
Dear iamaraymond 大，

有看到兩個問題，不曉得其他人是否也遇到:
1.  日期的部分你抓下來後放在A1, B1, C1.......，並不是放在每份資料的上方，不過瑕不掩瑜，看一下就懂了。
2.  當按下 Run後，會出現執行階段錯誤訊息並指向於 (.send "REQ_OPR=qrySelScaDates")，於是我在開頭的位置寫入了 On Error Resume Next ，之後就正常了，不曉得會有後遺症嗎?

還有個小問題想問一下，
請問我想跳著抓資料，例如:兩星期抓一筆，不曉得要修改哪裡?若有空，再請指導一下。謝謝~~

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
6#
發表於 2018-3-28 14:03 | 只看該作者
萬分感謝~~

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
5#
發表於 2018-3-28 10:04 | 只看該作者
回復 3# cji3cj6xu6


例如說可以在B3儲存格輸入股票代號，然後指定給變數，長這樣
stockno=[B3]
或是用inputbox
stockno=inputbox("請輸入股票代號")

接著把原程式碼的第32行改成
.send "scaDates=" & myDate & "&scaDate=" & myDate & "&SqlMethod=StockNo&StockNo=" & stockno & "&StockName=&REQ_OPR=SELECT&clkStockNo=" & stockno & "&clkStockName="
把原本的2330用變數取代，記得字串跟變數要用&連接
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
4#
發表於 2018-3-28 09:58 | 只看該作者
回復 2# joey0415

感謝你的分享，您提供的網站真的很棒，只是小弟真的很缺乏每周都去抓資料的毅力XD
QueryTable也不錯，因為這個網站資料較少，所以可以執行很快，但如果碰到很龐大的資料時可能就會跑很久，所以不知不覺就養成用XMLHTTP抓資料的習慣了
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
3#
發表於 2018-3-27 17:17 | 只看該作者
有看到了，謝謝!!

但請問一下要如何修改股票代號為變數??

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2018-3-27 11:36 | 只看該作者
回復 1# iamaraymond

感謝您的分享，自己星期天也花點時間改程式，先找日期後，再使用query table方式抓取，您的方式也不錯

提供一個方向

https://data.gov.tw/dataset/11452

這裏提供每週所有股票一起下載，不過要每週抓取，沒有以前的資料，如果不急的話，用這個網站累積自己的資料庫才是最棒的，每星期只抓一次

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
123
返回列表 上一主題