知識問題 | 已解決

EXECEL每隔固定時間紀錄dde的資料

發問者: 江湖 ( 初學者 5 級)
發問時間: 2009-11-08 06:28:56
解決時間: 2009-11-14 05:32:53
解答贈點: 5 ( 共有 0 人贊助 )
回答:
1 評論: 0 意見: 0
網友正面評價 50% ( 共有 2 人評價 )
[ 檢舉 ]
由於沒有注意,發錯分類區,故重發一次,請轉往如下網址:
http://tw.knowledge.yahoo.com/question/question?qid=1609110706818

那裡贈點20,抱歉了!

另外文中的&#039在巨集中所顯現的是左上撇號在這裡僅出現內碼

前文如下:


大家好,要使用excel每15分鐘紀錄dde傳回的數據,找了相似的問題
網址如下:http://tw.knowledge.yahoo.com/question/question?qid=1608031905909

依樣畫葫蘆後使用程式碼如下:

Dim RunWhen As Double ' 廣域變數, 紀錄下次執行副程式的時間

Sub RunMe()
Sheet1.[A10:AV10].Copy
Sheet2.[A65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = 0
RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後
Application.OnTime RunWhen, RunMe
End Sub

Sub StopRun()
Application.OnTime RunWhen, RunMe, , False
End Sub


--------------------------------------------------------------------------

結果跳出視窗說明

編譯錯誤:

必須是:陳述結尾
-------------------------------------------
翻紅錯誤區為
RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後

個人是想紀錄sheet1a1~sheet1a10每十五分鐘的值

因個人不懂語法,全都是抄回來合併更改

請諸位耐心詳細指教

謝謝!!
  • 2009-11-13 05:47:24 補充

    謝謝worlonzeng大師的回答
    果然更正後先前的錯誤就解決了
    但是又出現了另一個誤區
    -----------------------------------
    RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後
    Application.OnTime RunWhen, RunMe
    -----------------------------------
    最末的RunMe出現了反黃跳出視窗
    編譯錯誤:必須是函數或變數
    請不吝指導
    非常感謝

最佳解答

  • 發問者自選
回答者: worlonzeng ( 大師 1 級 )
代表知識團: 劍闌珊
擅長領域: 商務應用 | 物理
回答時間: 2009-11-12 13:13:41
[ 檢舉 ]

加號 被YAHOO吃掉了, 補上即可 ~

RunWhen = Now()  TimeValue("00:15:00")

  • 2009-11-13 10:35:31 補充

    如此即可 :

    Application.OnTime RunWhen, "RunMe"

[ 快速連結 ] 其它回答( 0 ) | 意見( 0 ) | 評論( 0 )

你的評價

發問者評價:非常有幫助

worlonzeng大師

已經可以使用了

非常謝謝

相關評論 (0)

目前沒有資料

其他回答(0)

目前沒有資料

意見(0)

目前沒有資料
進階搜尋

知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供,僅供參考,Yahoo!奇摩不保證其正確性。