Manchmal kommt es vor, dass man einen oder mehrere Downloads durchführen muss. Normalerweise führt man diesen Download durch einen Klick auf den entsprechenden Link durch. Die Datei landet danach üblicherweise im Download-Ordner, von wo wir ihn dann zum gewünschten Ort verschieben. Wenn wir zuvor die URL der herunterzuladenden Datei kennen und auch wissen, in welchen Ordner und unter welchem Namen die Datei im System landen soll, können wir dies auch per VBA realisieren. Dazu benötigen wir nur eine einfache API-Funktion und ihren Aufruf.<\/b><\/p>\n
Um einen einfachen Download zu realisieren, können wir die API-Funktion URLDownloadToFile<\/b> nutzen. Diese deklarieren wir wie in Listing 1. Außerdem finden wir dort eine Funktion zur Vereinfachung des Aufrufs. Dieser brauchen wir nur noch die URL zu der herunterzuladenden Datei zu übermitteln sowie den Pfad der Zieldatei.<\/p>\n#If VBA7 Then\r\n Private <\/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>, ByVal lpfnCB As Long<\/span>Ptr) As Long<\/span>\r\n#Else\r\n Private <\/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#End If\r\nPublic Sub <\/span>DownloadFile(strURL As String<\/span>, strPath As String<\/span>)\r\n Dim <\/span>lngResult As Long<\/span>\r\n lngResult = URLDownloadToFile(0, strURL, strPath, 0, 0)\r\n If <\/span>lngResult = 0 Then<\/span>\r\n MsgBox<\/span> \"Download erfolgreich!\", vbInformation\r\n Else<\/span>\r\n MsgBox<\/span> \"Download fehlgeschlagen!\", vbCr<\/span>itical\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n