czjt1234

登录SERVER 2008 后测试正常

那么考虑延时几分钟

要判断哪里出错，多加几行日志
第一行执行成功
第二行执行成功
......

找到出错的地方，On Error Resume Next
写入错误信息
MsgBox "错误代码 " & vbTab & Err.Number      & vbCrLf & _
       "错误对象 " & vbTab & Err.Source      & vbCrLf & _
       "帮助文件 " & vbTab & Err.HelpFile    & vbCrLf & _
       "上下文ID " & vbTab & Err.HelpContext & vbCrLf & _
       "错误说明 " & vbTab & Err.Description