vba固定時間抓取

tkoper963 2019-06-19 12:59:21 ‧ 1063 瀏覽

想請問大神，例如我想每天固定時間12:50抓取D16跟E16的數據，顯示再A1跟B2要如何寫呢(單純12:50這時間)

清心明月 iT邦新手 3 級 ‧ 2019-06-19 17:44:15 檢舉

網上有提供一些方法, 我修改了一下你試試看

當excel第一次打開的時候, 執行以下程式:

alertTime = TimeValue("12:50:00")
Application.OnTime alertTime, "EventMacro"

Then just have a macro in the workbook called "EventMacro" that will repeat it.

Public Sub EventMacro()
'... 把抓取D16跟E16的數據，顯示再A1跟B2 的功能放在這裏'
alertTime = TimeValue("12:50:00")
Application.OnTime alertTime, "EventMacro"
End Sub

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2019-06-19 23:47:46

Sub setTime()
    Application.OnTime timeserial(12,50,0), "makeRecord"
End Sub

Sub makeRecord()
    Range("A1:B1").Value = Range("D16:E16").Value
    Call setTime
End Sub

執行setTime，之後每天12:50都會執行。