大盤每月每天歷史成交量與金額下載 - Excel程式區

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兔年全勤獎章

13^# 跳轉到 »

發表於 2012-10-17 12:02 | 只看該作者

回復 12# usana642
作用中的工作表 C1 有輸入年度嗎? C2 有輸入月份嗎?
附上你的檔案看看

TOP

usana642

中學生 Rank: 2

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

12^#

發表於 2012-10-17 11:40 | 只看該作者

回復 10# GBKEE

謝謝GBKEE的熱心分享
我試過發現,下載的資料都儲存在A欄位,請問要如何改成以下資料格式儲存,謝謝您
A欄 B欄 C欄 D欄 E欄 F欄 G欄
日期成交股數成交金額成交筆數發行量加權股價指數漲跌點數

stock

TOP

usana642

中學生 Rank: 2

帖子: 44
主題: 1
精華: 0
積分: 78
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: taipei
註冊時間: 2012-5-4
最後登錄: 2014-4-24

11^#

發表於 2012-10-17 11:19 | 只看該作者

回復 10# GBKEE

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

stock

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兔年全勤獎章

10^#

發表於 2012-10-2 10:52 | 只看該作者

回復 9# turbine

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

複製代碼

TOP

turbine

中學生 Rank: 2

帖子: 36
主題: 9
精華: 0
積分: 79
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2010-5-25
最後登錄: 2015-8-13

9^#

發表於 2012-10-1 11:35 | 只看該作者

哇！超方便的~~~
謝謝大大的分享~
尤其謝謝GBKEE版主的簡易版~~~
但小弟現在有一個問題...要怎麼寫出一個程式，需求是：
下載完後的資料，自動儲存到另一個SHEET（總表），
下載另一時期的資料後，再自動儲存在總表內空白儲存格？
並且是向下儲存這樣？

TOP

white945

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

8^#

發表於 2012-8-11 23:55 | 只看該作者

回復 4# white5168

版大辛苦簡化的程式碼，難道你沒測試看看?
枉費版大的教學
給GBKEE版主按個讚

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兔年全勤獎章

7^#

發表於 2012-6-25 20:33 | 只看該作者

回復 7# usana642
1.複製程式碼到一般模駔,或 ThisWorkbook模駔 2.在工作表上插入快取圖案, 3.將圖案的巨集指定此程序
於工作表的 C1 : 輸入西元年份 C2 : 輸入月份按下快取圖案就可以

Sub 大盤成交資訊()
Dim xlTheYear As String, xlTheMonth As String, xlTheFile As String
xlTheYear = Format(Range("C1"), "0000") '修改字串格式
xlTheMonth = Format(Range("C2"), "00") '修改字串格式
UsedRange.Offset(4).Clear
xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
With Workbooks.Open(xlTheFile)
.Sheets(1).UsedRange.Offset(2).Copy [a5]
.Close 0
End With
End Sub