VBA Automation Internet Explorer popup window button click
Sub CDOpenDuplicate()
Dim ieapp As New InternetExplorerMedium
Dim Doc As New HTMLDocument
‘Set ieapp = New InternetExplorerMedium
With ieapp
.Visible = True
.navigate “http://xxxx.cvxc.local/Apps/sdfg/xxReports/Mat/cbvnnn_Edit.asp?trans_id=39859109&parm=4353“
Do Until ieapp.readyState = READYSTATE_COMPLETE: DoEvents: Loop
Set Doc = ieapp.document
Doc.getElementById(“btnRemove”).Click
‘Do Until IEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop
Application.SendKeys (“{ENTER}”)
End With
End Sub
This code stuck here Doc.getElementById(“btnRemove”).Click
I am clicking on a Save button on the page after which a confirmation window pops up which has a button “Yes” “No” .
I wanted to click on Yes button and proceed with VBA. I am not able to track this window neither in Power Automate nor in VBA. Right click is also not allowed. It does not even let click anywhere outside the page. refer the snapshot below. What should I do? I guess the window is Modeless.
I tried to set focus on the window also with below code but failed.
Sub Test1()
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Dim Doc
For Each IE In SWs
On Error Resume Next
Set Doc = IE.document
If TypeOf Doc Is HTMLDocument Then
Debug.Print Doc.Title
End If
VBA.AppActivate IE.document.Title, 10000
Application.SendKeys (“{ENTER}”)
On Error GoTo 0
Next
End Sub
Sub CDOpenDuplicate()Dim ieapp As New InternetExplorerMediumDim Doc As New HTMLDocument’Set ieapp = New InternetExplorerMediumWith ieapp.Visible = True.navigate “http://xxxx.cvxc.local/Apps/sdfg/xxReports/Mat/cbvnnn_Edit.asp?trans_id=39859109&parm=4353″Do Until ieapp.readyState = READYSTATE_COMPLETE: DoEvents: LoopSet Doc = ieapp.documentDoc.getElementById(“btnRemove”).Click’Do Until IEApp.readyState = READYSTATE_COMPLETE: DoEvents: LoopApplication.SendKeys (“{ENTER}”)End WithEnd Sub This code stuck here Doc.getElementById(“btnRemove”).Click I am clicking on a Save button on the page after which a confirmation window pops up which has a button “Yes” “No” . I wanted to click on Yes button and proceed with VBA. I am not able to track this window neither in Power Automate nor in VBA. Right click is also not allowed. It does not even let click anywhere outside the page. refer the snapshot below. What should I do? I guess the window is Modeless. I tried to set focus on the window also with below code but failed. Sub Test1()Dim SWs As New SHDocVw.ShellWindowsDim IE As SHDocVw.InternetExplorerDim DocFor Each IE In SWsOn Error Resume NextSet Doc = IE.documentIf TypeOf Doc Is HTMLDocument ThenDebug.Print Doc.TitleEnd IfVBA.AppActivate IE.document.Title, 10000Application.SendKeys (“{ENTER}”)On Error GoTo 0NextEnd Sub Read More
