首页 > Excel专区 > Excel函数 >

Excel VBA切换识别IE窗口

Excel函数 2021-11-25 12:07:06

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.office9.cn/upload/20211125/www.office26.com Then
End If
End If


标签: VBA切换识别IE窗口

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.