返回列表 上一主題 發帖

關於OnTime發生的錯誤，求解！~~感恩

oklin

帖子
10 
主題
5 
精華
0 
積分
18 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2015-4-3 
最後登錄
2015-9-11 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-25 22:26 | 顯示全部帖子

關於OnTime發生的錯誤，求解！~~感恩

VBA
小弟用了workbook的Open事件來啟動一個用了OnTime功能，來抄錄盤中股價的即時變化，但跑到預設結束時間，出了一個錯誤訊息，請各位前輩幫忙告訴我問題出在哪裡？
編碼如下
Private Sub Workbook_Open()
    Application.OnTime TimeValue("21:34:00"), "價差紀錄"
End Sub
--------------------------------------------------------------------------
Sub 價差紀錄()
    Dim Line As Double
    Dim Close_T As String
    Line = Sheet1.Range("F1").End(xlDown).Row
    Close_T = Format(Time, "h:m")
    If Close_T <> "21:35" Then
        Sheet1.Cells(Line + 1, 6) = Cells(2, 6)
        Sheet1.Cells(Line + 1, 7) = Cells(2, 7)
        Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄"
    Else
         Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄", , False
    End If
End Sub
錯誤訊息如下：
收藏 分享

oklin

帖子
10 
主題
5 
精華
0 
積分
18 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2015-4-3 
最後登錄
2015-9-11 

論壇贊助勳章
2#
發表於 2015-4-27 22:58 | 顯示全部帖子
回復 2# stillfish00
感謝您的回覆，但我不是很了解您的意思，字面上我的排程除了一開始的Workbook open觸發的是一個固定時間，之後就是每隔5秒啟動一次，也就是下面這一行
Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄"
Esle之後取消的也是
Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄"，，False
另請教一下，我試要上傳檔案，彈系統告訴我不支援此類擴展明的檔案，請問我該如何處理。

TOP

oklin

帖子
10 
主題
5 
精華
0 
積分
18 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2015-4-3 
最後登錄
2015-9-11 

論壇贊助勳章
3#
發表於 2015-4-29 21:34 | 顯示全部帖子
回復 2# stillfish00
所以您的意思是，因為我的需求是到了某一時間就停止每5秒抓一次資料，所以，我只須判斷時間到了沒，如果還沒有到，就預約下一個5秒，一旦時間到了就不用預約，OnTime就停了。對嗎？
所以我只須把
Else
         Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄", , False
砍掉就可達成我的期望了！

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題