我正在内部网工作。使用 VBA ，我必须从列表中关闭一些日期。

• 我已经选定了日期。然后单击一个链接来关闭(不是按钮)，这会触发一个javascript。

选择了所有日期：

html.getElementsByName("selectall")(0).Click

单击该链接以关闭日期.

html.getElementsByTagName("a")(0).Click Do While ie.Busy = True Or ie.readyState <> 4: DoEvents: Loop

部分javascript

{
        //alert(xxx)
        document.first.deletepids.value = xxx
        window.open('closeallocation.asp?hotelid='+hotelid+'&roomtype='+roomtype+'&allocxid='+allocxid,'','toolbar=no,scrollbars=yes,width=500,height=330,top=50,left=80')
        //window.open('closeallocation.asp?deletepids='+xxx+'&hotelid='+hotelid+'&allocxid='+allocxid)
        if(confirm("Room(s) already having bookings for required dates.Do you wish to continue ?"))
            document.first.deletepids.value = xxx
            window.open('closeallocation.asp?hotelid='+hotelid+'&roomtype='+roomtype+'&allocxid='+allocxid,'','toolbar=no,scrollbars=yes,width=500,height=330,top=50,left=80')
            return false;
    }

• 它打开了一个新的窗口。

如何使用VBA打开同一个窗口中的javascript窗口，或者当它在新窗口中打开时，如何获取元素或设置值，或者单击新窗口的元素？

我尝试过使用shell窗口搜索所有打开的窗口中的标题和位置，但由于某种原因，我没有找到该窗口。

Dim ow As ShellWindows
Dim fw As Variant
Dim html As HTMLDocument
Dim ie As InternetExplorer
Set ie = New InternetExplorer
Set ow = New ShellWindows
    For Each fw In CreateObject("Shell.application").Windows
        'On Error GoTo ErrorMsg
        If fw = "Internet Explorer" Then
            If InStr(fw.LocationURL, "displayhotelallocsummary.asp") <> 0 Then
            Exit For