Excel VBA IE自动化-Window.confirm Popup后VBA停止

如何解决Excel VBA IE自动化-Window.confirm Popup后VBA停止

我正在尝试在网页（.aspx）中实现自动化。上传数据和备注后，我必须单击“提交”按钮。单击提交按钮后，将显示一个window.confirm弹出窗口，并且我的vba停止，直到我单击“确定”或“取消”。如果我手动单击“确定”，则另一个弹出窗口将显示“我的数据已更新”，并且该弹出窗口可以由我的Vba控制。

网页代码submit button

<INPUT onclick=javascript:validate(this); tabIndex=3 id=btnsubmit class=formbutton language=javascript style="WIDTH: 35%" type=submit value=Submit name=btnsubmit>

Validate（此）代码

function validate(v)
          {
            
               if (document.forms[0].txtremarks.value=="")
             {
              alert('Remarks is required!');
              document.forms[0].txtremarks.select();
              window.event.returnValue = false;
              return false;
             }
             
               //alert(v.id);
           if (v.id=="btnsubmit")
           {
         
              var c=window.confirm('Do you want to save records?');
            
              if (c==true)
              {
                  document.getElementById("sub_confirm").value=true;
              }
              else if(c==false)
              {
               document.getElementById("sub_confirm").value=false;
              }
           }
          }

阅读一些问答后的我的代码。在第2行（ie IE.document.all("btnsubmit").Click）之后，Windows.comfirm框Popup＆VBA停止。如果单击“确定”，则会显示另一个弹出窗口（该数据已更新），并且弹出窗口可由vba代码控制。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'Sends the specified message to a window or windows. The SendMessage function calls the window procedure
'for the specified window and does not return until the window procedure has processed the message.
Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWND As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long

'Retrieves a handle to the top-level window whose class name and window name match the specified strings.
'This function does not search child windows. This function does not perform a case-sensitive search.
Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String,ByVal lpWindowName As String) As Long

'Retrieves a handle to a window whose class name and window name match the specified strings.
'The function searches child windows,beginning with the one following the specified child window.
'This function does not perform a case-sensitive search.
Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long,ByVal hWnd2 As Long,ByVal lpsz1 As String,_
ByVal lpsz2 As String) As Long

Public Const BM_CLICK = &HF5&

Sub Carrier_Inspection_Module()

' Some Code to update data from excel,after that..

    IE.document.all("txtremarks").Value = "Ins at Gujarat"
    IE.document.all("btnsubmit").Click
    Application.Wait (Now + TimeValue("0:00:05"))
         
    hWND = FindWindow(vbNullString,"Message from webpage")
    If hWND <> 0 Then childHWND = FindWindowEx(hWND,ByVal 0&,"Button","OK")
    If childHWND <> 0 Then SendMessage childHWND,BM_CLICK,0
    
    hWND = FindWindow(vbNullString,0

end Sub

解决方法

如果只想跳过弹出窗口，则在单击“提交”之前，可以用仅返回window.confirm的函数覆盖true函数。

With IE.document
    .parentWindow.execScript "window.confirm = function(){return true;};","JScript"
    .all("btnsubmit").Click
End with

,

我尝试检查您的JS函数Validate（）代码，发现它正在检查备注值并显示确认弹出窗口。

如果可以删除此事件，则可以尝试参考下面的VBA代码示例，以帮助您删除OnClick事件。结果，将不会调用Validate（）函数，也不会显示弹出窗口。

HTML

<button name="submit" onclick="myFunction()">Try it</button>

VBA：

Dim btn As HTMLButtonElement
Set btn = IE.document.getElementsByName("submit")(0)
btn.onclick = ""

备用方式：

IE.document.getElementsByName("submit")(0).removeAttribute ("onClick")
IE.document.getElementsByName("submit")(0).setAttribute "onClick","return true"