[quote]以下是引用youhm在2011-07-05 15:34:17的发言：
我用VBS做的，表和楼上一样，第二行开始，写在修改按钮的VBS事件里

On Error Resume Next '此句必须有，防止无EXCEL进程时GetObject出错退出
Dim xlsname,xlapp,xlbook,xlsheet,isOpen,i,TagName,TagValue
xlsname="F:\123.xls" 'Excel文档路径

我想问下，【For i = 2 To xlsheet.Range("A65536").End(3).Row '从第二行一直循环到最后一行】这个语句，能否改变成，定时多少秒后循环。定时的时间是一Excel的1个地址。