Új hozzászólás Aktív témák

  • lcdtv

    tag

    Sziasztok! Szeretnék egy Excel fájlból ahol az "A" oszlopban több száz pdf link van letöltést csinálni egy adott könyvtárba. Több példát is néztem de nem jön össze.
    Lehet az a hiba hogy https-ről kellene tölteni?
    Annyit csinál csak hogy a "C" oszlopba a "Unable to download the file" szöveget teszi minden fájl mellé.
    Option Explicit

    #If VBA7 And Win64 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" ( _
    ByVal pCaller As LongPtr, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As LongPtr, _
    ByVal lpfnCB As LongPtr _
    ) As Long
    Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" _
    Alias "DeleteUrlCacheEntryA" ( _
    ByVal lpszUrlName As String _
    ) As Long
    #Else
    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
    Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _
    Alias "DeleteUrlCacheEntryA" ( _
    ByVal lpszUrlName As String _
    ) As Long
    #End If

    Public Const ERROR_SUCCESS As Long = 0
    Public Const BINDF_GETNEWESTVERSION As Long = &H10
    Public Const INTERNET_FLAG_RELOAD As Long = &H80000000
    Public Const folderName As String = "c:\temp\"

    Sub downloadImages()
    Dim i As Long, ret As Long, sWAN As String, sLAN As String

    With Worksheets("Munka1")
    For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
    sLAN = folderName & .Cells(i, 1).Value & ".pdf"
    sWAN = .Cells(i, 2).Value
    ret = URLDownloadToFile(0&, sWAN, sLAN, BINDF_GETNEWESTVERSION, 0&)

    If ret = 0 Then
    .Cells(i, 3) = "File successfully downloaded"
    Else
    .Cells(i, 3) = "Unable to download the file"
    End If
    Next i
    End With

    End Sub

Új hozzászólás Aktív témák