帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-5-30 23:47 | 只看該作者

[分享] 大盤每月每天歷史成交量與金額下載

本帖最後由 white5168 於 2012-5-31 00:43 編輯

繼上次各股股價歷史資料下載,再一次分享大盤歷史成交量下載
附件有 "大盤每月歷史成交量與金額下載" 檔, 歡迎各位先進試用看看
如有問題歡迎告知以便於修改,程式碼待大家覺得不錯用時,會稍後補上

大盤成交量下載.rar (19.38 KB)

大盤每月歷史成交量與金額下載

樓主熱帖

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

82^#

發表於 2019-1-14 13:32 | 只看該作者

回復 5# GBKEE
請教版大原始的網頁不見了，可改那一個網址，謝謝

TOP

narusawa

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2016-4-19
最後登錄: 2016-4-19

81^#

發表於 2016-4-19 10:22 | 只看該作者

感謝大大分享
剛好非常需要.謝謝:)

TOP

bill740615

中學生 Rank: 2

帖子: 14
主題: 5
精華: 0
積分: 63
點名: 239
作業系統: win7
軟體版本: home
閱讀權限: 20
性別: 男
註冊時間: 2016-2-4
最後登錄: 2024-12-18

2023年全勤獎章 2022虎年全勤獎章

80^#

發表於 2016-3-30 22:23 | 只看該作者

謝謝大大的分享，受益良多

TOP

even182

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-9-3
最後登錄: 2018-6-5

79^#

發表於 2015-12-17 07:52 | 只看該作者

太棒了
非常感謝GBKEE大大的熱心分享

TOP

rinkenny

中學生 Rank: 2

帖子: 13
主題: 3
精華: 0
積分: 54
點名: 0
作業系統: win7
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-9-7
最後登錄: 2018-10-30

2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

78^#

發表於 2015-11-17 18:42 | 只看該作者

謝謝神人GB大,原來如此,感激GB大的分享

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

77^#

發表於 2015-11-17 07:42 | 只看該作者

回復 76# rinkenny
試試看

Option Explicit
Private Sub 大盤成交資訊()
Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String, Sh As Worksheet
With Sheets("Sheet1")
xlTheYear = Format(.Range("C1"), "0000") '修改字串格式
xlTheMonth = Format(.Range("C2"), "00") '修改字串格式
STK_NO = Format(.Range("C3"), "0000") '修改字串格式
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Sh = Workbooks("你指定的活頁簿").Sheets("歷史資料")
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
With Workbooks.Open(xlTheFile)
.Sheets(1).UsedRange.Copy Sh.Range("A" & Rows.Count).End(xlUp).Offset(1) '接著A欄複製下去
.Close 0
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

rinkenny

中學生 Rank: 2

帖子: 13
主題: 3
精華: 0
積分: 54
點名: 0
作業系統: win7
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-9-7
最後登錄: 2018-10-30

2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

76^#

發表於 2015-11-16 22:28 | 只看該作者

G大,我是VBA新手,可以請教,如果查詢大盤,按了下載後會貼在原本的工作表內,如果是想貼在原本已經存在的工作表呢?比如該工作表名稱是"歷史資料",程式碼又該怎麼修改!謝謝!

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

75^#

發表於 2013-9-19 21:12 | 只看該作者

回復 74# GBKEE

G大
可以了
改天再跟你請教
謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

74^#

發表於 2013-9-19 20:57 | 只看該作者

本帖最後由 GBKEE 於 2013-9-19 20:58 編輯

回復 73# pupai
試試看

Option Explicit
Private Sub 大盤成交資訊()
Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String, AR
Dim Sh As Worksheet
xlTheYear = Format(Range("C1"), "0000") '修改字串格式
xlTheMonth = Format(Range("C2"), "00") '修改字串格式
STK_NO = Format(Range("C3"), "0000") '修改字串格式
Set Sh = ThisWorkbook.Sheets.Add '新增工作表
Sh.Name = xlTheYear & "_" & xlTheMonth '新增工作表命名
'******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
'xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
'******http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php*****
xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
'**************************************************************
With Workbooks.Open(xlTheFile)
If InStr(xlTheFile, "BWIBBU") Then
AR = .Sheets(1).Range("b446").CurrentRegion 'http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php
Else
.Sheets(1).UsedRange.Copy Sh.[A1]
End If
.Close 0
End With
With Sh
If InStr(xlTheFile, "BWIBBU") Then .Range("A1").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
.Cells.EntireColumn.AutoFit '調整欄寬
.Columns("A:A").ColumnWidth = 28.56
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP