VBA - Отправить ключи IE11 Сохранить / Открыть - PullRequest
Новая
       32

VBA - Отправить ключи IE11 Сохранить / Открыть

0 голосов
/ 06 января 2020

Я снял код с доски для отправки ключей в окно сохранения / открытия IE11, которое появляется, когда вы экспортируете файл, но он не работает (он отправляет в основной браузер). Я не могу активировать окно Сохранить / Открыть и отправить кнопку S даже при попытке вручную (с помощью ALT + S)

Требуются ли некоторые параметры, чтобы можно было отправлять ключи в это всплывающее окно?

Я поставил сокращенную версию кода ниже

Спасибо

1 Ответ

0 голосов
/ 06 января 2020

Пожалуйста, обратитесь к следующему примеру кода, мы могли бы использовать метод getElementbyId, чтобы сначала найти кнопку загрузки, а затем щелкнуть ее, чтобы отобразить приглашение на загрузку, после этого мы могли бы использовать команду Application.SendKeys "%{s}", чтобы нажать кнопку Сохранить. 

Sub downloadfile()

    Dim IE As Object, Data As Object
    Dim ticket As String

    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Visible = True
        .navigate ("https://dillion132.github.io/default.html")

        While IE.ReadyState <> 4
            DoEvents
        Wend

        'Trigger the download button to download the file
        IE.Document.getElementbyId("btnDowloadReport").Click

        'wait the download prompt appear
        Application.Wait (Now + TimeValue("00:00:03"))

        '
        Application.SendKeys "%{s}"

    'Waiting for the site to load.
    'loadingSite
    End With
    Set IE = Nothing
End Sub

Содержание веб-страницы: 

<a id="btnDowloadReport" href="https://research.google.com/pubs/archive/44678.pdf" download>Download</a>
...