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

Question

I am working on intranet. Using VBA I have to close some date from a list.

• I have selected the dates. Then clicked on a link to close (not button) which triggers a javascript.

Selected all dates:

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

Clicked on the link to close date.

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

Part of 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;
    }

• it opens a new window.

How do I either open the javascript window in the same window using VBA or when it opens in a new window how do get elements or set value or click on the element of the new window?

I have tried to use shell window to search for all the opened window with title and locationurl but I didnt find that particular window for some reason.

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

Please advise.

Answer 1

Hey I think I have a solution for you.

The following function allows you to activate the window you want so that you can analyze its HTML code.

1. Do your code and then a new webpage will open
2. Call this function ie = ActivateWindow(path) and put the path of your new page as an argument

3. The function will go through all the open windows from your computer and activate the one containing this path

    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')

The _self parameter indicates that the URL will replace the current page

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?

You can pass parameters by querystring

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

In the example above you're passing two parameters ( hotelid=2 and roomtype=3 )