VBA-Makro zum Herunterladen mehrerer Dateien von Links im IE
Ich möchte mehrere Dateien aus einer Liste von Links herunterladen. Die Website, auf der ich die Links finde, ist geschützt. Aus diesem Grund möchte ich den IE verwenden (mit der aktuellen Sitzung / dem aktuellen Cookie). Das Ziel jedes Links ist eine XML-Datei. Die Dateien sind zu groß zum Öffnen und Speichern. Ich muss sie also direkt speichern (Rechtsklick, Ziel speichern unter).
Die Liste der Links sieht folgendermaßen aus:
<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>
Ich möchte alle Links durchlaufen und jedes Ziel speichern. Zur Zeit habe ich Probleme mit "Speichern unter". Ich weiß nicht wirklich, wie ich es machen soll. Das ist mein Code bisher:
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
aben Sie Ideen, um "Speichern unter" für jeden Link zu automatisieren?
Jede Hilfe wird gebeten. Vielen Dank, Uli