請選擇 進入手機版 | 繼續訪問電腦版

COCO研究院

 找回密碼
 註冊
搜索
查看: 710|回復: 2

[EXCEL] 想請教一下VBA定時自動執行程式

[複製鏈接]
各位先進大家好
    小弟初學VBA,有個簡單的編碼問題想請教於下:
因為我想將EXCELA、B欄區的複製再選擇性貼上N欄之後,將程序寫成:
Sub COPY()
Worksheets("WEEK").Range("A4:B100").COPY
Worksheets("WEEK").Range("N4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub
再以手動執行,執行結果成功沒問題
但如果我再加上一定時自動執行程式(每日早上9點執行一次) exec()
如下:
Sub exec()
   Application.OnTime TimeValue("00:09:00"), "COPY()"
End Sub
Sub COPY()
Worksheets("WEEK").Range("A4:B100").COPY
Worksheets("WEEK").Range("N4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub
結果傳回無法執行的訊息如下
無法執行巨集COPY()

不知該如何解決?感恩






上一篇︰美國科技股慘遭血洗 共流失市值逾2,690億美元
下一篇︰收官战不可马虎!黄金1738空单谨慎处理。
發表於 20-6-15 15:44|載入全部圖片 | 顯示全部樓層
  Application.OnTime TimeValue("15:42:35"), "COPY"

這樣就可以了,不需要括號。

評分

參與人數 2金錢 +4 收起 理由
Victoir + 2 太強了
abopt + 2 按一個讚

查看全部評分

 樓主| 發表於 20-6-15 19:46|載入全部圖片 | 顯示全部樓層
一個細微的區別會導致千奇百樣不同的結果,在下學習了!

非常感謝前輩指點迷津

祝您 夏日順心愉快
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版|Archiver|站長信箱|廣告洽詢|COCO研究院  |網站地圖

GMT+8, 20-7-13 17:35

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表
理財討論網站 | 優質玻尿酸隆鼻 專業皮膚科診所 推薦電波拉皮效果 優質淨膚雷射效果 推薦微晶瓷隆鼻 | 徵信社精選| SEO優化|