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

1 2 34

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

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

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-29

7^# 跳轉到 »

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

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

6^#

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

複製代碼

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

5^#

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