修改你的代理,把代码放入下面的区域中,就可以在IE中显示代理出错信息(如果有错的话),WebQueryOpen无效的,不过可以把print改成msgbox在服务器控制台显示错误信息
Sub Initialize
On Error Goto errorRoutine
'你的代码从这里开始
...
...
...
'你的代码从这里结束
Exit Sub
errorRoutine:
status$ = "ShowCheckList Error " & Err() & " at line " & Erl() & ": " & Error()
Print status$
End Sub