VBA / Internet / Javascript:如何从同一个internet打开javascript窗口？
VBA / Internet / Javascript:如何从同一个internet打开javascript窗口？
提问于 2016-11-24 10:36:50
我正在内部网工作。使用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窗口搜索所有打开的窗口中的标题和位置，但由于某种原因，我没有找到该窗口。
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请给我建议。
回答 2
Stack Overflow用户
发布于 2016-11-24 11:38:04
嘿，我想我有个解决办法给你。
下面的函数允许您激活所需的窗口，以便分析其HTML代码。
- 执行您的代码，然后一个新的网页将打开。
- 调用此函数
ie = ActivateWindow(path)并将新页面的路径作为参数 - 该函数将通过计算机打开的所有窗口并激活包含此路径的窗口。 函数ActivateWindow (sLocation As String)作为SHDocVw.InternetExplorer Dim objShellWindows作为新的SHDocVw.ShellWindows Dim窗口作为对象，Good_one作为SHDocVw.InternetExplorer对objShellWindows中的每个窗口进行错误恢复下一步我们添加这一点，以便如果在获取窗口的typeName过程中出现问题，我们跳过它，因为它不是我们要寻找的窗口，如果TypeName(window.document) = "HTMLDocument“，那么如果UCase(window.document.Location) = UCase(sLocation)，那么就设置Good_one = window Exit For End，如果Next Set ActivateWindow= Good_one End函数
Stack Overflow用户
发布于 2016-11-24 12:00:43
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?
可以通过querystring传递参数。
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)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/40784159
复制相关文章
相似问题
腾讯云开发者
