- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- excelk
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-7-17
- 最後登錄
- 2011-9-13
|
On Error Resume Next
1: y = CLng(Application.InputBox(prompt:="輸入日期,日期格式(yyyymmdd)", Title:="輸入日期"))
x = Left(y, 6)
If y = False Then Exit Sub
If Len(y) <> 8 Or Err Then GoTo 1
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.twse.com.tw/ch/tradin ... NDEX/genpage/Report" & x & "/A112" & y & "ALLBUT0999_1.php?" _
, Destination:=Range("b1"))
.Name = "19"
.FieldNames = True |
|
發表於 2011-9-1 08:42
| 