VBA Macro для загрузки нескольких файлов по ссылкам в IE
Я хочу скачать несколько файлов из списка ссылок. Сайт, на котором я нахожу ссылки, защищен. Вот почему я хочу использовать IE (используя текущий сеанс / cookie). Цель каждой ссылки - XML-файл. Файлы слишком велики, чтобы открыть, а затем сохранить. Поэтому мне нужно сохранить их напрямую (щелкните правой кнопкой мыши, сохраните цель как).
Список ссылок выглядит так:
<html>
<body>
<p> <a href="https://example.com/report?_hhhh=XML"Link A</a><br>> </p>
<p> <a href="https://example.com/report?_aaaa=XML"Link B</a><br>> </p>
...
</body>
</html>
Я хочу перебрать все ссылки и сохранить каждую цель. В настоящее время у меня проблемы с «Сохранить как». Я действительно не знаю, как это сделать. Это мой код до сих пор:
Sub DownloadAllLinks()
Dim IE As Object
Dim Document As Object
Dim List As Object
Dim Link As Object
' Before I logged in to the website
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("https:\\......\links.html")
Do While IE.Busy
DoEvents
Loop
' Detect all links on website
Set Document = IE.Document
Set List = Document.getElementsByTagName("a")
' Loop through all links to download them
For Each Link In List
' Now I need to automate "save target as" / right-click and then "save as"
...
Next Link
End Sub
У вас есть идеи по автоматизации "Сохранить как" для каждой ссылки?
Любая помощь приветствуется. Большое спасибо, Ули