Как нажать кнопку «Отправить» и обработать уведомление о загрузке с помощью Excel VBA - PullRequest
0 голосов
/ 25 сентября 2018
Sub Drop_Down()
Dim objIE As Object, ele As Object, opt As Object
Dim y As Integer
    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Visible = True
    source = "http://pipeline.wyo.gov/rCountyProdnSalesByYear_menu.cfm?Oops=#oops#&RequestTimeOut=6500"
    objIE.navigate source

    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop


    Set ele = objIE.document.getElementsByTagName("select")

    For Each opt In ele
        If opt.getAttribute("name") = "bCode" Then
            opt.Focus
            opt.Value = "003"
            Exit For
        End If
    Next opt

Set ele = objIE.document.getElementsByTagName("select")

    For Each opt In ele
        If opt.getAttribute("name") = "nYr" Then
            opt.Focus
            opt.Value = "2015"
            Exit For
        End If
    Next opt

Set ele = objIE.document.getElementsByTagName("td")

    For Each opt In ele
        If opt.getAttribute("TYPE") = "Submit" Then
            opt.Focus
            opt.Click
            Exit For
        End If
    Next opt
objIE.Quit
End Sub

1 Ответ

0 голосов
/ 25 сентября 2018

Таким образом, существует два различных типа автоматизации, один из которых представляет собой автоматизацию в стиле веб-драйвера, которая позволяет принудительно вводить команды через веб-страницу, а другой предназначен для уведомлений / программ Windows, которые не имеют веб-интерфейса, таких какуведомление о загрузке.

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

Например, https://autohotkey.com/boards/viewtopic.php?t=32323

У этого парня есть AutoHotKey + Selenium, работающий вместе, я ничего не делал, кромеэто возможно.

Всего наилучшего, Джек

...