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

t8899

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 2017-5-24 15:30 | 顯示全部帖子

http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php
如何用巨集一次下載到工作表 ??
全部(不含權證, 牛熊證.........)

TOP

t8899

大學生 Rank: 4

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

2^#

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

本帖最後由 t8899 於 2017-5-24 18:29 編輯

回復 t8899

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

自已錄製看看，刪除不要的，這完成了
joey0415 發表於 2017-5-24 17:36

請教一下
這樣抓下來有4個表，我只要最後一個 ==> 106年05月24日每日收盤行情(全部(不含權證、牛熊證))

With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/exchangeR ... onse=html&date=20170524&type=ALLBUT0999", Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
日期如何用變數代入(今天) ???

TOP

t8899

大學生 Rank: 4

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

3^#

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

回復 t8899

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

用 Format(Date, "yyyyMMDD") ，語法問題，無法直接代入?

TOP

t8899

大學生 Rank: 4

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

4^#

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

TOP

t8899

大學生 Rank: 4

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

5^#

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

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

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

TOP

t8899

大學生 Rank: 4

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

6^#

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

網址有了

自己練習看看
joey0415 發表於 2017-5-24 21:35

Sub Macro1()
Cells.Clear
ddd = "URL;http://www.twse.com.tw/fund/T86?response=html&date=" & Format(Date, "yyyyMMDD") & "&selectType=ALL"
With ActiveSheet.QueryTables.Add(Connection:=ddd, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub

TOP

t8899