- 帖子
- 6
- 主題
- 0
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- Win 8
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 註冊時間
- 2014-7-19
- 最後登錄
- 2017-5-25
|
各位大大:
小弟從他處取得一個紀錄每分鐘即時期貨報價資料的程式修改如下，
但是期貨的開盤時間08:45:00該筆資料一直都無法成功記錄下來
不知可否請教各位前輩幫忙協助一下看是否有需要修改的地方
謝謝
Sub myPrg()
If Timer >= 31440 And Timer <= 49560 Then '早上8:44起至13:46止
ActiveSheet.Cells(Int((Timer - 31440) / 60) + 4, 3).Value = Range("C2").Value '每60秒,往下一列, 填最新數值
ActiveSheet.Cells(Int((Timer - 31440) / 60) + 4, 4).Value = Range("D2").Value '每60秒,往下一列, 填最新數值
ActiveSheet.Cells(Int((Timer - 31440) / 60) + 4, 5).Value = Range("E2").Value '每60秒,往下一列, 填最新數值
ActiveSheet.Cells(Int((Timer - 31440) / 60) + 4, 6).Value = Range("F2").Value '每60秒,往下一列, 填最新數值
ActiveSheet.Cells(Int((Timer - 31440) / 60) + 4, 7).Value = Range("G2").Value '每60秒,往下一列, 填最新數值
Call Timer2 ' <------- 改為Timer2
End If
End Sub
Sub Timer2()
'每60秒執行 "myPrg" 這個副程式
Application.OnTime Now + 60 / 86400#, "myPrg"
End Sub
Sub StartTimer()
'從啟動excel 開始的那一刻起, 在60-(timer mod 60)秒 (為了切齊整秒) 後開始執行
Application.OnTime Now + (60 - (Timer Mod 60)) / 86400#, "myPrg"
End Sub |
|
發表於 2014-7-19 21:13
| 
