Hallo zusammen,

Ich habe folgenden Code aus dem Internet kopiert, welcher mir PDF Dateien aus URL`s auf den Rechner runterläd.

Hier der Code:

---------------------------------------------------------------------------------------------------------------------------------------------------
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

________________________________________________________________________________

Sub Donloadfiles ()

.......

Set ws = ActiveSheet
For x = Machinerow To EndRow

    Dim strSavePath As String
    Dim URL As String, ext As String
    Dim buf, ret As Long
    URL = "www.blabla/bla.pdf"  `(Muster URL)
    buf = Split(URL, ".")
    ext = buf(UBound(buf))
    strSavePath = strFolder & ws.Range(namenumber & x).Value & "." & ext
    ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
'    If ret = 0 Then
'        MsgBox "Download has been succeed!"
'    Else
'        MsgBox "Error"
'    End If
    
    Next x

End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Mein problem ist Folgendes:

Wenn die URL mit ".pdf" endet, werden die Dateien ganz normal abgespeichert. Es hat jedoch manchmal URL`s, welche auf  "pdf?secure=1" enden. Diese speichert der Code dann nicht ab und geht weiter zur nächsten URL. Dabei ist ret auch nicht 0 sondern -21.

Könnt ihr mir sagen warum, bzw. wie ich den Code anpassen müsste? der URL welcher auf "pdf?secure=1" endet, lässt sich manuell ohne Probleme öffnen und abspeichern.

Vielen vielen Dank und liebe Grüsse

Gabriel