打开IE超链接时,ie对象与客户端连接断开

sub dd()

  Set ie = createobject("internetexplorer.application")
        ie.visible = true
        ie.navigate "http://business.szse.cn/" //进入这个网址
        
        While ie.busy Or ie.readystate <> 4//判断浏览器是否加载完毕
            Delay 200
        Wend
        i = ie.document.getElementsByTagname("A")(7).click//点击某个超链接，之后，输入弹出框的密码才可以进入下一个网页
       
        While ie.LocationUrl <> "https://eipobiz.szse.cn/"//填写完密码后，会进入这个网址，但是这个网站好像是收到特殊保护的，没有编辑栏，这个网站的图片也在上面。判断当前网址是否已经跳转到该网址,没跳转则等待输入密码操作,跳转则说明已经完成输入密码的工作
        Delay 200
        Wend
         While ie.busy Or ie.readystate <> 4
            Delay 200
        Wend
        i = ie.document.getElementsByTagname("A")(2).click//点击初步询价选项卡,进入初步询价页面，运行到这里错误

end sub

调试错误信息和代码如上。跪谢！