VBA: взаимодействовать с всплывающим окном JavaScript в IE

Question

Я начал автоматизировать отчет. он взаимодействует с веб-сайтом в нашей внутренней сети для составления отчетов. Как только я получаю взаимодействие с выпадающим списком, оно вызывает всплывающее окно, в котором мне нужно ввести предварительно сгенерированные текстовые данные и нажать кнопку ОК, чтобы продолжить.

Это фрагмент страницы интранета:

                            <pre>
                            <form action="/Report/MarkJob" method="post">
                                <select name="status">
                                    <option value="">--Select One--</option>
                                    <option value="Mark Completed">Mark Completed</option>
                                    <option value="Non Voting">Non Voting</option>
                                    <option value="Foreign Client">Foreign Client</option>
                                    <option value="Dump / Purge">Dump / Purge</option>
                                    <option value="Job Closed">Job Closed</option>
                                    <option value="Test Job">Test Job</option>
                                    <option value="Unflagged for N&amp;A">Unflagged for N&amp;A</option>
                                    <option value="Email Only">Email Only</option>
                                    <option value="Canada NTC">Canada NTC</option>
                                    <option value="Bulk Shipment">Bulk Shipment</option>
                                    <option value="Not Following Day 40">Not Following Day 40</option>
                                    <option value="No Options">No Positions</option>
                                </select>
                                <input data-val="true" data-val-number="The field ID must be a number." data-val-required="The ID field     is required." id="item_ID" name="item.ID" type="hidden" value="16973962"><input id="comments"   name="comments" type="hidden" value="">
                                <input type="submit"    value="Select" onclick="javascript:return ShowMessage();">
                            </form>
                        </td>
                    </tr>
                </tbody>
            </table>
            <br>
            <br>
        </div>
    </div>
</section>
<script>
function submitdata(){
    var valtext = $("#PPNumber").val(); //you can do also by  getelementbyid
    window.location.href = '/Report/Search/' + valtext;
}
function ShowMessage() {
    var result = prompt("Please insert a comment if required.", "");
    if (result == null) {
        return false; //break out of the function early
    }
    document.getElementById('comments').value = result;
    return true;
}
</script>

И скриншот веб-страницы:

Это код, который я пробовал:

Sub DropDayMacro()

    '
    ' DropDayMacro Macro
    '

    Dim ie As InternetExplorerMedium
    Dim A As String

    ActiveCell.Select
    Do Until ActiveCell.Value = ""
        JobNumber = Mid(ActiveCell.Value, 1, 6)
        Set ie = New InternetExplorerMedium
        ie.Visible = True
        ie.Navigate "http://10.23.16.37/Report/Search"
        Do While ie.Busy: DoEvents: Loop
        Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
        ie.document.getElementById("PPNumber").Value = JobNumber
        ie.document.parentWindow.execScript "submitdata();", "javascript"
        Do While ie.Busy: DoEvents: Loop
        Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
        na = ActiveCell.Offset(0, 2).Value
        Status = ActiveCell.Offset(0, 3).Value
        If Status = "CL" Then
            A = "Job Closed"
        ElseIf na = "N" Then
            A = "Unflagged for N&A"
        End If
        ie.document.getElementsByTagName("select").Item(0).Value = A
        ie.document.parentWindow.execScript "ShowMessage();", "javascript"
        ie.document.getElementById("item_ID").Value = "AS PER PROXY PLUS NOTES"
        ActiveCell.Offset(1, 0).Select
    Loop

End Sub

Answer 1

Из описания цепочки похоже, что вы хотите присвоить значение подсказке HTML.

Ниже приведен пример, который вам поможет.

Код VBA:

Private Const msFILENAME As String = "C:\Users\Administrator\Desktop\66.html"

Public Sub demo()

'* Tools->References
'SHDocVw    Microsoft Internet Controls C:\Windows\SysWOW64\ieframe.dll

    Dim oIE As InternetExplorerMedium
    Set oIE = New InternetExplorerMedium

    oIE.Visible = True
    oIE.navigate msFILENAME
    While oIE.Busy Or oIE.readyState < 4
        DoEvents
    Wend

    Stop
    Call oIE.document.parentWindow.execScript("function prompt(){return 'demo_value_from_VBA'}")
    Stop
   ' oIE.Quit
End Sub

HTML-код:

<!DOCTYPE html> <html> <body>

<p>Click the button to demonstrate the prompt box.</p>

<button id="btn1" onclick="myFunction()">Try it</button>

<p id="demo"></p>

<script> function myFunction() {   var person = prompt("Please enter your name", "Harry Potter");   if (person != null) {
    document.getElementById("demo").innerHTML =
    "Hello " + person + "! How are you today?";   } } </script>

</body> </html>

Вывод:

Далее можно попробоватьизмените этот пример кода согласно вашему требованию.