上市個股日成交資訊下載改版建議 - Excel程式區

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

17^# 跳轉到 »

發表於 2017-5-24 21:58 | 只看該作者

回復 16# prin.huang

http://www.tse.com.tw/exchangeReport/STOCK_DAY?response=html&date=20170524&stockNo=1101

prin.huang

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

16^#

發表於 2017-5-24 21:55 | 只看該作者

回復 15# joey0415
太感謝了，J大
還有一個網址，能幫忙看看嗎？
http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html

ps. 若要像您一樣能看得出抓取網址，是要能看懂java嗎？

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

15^#

發表於 2017-5-24 21:38 | 只看該作者

回復 12# prin.huang

網址有了

自己練習

http://www.tpex.org.tw/web/stock/aftertrading/daily_trading_info/st43_print.php?l=zh-tw&d=106/05&stkno=1258&s=0,asc,0

http://www.tpex.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_print.php?l=zh-tw&d=106/05/24&se=EW&s=0,asc,0

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

14^#

發表於 2017-5-24 21:35 | 只看該作者

http://www.twse.com.tw/fund/T86?response=html&date=20170524&selectType=ALL

網址有了

自己練習看看

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-8-2

13^#

發表於 2017-5-24 21:32 | 只看該作者

回復 t8899 不是每個網頁都可以指定表格下載，有的頁面只能全頁下載
joey0415 發表於 2017-5-24 20:28

請教這個怎麼抓呢?
http://www.twse.com.tw/zh/page/trading/fund/T86.html

prin.huang

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

12^#

發表於 2017-5-24 21:17 | 只看該作者

本帖最後由 prin.huang 於 2017-5-24 21:24 編輯

改為json格式，或是下載csv檔，原本的網頁下載也行
joey0415 發表於 2017-5-24 11:25

J大，這兩個網址從原先的網頁代碼能看出來嗎？
巨集內還有一段下載個股日成交資訊，還有我也想從櫃買中心下載上櫃資料，
也面臨相同問題

上市個股日成交資訊
http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html
上櫃每日收盤網址
上櫃個股日成交網址

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

11^#

發表於 2017-5-24 20:28 | 只看該作者

回復 10# t8899

Sub 巨集1()
'
Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170524&type=ALLBUT0999", Destination:=Range("$A$1"))
.WebTables = "5"
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

不是每個網頁都可以指定表格下載，有的頁面只能全頁下載

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-8-2

10^#

發表於 2017-5-24 20:00 | 只看該作者

本帖最後由 t8899 於 2017-5-24 20:03 編輯

回復 t8899

這個很基本，前面都有範例了，自己學習
joey0415 發表於 2017-5-24 19:22

OK了, 不過，只下載最後一個表格不會
Sub Macro1()
Cells.Clear

ddd = "URL;http://www.twse.com.tw/exchangeR ... onse=html&date=" & Format(Date, "yyyyMMDD") & "&type=ALLBUT0999"

With ActiveSheet.QueryTables.Add(Connection:=ddd, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End Wit

end sub