下面的语句是用来读取TAG值的,如何改为时间触发的??不用BUTTON_CLICK事件来触发?


Private Sub CommandButton1_Click()
Dim mcp As Object
Dim var As String
Dim value As Variant
Dim cell As Variant
Dim i As Variant

Set mcp = CreateObject("WinCC-Runtime-Project")

cell = "B2"
i = 1
Do While Not Range(cell) = ""
var = Range(cell)
value = mcp.GetValue(var)
Range("C" & 1 + i).value = value
cell = "B" & 2 + i
i = i + 1
Loop

End Sub