上市個股日成交資訊下載改版建議 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 上市個股日成交資訊下載改版建議

返回列表下一主題上一主題發帖

[發問] 上市個股日成交資訊下載改版建議

　暱稱: joey0415

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 2017-5-24 11:25 | 顯示全部帖子

回復 1# prin.huang

http://www.tse.com.tw/exchangeReport/MI_INDEX?response=json&date=20170523&type=ALLBUT0999
http://www.tse.com.tw/exchangeReport/MI_INDEX?response=html&date=20170522&type=MS

改為json格式，或是下載csv檔，原本的網頁下載也行

　暱稱: joey0415

中學生 Rank: 2

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

2^#

發表於 2017-5-24 17:31 | 顯示全部帖子

回復 3# f3202

Sub 巨集1()
'
Cells.Clear
sday = 20170524
surl = "http://www.twse.com.tw/indicesReport/MI_5MINS_HIST?response=html&date=" & sday
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="URL;" & surl, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

請選「列印 / HTML」那頁錄製

自已錄製看看，刪除不要的，這完成了

　暱稱: joey0415

中學生 Rank: 2

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

3^#

發表於 2017-5-24 17:36 | 顯示全部帖子

回復 4# t8899

請選「列印 / HTML」那頁錄製

自已錄製看看，刪除不要的，這完成了

Sub 巨集2()
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"))
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

　暱稱: joey0415

中學生 Rank: 2

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

4^#

發表於 2017-5-24 19:22 | 顯示全部帖子

回復 7# t8899

這個很基本，前面都有範例了，自己學習

　暱稱: joey0415

中學生 Rank: 2

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

5^#

發表於 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

複製代碼

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

　暱稱: joey0415

中學生 Rank: 2

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

6^#

發表於 2017-5-24 21:35 | 顯示全部帖子

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

網址有了

自己練習看看

　暱稱: joey0415

中學生 Rank: 2

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

7^#

發表於 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

中學生 Rank: 2

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

8^#

發表於 2017-5-24 21:58 | 顯示全部帖子

回復 16# prin.huang

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

　暱稱: joey0415

中學生 Rank: 2

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

9^#

發表於 2017-6-3 20:50 | 顯示全部帖子

回復 24# t8899
http://www.tse.com.tw/fund/BFI82U?response=html&dayDate=20170601&type=day

自己練習看看

　暱稱: joey0415

中學生 Rank: 2

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

10^#

發表於 2017-6-22 18:29 | 顯示全部帖子

回復 31# t8899

http://www.twse.com.tw/exchangeReport/TWT48U?response=html

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

返回列表下一主題上一主題