为什么我用这段代码打开百度新闻的内容链接，第一次能弹出，而第二次就不可以弹出？
这里就是代码，要运行先要引用HTML object library和internet control
Option Explicit
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Dim Doc As Object
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer
For Each IE In SWs
Set Doc = IE.document
If TypeOf Doc Is HTMLDocument Then
If Doc.url = "http://news.baidu.com/" Then
If Doc.All.tags("A").length <> 0 Then
For i = 0 To Doc.All.tags("A").length - 1
If Doc.All.tags("A")(i).innerText = "美国将为台湾升级爱国者导弹 费用达11亿美元(图)" Then '这里设置要点击的网页链接的文本内容，百度新闻网页内的一个新闻内容链接
Doc.All.tags("A")(i).Click
End If
Next
End If
End If
End If
Next
Set Doc = Nothing
End Sub
[解决办法]
第二次已经没有http://news.baidu.com/这个页面了
[解决办法]
Set Doc = Nothing
你清空了
