返回列表 上一主題 發帖

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

本帖最後由 pupai 於 2013-9-19 16:06 編輯
回復  turbine
GBKEE 發表於 2012-10-2 10:52



    請教GBKEE版大
依照您的方式,如果網頁換成這一個 http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php
要如何修改呢

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

回復 72# GBKEE
  1. Option Explicit
  2. Private Sub 大盤成交資訊()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String
  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.     xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  11.     xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
  12.     With Workbooks.Open(xlTheFile)
  13.         .Sheets(1).UsedRange.Copy Sh.[a1]
  14.         .Close 0
  15.     End With
  16.     Sh.Cells.EntireColumn.AutoFit            '調整欄寬
  17.     Sh.Columns("A:A").ColumnWidth = 28.56
  18. End Sub
複製代碼
版大
我定義了STK_NO(股票代碼)
可是跑不出來

TOP

回復 74# GBKEE

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

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題