123456789
返回列表 上一主題 發帖

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

white5168

帖子
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

帖子
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

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2016-4-19 
最後登錄
2016-4-19 
81#
發表於 2016-4-19 10:22 | 只看該作者
感謝大大分享
剛好非常需要.謝謝:)

TOP

bill740615

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

2023年全勤獎章2022虎年全勤獎章
80#
發表於 2016-3-30 22:23 | 只看該作者
謝謝大大的分享，受益良多

TOP

even182

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-9-3 
最後登錄
2018-6-5 
79#
發表於 2015-12-17 07:52 | 只看該作者
太棒了
非常感謝GBKEE大大的熱心分享

TOP

rinkenny

帖子
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

帖子
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
試試看
  1. Option Explicit
  2. Private Sub 大盤成交資訊()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String,  Sh As Worksheet
  4.     With Sheets("Sheet1")
  5.         xlTheYear = Format(.Range("C1"), "0000")  '修改字串格式
  6.         xlTheMonth = Format(.Range("C2"), "00")   '修改字串格式
  7.         STK_NO = Format(.Range("C3"), "0000")  '修改字串格式
  8.     End With
  9.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10.     Set Sh = Workbooks("你指定的活頁簿").Sheets("歷史資料")
  11.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  12.     '******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
  13.     xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  14.         With Workbooks.Open(xlTheFile)
  15.         .Sheets(1).UsedRange.Copy Sh.Range("A" & Rows.Count).End(xlUp).Offset(1) '接著A欄 複製下去
  16.         .Close 0
  17.     End With
  18. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

rinkenny

帖子
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

帖子
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

帖子
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
試試看
  1. Option Explicit
  2. Private Sub 大盤成交資訊()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String, AR
  4.     Dim Sh As Worksheet
  5.     xlTheYear = Format(Range("C1"), "0000")  '修改字串格式
  6.     xlTheMonth = Format(Range("C2"), "00")   '修改字串格式
  7.     STK_NO = Format(Range("C3"), "0000")  '修改字串格式
  8.     Set Sh = ThisWorkbook.Sheets.Add         '新增工作表
  9.     Sh.Name = xlTheYear & "_" & xlTheMonth   '新增工作表命名
  10.     '******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
  11.     'xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  12.    
  13.      '******http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php*****
  14.      xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
  15.     '**************************************************************
  16.     With Workbooks.Open(xlTheFile)
  17.         If InStr(xlTheFile, "BWIBBU") Then
  18.             AR = .Sheets(1).Range("b446").CurrentRegion 'http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php
  19.         Else
  20.             .Sheets(1).UsedRange.Copy Sh.[A1]
  21.          End If
  22.           .Close 0

  24.     End With
  25.     With Sh
  26.         If InStr(xlTheFile, "BWIBBU") Then .Range("A1").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  27.         .Cells.EntireColumn.AutoFit            '調整欄寬
  28.         .Columns("A:A").ColumnWidth = 28.56
  29.     End With
  30. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
123456789
返回列表 上一主題