VBA автоматизировать ie11 сохранить как диалоговое окно - PullRequest
Новая
       36

VBA автоматизировать ie11 сохранить как диалоговое окно

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

Я в шаге от успеха в огромном проекте автоматизации.У меня есть динамическая загрузка, полностью автоматизированная вплоть до диалогового окна IE11 Сохранить как.Вот где я застрял.Мне нужно 1) ввести динамическое имя файла и сохранить в динамическую папку (все на основе значения ячейки).2) нажмите Сохранить, переопределяя все диалоговые окна обновления

Ограничения;Я не могу скачать на основе URL, если вы собираетесь предложить это.Я имею дело с защищенным сайтом и прикольным URL, доступ к которому можно получить только через цикл «For Next», который я имею ниже.Насколько я знаю, я ограничиваюсь работой с этим окном SaveAs.

Вот что у меня есть; 

Sub savedownload()


Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

objIE.Visible = True

objIE.navigate Sheet3.Range("A1").Value ' this is where the dynamic URL is updated
 Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
 objIE.document.getElementById("PrintFormat").Value = "Pdf"
 Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop


Dim list As Object, item As Object
Set list = objIE.document.getElementsByTagName("a")
For Each item In list
If item.innerText = "Export" Then
    item.Click
    Exit For
End If
Next

Application.Wait (Now + TimeValue("0:00:05"))

Application.SendKeys "{TAB}", True
Application.SendKeys "{TAB}", True
Application.SendKeys "{DOWN}", True
Application.SendKeys "{DOWN}", True
Application.SendKeys "{RETURN}", True

'this is where the dialoge box comes up, but I cant seem to send a dynamic string of text to the file name/path field

End Sub

Я также приложил скриншот.Будут ли отправлять ключи на работу?Есть ли способ вызвать окно SaveAs и вставить динамическое имя файла?Я могу добавить к нему имя файла и сохранить его с помощью SendKeys, но я думаю, что есть лучший способ отправить целую динамическую строку в поле FileName в диалоговом окне.

Спасибо залюбые предложения.

Снимок экрана диалогового окна "Сохранить как" в IE11

enter image description here

...