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 = http://www.office26.com Then
End If
End If

     以上就是excel自学教程为您提供Excel VBA切换识别IE窗口的解读，本文章链接： http://www.5enet.cn/Excel_VBA/78579.html 欢迎分享转载，更多相关资讯请前往VBA