使用此代码时工作簿必须是打开的。我提供了一个思路。余下的代码自己写。自己再研究一下是否可用循环打开对应的工作表?if time=0:00:00 then sheets("a00").selectapplication.ontime timevalue("0:00:00"),"micro"end if