VBA / Internet Explorer / Javascript：如何从同一个 Internet Explorer 打开一个 javascript 窗口？

Question

我正在使用 Intranet。使用 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)
    }
    else
    {
        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')
        }
        else
            return false;
    }

• 它会打开一个新窗口。

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

我尝试使用 shell 窗口搜索所有打开的带有 title 和 locationurl 的窗口，但由于某种原因我没有找到那个特定的窗口。

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
            End If
        End If
    Next fw

Set ie = fw
Set html = ie.document

请指教。

Answer 1

嘿，我想我有一个适合你的解决方案。

下面的函数可以让你激活你想要的窗口，这样你就可以分析它的 HTML 代码了。

1. 执行您的代码，然后将打开一个新网页
2. 调用此函数ie = ActivateWindow(path)，并将新页面的路径作为参数

3. 该功能将遍历您计算机中所有打开的窗口并激活包含此路径的窗口

   Function ActivateWindow (sLocation As String) As SHDocVw.InternetExplorer
   
   Dim objShellWindows As New SHDocVw.ShellWindows
   Dim window As Object, Good_one As SHDocVw.InternetExplorer
   
   For Each window In objShellWindows
    On Error Resume Next ' We add this so that if there's an issue in the procedure to get the typeName of the window, we just skip it since it s not the window we re looking for anyway
       If TypeName(window.document) = "HTMLDocument" Then
           If UCase(window.document.Location) = UCase(sLocation) Then
               Set Good_one  = window
               Exit For
           End If
       End If
   Next
   
   Set ActivateWindow= Good_one 
   
   End Function
   

Answer 2

1. How do I open the javascript window in the same window?

window.open('closeallocation.asp?hotelid=2&roomtype=3','_self','toolbar=no,scrollbars=yes,width=500,height=330,top=50,left=80')

_self参数表示该URL将替换当前页面

2. Or when it opens in a new window how do get elements or set value or click on the element of the new window?

可以通过查询字符串传递参数

var myWindow = window.open('closeallocation.asp?hotelid=2&roomtype=3','','toolbar=no,scrollbars=yes,width=500,height=330,top=50,left=80');

在上面的示例中，您传递了两个参数 (hotelid=2 and roomtype=3)