如何能自动关闭所有计算机打开的网页，怎么实现

过程中出现了 不能即时关闭

谢谢，解决了

我用了这个个代码
Private Sub filter()
Dim objIE As Object
Dim i As Integer
On Error Resume Next
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
kk = InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare)
For i = 1 To kk - 1
 objIE.Quit
Exit For
Next i
End If
Next
objIE = Nothing
End Sub