{"id":55001437,"date":"2023-06-01T00:00:00","date_gmt":"2023-06-17T09:29:38","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1437"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Dateien_aus_dem_Web_herunterladen_per_VBA","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Dateien_aus_dem_Web_herunterladen_per_VBA\/","title":{"rendered":"Dateien aus dem Web herunterladen per VBA"},"content":{"rendered":"

\"\"<\/p>\n

Es gibt eine Menge Gründe, warum man per VBA komplette Dateien aus dem Internet herunterladen sollte. Beispielsweise könnte man von dort Listen im Excel- oder .csv-Format herunterladen, um anschließend die enthaltenen Daten in die aktuelle Datenbank einzulesen. Oder man hat eine Anwendung, die beim Kunden läuft, und diese soll in regelmäßigen Abständen prüfen, ob es ein Update für diese Anwendung gibt und die neue Datei bei Bedarf aus dem Internet herunterladen. In diesem Beitrag zeigen wir die Technik, mit der solche Anforderungen umgesetzt werden. Dabei nutzen wir verschiedene Techniken, zum Beispiel per API oder mit dem XMLHTTP-Objekt der Bibliothek Microsoft XML, v6.0.<\/b><\/p>\n

Download per API<\/h2>\n

Ein Download via API ist die am schnellsten programmierte und einfachste Methode, um eine Datei aus dem Internet herunterzuladen, die auch frei verfügbar ist (also auch über die Eingabe der URL in einen Webbrowser heruntergeladen werden könnte). Die Lösung zu diesem Ansatz sieht wie in Listing 1 aus. Hier deklarieren wir zunächst eine API-Funktion namens URLDownloadToFile <\/b>in der 32-Bit-Version und in der 64-Bit-Version sowie eine Konstante.<\/p>\n

#If VBA7 Then\r\nPrivate <\/span>Declare Function URLDownloadToFile Lib \"urlmon\" Alias \"URLDownloadToFileA\" _\r\n     (ByVal pCaller As Long<\/span>, ByVal szURL As String<\/span>, ByVal szFileName As String<\/span>, _\r\n     ByVal dwReserved As Long<\/span>, ByVal lpfnCB As Long<\/span>) As Long<\/span>\r\n#Else\r\nPrivate <\/span>Declare PtrSafe Function URLDownloadToFile Lib \"urlmon\" Alias \"URLDownloadToFileA\" _\r\n     (ByVal pCaller As Long<\/span>Ptr, ByVal szURL As String<\/span>, ByVal szFileName As String<\/span>, _\r\n     ByVal dwReserved As Long<\/span>Ptr, ByVal lpfnCB As Long<\/span>Ptr) As Long<\/span>Ptr\r\n#End If\r\nConst ERROR_SUCCESS = 0\r\nSub <\/span>DownloadAPI()\r\n     Dim <\/span>strUrl As String<\/span>\r\n     Dim <\/span>strDatei As String<\/span>\r\n     strUrl = \"http:\/\/www.access-im-unternehmen.de\/pic001.png\"\r\n     strDatei = CurrentProject.Path & \"\\pic001.png\"\r\n     Debug.Print<\/span> URLDownloadToFile(0&, strUrl, strDatei, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Einfacher Code zum Herunterladen einer Datei<\/span><\/b><\/p>\n
Danach rufen wir die Prozedur DownloadAPI <\/b>auf, in der wir die URL der herunterzuladenden Datei sowie den Zielpfad angeben. Damit ausgestattet rufen wir die API-Funktion auf und übergeben dieser mit dem zweiten und dritten Parameter die URL und den Zielpfad. Die übrigen Parameter bleiben leer. Wenn wir die Prozedur nun aufrufen und die angegebene Datei vorhanden ist, wird sie unter dem angegebenen Pfad auf dem lokalen Rechner gespeichert.<\/p>\n
Funktion auf Basis dieser Prozedur<\/h2>\n
In vielen Fällen wollen wir die Parameter einer solchen Prozedur wie die URL der herunterzuladenden Datei und den Zielpfad dynamisch angeben und diese nicht fest im Code vorgeben.<\/p>\n
Dann erstellen wir eine Funktion auf Basis der Prozedur, die wie folgt aussieht:<\/p>\n
Public Function <\/span>DownloadAPI(strURL As String<\/span>, _\r\n         strDatei As String<\/span>) As Boolean<\/span>\r\n     If URLDownloadToFile(0&, strURL, strDatei, 0&, 0&) _\r\n             = ERROR_SUCCESS Then\r\n         DownloadAPI = True<\/span>\r\n     End If<\/span>\r\nEnd Function<\/span> <\/pre>\n
Der Aufruf erfolgt beispielsweise über die folgende Prozedur:<\/p>\n
Public Sub <\/span>Test_DownloadAPI()\r\n     Dim <\/span>strURL As String<\/span>\r\n     Dim <\/span>strDatei As String<\/span>\r\n     strURL = \"http:\/\/www.access-im-unternehmen.de\/pic001.png\"\r\n     strDatei = CurrentProject.Path & \"\\pic001.png\"\r\n     Debug.Print<\/span> DownloadAPI(strURL, strDatei)\r\nEnd Sub<\/span><\/pre>\n
Mehr Komfort per Formular<\/h2>\n
Wenn wir dem Benutzer die Steuerung des gesamten Vorgangs überlassen wollen, können wir ihm ein Formular wie in Bild 1 hinzufügen. Dieses enthält zwei Textfelder – eines zum Eingeben der URL der Quelldatei und eines für die Zieldatei – und eine Schaltfläche namens cmdDownload<\/b>.<\/p>\n
\"Entwurf<\/p>\n
Bild 1: Entwurf des Formulars zum Herunterladen von Dokumenten aus dem Internet <\/span><\/b><\/p>\n
Außerdem hinterlegen wir noch eine Schaltfläche, mit welcher der Benutzer den Namen der Datei angeben kann, unter welcher die herunter geladende Datei gespeichert werden soll. Diese Schaltfläche heißt cmdDateiauswahl <\/b>und ruft die folgende Prozedur auf:<\/p>\n
Private Sub <\/span>cmdDateiauswahl_Click()\r\n     Dim <\/span>objFileDialog As <\/span>FileDialog\r\n     Set<\/span> objFileDialog = FileDialog(msoFileDialogSaveAs)\r\n     objFileDialog.Title = \"Zieldatei festlegen\"\r\n     objFileDialog.InitialFileName = _\r\n         CurrentProject.Path & \"\\\"\r\n     If <\/span>objFileDialog.Show = True<\/span> Then<\/span>\r\n         Me!txtZieldatei = objFileDialog.SelectedItems(1)\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Für die Verwendung der FileDialog<\/b>-Klasse benötigen wir einen Verweis auf die Bibliothek Microsoft Office 16.0 Object Library <\/b>(wie wir diesen hinzufügen, zeigen wir weiter unten).<\/p>\n
Wenn der Benutzer auch noch die URL wie in Bild 2 ausfüllt, können wir die Schaltfläche cmdDownload <\/b>nutzen, für die wir die folgende Prozedur hinterlegen:<\/p>\n
\"Formular<\/p>\n
Bild 2: Formular zur Eingabe von Quelle und Ziel beim Download<\/span><\/b><\/p>\n
Private Sub <\/span>cmdDownload_Click()\r\n     If <\/span>DownloadAPI(Me!txtURL, Me!txtZieldatei) Then<\/span>\r\n         MsgBox<\/span> \"Download erfolgreich!\"\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Für etwas mehr Komfort haben wir die Eigenschaft Horizontaler Anker <\/b>der beiden Textfelder auf Beide <\/b>eingestellt. So können wir die Felder verbreitern, indem wir die Breite des Formulars vergrößern. Die gleiche Eigenschaft stellen wir für die beiden Bezeichnungsfelder dann wieder auf Links <\/b>ein, da diese automatisch auf Rechts <\/b>eingestellt wurden.<\/p>\n
Außerdem legen wir diese Eigenschaft für die Schaltfläche cmdDateiauswahl <\/b>auf Rechts <\/b>ein, damit sie beim Vergrößern nach rechts verschoben wird (siehe Bild 3).<\/p>\n
\"Neue<\/p>\n
[<\/p>\n
Bild 3: Neue Schaltfläche für eine Download-Alternative<\/span><\/b><\/p>\n
Download per ServerXMLHTTP-Objekt<\/h2>\n
Die zweite Methode, die wir in diesem Beitrag vorstellen, erfolgt mit einem Objekt aus der Bibliothek Microsoft XML, v6.0<\/b>. Um dieses zu verwenden und dabei die Vorteile von IntelliSense zu benutzen, benötigen wir einen Verweis auf diese Bibliothek. Dazu wählen wir im VBA-Editor den Menübefehl Extras|Verweise <\/b>aus und fügen im Dialog Verweise <\/b>den entsprechenden Eintrag durch Anklicken des Kontrollkästchens hinzu (siehe Bild 4).<\/p>\n
\"Verweise<\/p>\n
Bild 4: Verweise für die ServerXMLHTTP-Variante<\/span><\/b><\/p>\n
Das Gleiche erledigen wir, wenn noch nicht geschehen, für die Bibliothek Microsoft Office 16.0 Object Library<\/b>. Schließlich benötigen wir noch einen dritten Verweis, nämlich den auf die Bibliothek Microsoft ActiveX Data Objects 6.1 Library<\/b>. Diese enthält die Elemente, die wir für das Speichern der heruntergeladenen Datei benötigen, denn im Gegensatz zur API-Funktion URLDownloadToFile <\/b>hat das Objekt ServerXMLHTTP <\/b>keine Methode zum direkten Speichern des heruntergeladenen Objekts im Dateisystem.<\/p>\n
Für die neue Variante des Downloads erstellen wir eine weitere Funktion namens DownloadXML<\/b>. Diese sieht wie in Listing 2 aus und enthält die gleichen beiden Parameter wie die Funktion DownloadAPI<\/b>.<\/p>\n
Public Function <\/span>DownloadXML(strURL As String<\/span>, strDatei As String<\/span>)\r\n     Dim <\/span>objServerXMLHTTP As <\/span>MSXML2.ServerXMLHTTP60\r\n     Dim <\/span>objStream As <\/span>ADODB.Stream\r\n     Set<\/span> objXMLServerHTTP = New<\/span> MSXML2.ServerXMLHTTP60\r\n     objXMLServerHTTP.Open \"GET\", strURL, False<\/span>\r\n     objXMLServerHTTP.send\r\n     Set<\/span> objStream = CreateObject(\"ADODB.Stream\")\r\n     objStream.Open\r\n     objStream.Type = 1\r\n     objStream.Write objServerXMLHTTP.responseBody\r\n     objStream.SaveToFile strDatei, 2\r\n     objStream.Close\r\n     If <\/span>Not<\/span> Len<\/span>(Dir(strDatei)) = 0 Then<\/span>\r\n         DownloadXML = True<\/span>\r\n     End If<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 2: VBA-Code zum Herunterladen einer Datei per ServerXMLHTTP-Objekt<\/span><\/b><\/p>\n
Um nun die Klasse ServerXMLHTTP <\/b>zu nutzen, deklarieren wir zunächst eine Objektvariable des Typs MSXML2.ServerXMLHTTP60<\/b>. Außerdem deklarieren wir ein Objekt des Typs ADODB.Stream<\/b>.<\/p>\n
Danach erstellt die Funktion ein Objekt des Typs ServerXMLHTTP <\/b>und referenziert dieses mit der Variablen objServerXMLHTTP<\/b>. Dieses wird gleich verwendet werden, um eine Verbindung zu der mit strURL <\/b>angegebenen URL herzustellen und die enthaltenen Daten abzurufen.<\/p>\n
Die Prozedur ruft als Erstes die Methode Open <\/b>des Objekts auf und übergibt neben dem Wert GET <\/b>für den ersten Parameter die URL mit dem zweiten Parameter. Der dritte Parameter erhält den Wert False<\/b>, damit die Operation nicht asynchron verläuft, das heißt, dass dieser Aufruf zuerst vollständig ausgeführt wird, bevor die nächste Anweisung der Prozedur an der Reihe ist. Die send<\/b>-Methode sorgt schließlich für die Ausführung des Abrufs der Daten. <\/p>\n
Anschließend erstellt die Prozedur ein Objekt des Typs ADODB.Stream<\/b> und öffnet dieses. Die Variable objStream <\/b>ist ein Objekt der Klasse ADODB.Stream<\/b>, die zur Manipulation von Binär- und Textdatenströmen in VBA verwendet wird. Die Type<\/b>-Eigenschaft legt den Typ des ADODB-Streams fest. In diesem Fall wird der Wert 1<\/b> zugewiesen, was bedeutet, dass der Stream als Binärstrom erstellt wird und Binärdaten wie zum Beispiel die Daten in einem Bild oder in einer Datei enthält.<\/p>\n
Wenn Type <\/b>auf 2<\/b> gesetzt ist, wird ein Textstream erstellt, welcher Textdaten wie zum Beispiel eine Zeichenfolge enthält. Da in diesem Fall eine normale Datei heruntergeladen wird, wird ein binärer Datenstrom benötigt, um die binären Daten der Datei zu speichern.<\/p>\n
Die folgende Zeile mit der Methode Write <\/b>erwartet die Antwort des Aufrufs des ServerXMLHTTP<\/b>-Objekts als Parameter und schreibt diesen in den Stream. Das Stream<\/b>-Objekt dient also praktisch als Zwischenspeicher, bevor die heruntergeladene Datei mit der SaveToFile<\/b>-Methode in die mit strDatei <\/b>angegebene Datei geschrieben wird.<\/p>\n
Danach schließt die Funktion das Stream<\/b>-Objekt mit der Close<\/b>-Methode, prüft, ob die angegebene Datei vorhanden ist und gibt in diesem Fall den Wert True <\/b>als Funktionswert zurück.<\/p>\n
Diese Funktion rufen wir über eine weitere Schaltfläche auf, die wir ebenfalls im Formular frmDownload <\/b>unterbringen (siehe Bild 5).<\/p>\n
\"Weiteres<\/p>\n
Bild 5: Weiteres Downloadverfahren per Formular<\/span><\/b><\/p>\n
Die durch diese Schaltfläche aufgerufene Prozedur sieht schließlich wie folgt aus:<\/p>\n
Private Sub <\/span>cmdDownloadXMLHTTP_Click()\r\n     If <\/span>DownloadXML(Me!txtURL, Me!txtZieldatei) Then<\/span>\r\n         MsgBox<\/span> \"Download erfolgreich!\"\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Download von geschützten Dateien<\/h2>\n
Es kann auch sein, dass die herunterzuladende Datei in einem geschützten Verzeichnis auf dem Webserver liegt. Das ist sinnvoll, wenn es sich um sensible Daten handelt.<\/p>\n
Wenn wir auf solche Daten über den Webbrowser zugreifen wollen, erscheint vor dem Download eine Meldung wie die aus Bild 6.<\/p>\n
\"Zugriff<\/p>\n
Bild 6: Zugriff auf eine geschützte Datei<\/span><\/b><\/p>\n
Wenn Sie dies ausprobieren wollen, können Sie diese URL verwenden:<\/p>\n
https:\/\/www.access-im-unternehmen.de\/geschuetzt\/pic001.png<\/pre>\n
Damit die Dateien in einem solchen Verzeichnis wie hier geschützt werden, sind einige Schritte nötig, die aus dem Anlegen bestimmter Dateien auf dem Webserver bestehen:<\/p>\n