返回列表 上一主題 發帖

關於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
錯誤訊息如下：
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-4-27 09:40 | 只看該作者
回復 1# oklin
你的Else那段完全沒用~

Application.OnTime 是排程
用False參數是取消某時間的排程
既然你時間到就不再排程了，那麼該時間就沒東西可以取消

而且要取消的話，時間要一致，你這樣是不會一致的
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

oklin

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

論壇贊助勳章
3#
發表於 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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2015-4-28 14:05 | 只看該作者
回復 1# oklin
假設現在時間 21:34:55
執行一次'價差紀錄':
    Close_T <> "21:35" 所以執行 Then 區塊程式碼
    Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄"
    預約了下次執行時間 大約在 21:35:00  , 結束
   
時間 21:35:00
執行'價差紀錄':
    Close_T = "21:35" 所以執行 Else 區塊程式碼
    Application.OnTime Now + TimeValue("00:00:05"), "價差紀錄", , False
    取消卻是取消已預約在 21:35:05 的'價差紀錄'


*會說大約是因為，如果你前面執行的程式碼一多，
當你執行到Now時取得的時間可能已不是21:34:55

上傳附件有限制副檔名，你可以壓縮再傳，下圖有寫
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

oklin

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

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2015-4-30 12:06 | 只看該作者
回復 5# oklin
是的，沒錯
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題