Excel VBA切换识别IE窗口
- 2022-01-15
- 来源/作者： 菜鸟图库/ 菜鸟图库
- 467 次浏览
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
标签(TAG) VBA切换识别IE窗口
