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窗口，或者在新窗口中打開javascript窗口時如何獲取元素或設置值或單擊新窗口的元素？

我試圖使用shell窗口搜索所有打開的窗口與標題和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?

0123的一個

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）