vba跳過網頁中的彈出消息框

Question

我是初學者，正在拼命尋求幫助。 我懇請您的支持，並為措辭不當和最終缺乏信息提前道歉（再次，我是菜鳥）。 我正在構建一個 Excel 宏來填寫（私人）網頁，並在填寫請求的數據后，我還可以調用提交數據/表單的 javascript 函數。 但是，它出現了我無法確認的“來自網頁的消息”（總是“確定”/輸入）或簡單跳過。 宏只是停止，如果不手動單擊“確定”按鈕，我將無法執行任何操作。 我花了幾個小時搜索並嘗試不同的解決方案，但似乎沒有任何效果，可能是因為我的技能很差。 下面我發送讓我難以忍受的代碼（希望就足夠了）。 期待您的幫助

我的代碼

DIM HTMLdoc As MSHTML.HTMLDocument

' Submits data but gets stuck in the popup message box
HTMLdoc.all.Item
Call HTMLdoc.parentWindow.execScript("licitarLeilao();", "JScript")

網頁

...
function licitarLeilao(){
    var ultimaLicitacao = document.getElementById('ultimaLicitacao').value;
    var valorLicitar = document.getElementById('valorLicitar').value;

    if(ultimaLicitacao == ' -- '){
        ultimaLicitacao = document.getElementById('valorBase').value;
    }

    var racio = toNum(valorLicitar) / toNum(ultimaLicitacao);

    if (racio < 1.5) {
        if(!confirm('Confirma o valor de licitação (' + valorLicitar +' eur.) do leilão?')){
            return false;
        }   
    }
    else {  
        if(!confirm('ATENÇÃO!! O valor de licitação é muito superior à última licitação. \n\n Confirma o valor de licitação (' + valorLicitar +' eur.) do leilão?')){
            return false;
        }
    }   

    var flow = document.getElementById('flow');
    flow.value = '8';

    document.formulario.submit();
}

Answer 1

您可以嘗試使用不同的功能覆蓋window.confirm ：

With HTMLdoc.parentWindow
    .execScript "window.confirm = function(){return true;};", "JScript"
    .execScript "licitarLeilao();", "JScript"
End With

在對我來說工作正常的測試頁面中。

注意：如果網頁上有任何其他代碼使用confirm則該代碼的功能可能會受到影響。