我必须在这里遗漏一些非常简单的东西,但我似乎找不到答案。这是我用来让我在日常工作中达到特定点的代码:
Dim objShell, IE_count, x, my_url, childPage
Set objShell = CreateObject("Shell.Application")
IE_count = objShell.Windows.Count
For x = 0 To (IE_count - 1)
On Error Resume Next
my_url = objShell.Windows(x).document.Location
If my_url Like "https://a810-dobnow.nyc.gov/Publish/" & "*" Then
Set childPage = objShell.Windows(x)
Exit For
End If
Next
MsgBox my_url
在这一点上,我所有的编码都工作了,我已经关闭了 IE 父窗口(我已经刮掉了我需要的东西,我不再使用它了),我只剩下一个显示的子窗口,就是这样MsgBox 显示的 url。我的问题是如何将焦点设置到该子窗口以便我可以使用它?我需要做的是按下该子页面上的按钮,然后关闭子窗口。我知道按钮本身可以工作,因为我已经通过直接访问 url 进行了尝试。htmlDoc.getElementsByClassName("btn btn-primary btnCustom")(0).Click 但我无法让它工作。即使这不是正确的方法,如果我什至可以关闭子窗口,我也可以使用该 url 打开一个新的 IE 实例并从那里继续。任何帮助,将不胜感激。