首先在菜单 工程\引用... 引用microsoft internet control
然后根据窗体名称关闭相应的IE。据个关闭新浪科技新闻的例子,当然前提是这个页面已经被IE打开了,否则不会有什么现象
Private Sub Command1_Click()
Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer
Dim objIE As Object
For Each objIE In dWinFolder
Set eventIE = objIE
If eventIE.LocationName = "科技时代首页_新浪网" Then
eventIE.Quit
End If
Next
End Sub