- 帖子
- 112
- 主題
- 19
- 精華
- 0
- 積分
- 136
- 點名
- 0
- 作業系統
- window
- 軟體版本
- excel
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-3-12
- 最後登錄
- 2022-11-29

|
煩請各位大大幫忙看看哪裡出錯囉,謝謝。
利用a1~a20的變化來自動更新個股當天的變化。
這是我的寫法:先行呼叫renumber
Sub renumber()
Windows("test.xls").Activate
Sheets("cji32").Select
Range("b1:b20").Select
Selection.Copy
Range("a1").Select
ActiveSheet.Paste
Application.OnTime Now + TimeValue("00:00:5"), "renumber2"
End Sub
Sub renumber2()
Sheets("cji32").Select
Range("c1:c20").Select
Selection.Copy
Range("a1").Select
ActiveSheet.Paste
End Sub
而 iqy 檔寫法如下:
WEB
1
http://tw.stock.yahoo.com/q/q?s=["代號","代號"]
Selection=7
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False |
|