暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
回復 1# pupai
網址不對- Sub 巨集1()
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://www.gretai.org.tw/web/stock/3insti/daily_trade/3itrade_print.php?l=zh-tw&t=D&d=103/11/28&s=0,asc,0" _
- , Destination:=Range("$A$1"))
- .WebFormatting = xlWebFormattingNone
- .WebPreFormattedTextToColumns = True
- .Refresh BackgroundQuery:=False
- .Delete
- End With
- End Sub
|
|
發表於 2014-12-5 10:21
| 