- 帖子
- 184
- 主題
- 45
- 精華
- 0
- 積分
- 407
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-8-19
- 最後登錄
- 2025-6-26
|
回復 72# GBKEE - Option Explicit
- Private Sub 大盤成交資訊()
- Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String
- 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 '新增工作表命名
- xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
- xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
- 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
我定義了STK_NO(股票代碼)
可是跑不出來 |
|
發表於 2013-9-19 16:04
| 
