dim m
do while not oRs.EOF
set m = CInt(second(now))
msgbox m
i=5
if m<1 then
with objexcelapp.worksheets(sheetname)
.cells(i,1).value = tagshijian
tagwendu.read
.cells(i,2).value = tagwendu
.......
end with
i=i+1
end if
loop


采集的是实时数据，程序运行后，MSGBOX显示为空，进入死循环，WINCC直接崩溃，求高手