Question

EXCEL 打开表格后每5秒执行一次宏

以下代码对吗，每5秒执行一次Sheet1.GetData宏，要怎么改，求完整的代码，可以的话每条语句注释一下。
Private Sub Workbook_Open()
Call Sheet1.GetData
End Sub

Sub GetData()
NewTime = Now + TimeValue("00:00:05")
For i = 0 To 12
Application.OnTime Now + TimeValue("00:00:05"), "GetData"
Next
End Sub

Answer 1

刚才给的就是完整代码，你现在的GetData函数语句替换下面的省略号即可：

Private Sub Workbook_Open()
    Call Sheet1.GetData
End Sub

Sub GetData()
    ......
    Application.OnTime Now + TimeValue("00:00:05"), "GetData"
End Sub