Excel VBA切换识别IE窗口

Dim objShell As Object Dim objIE As Object Dim n As Integer Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 Set objIE = objShell.Windows(n - 1) If objIE Is Nothing Then Exit For End If If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then Debug.Print objIE.document.URL If objIE.document.URL = "对应网址" Then End If End If