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

• #46345 lcdtv tag

  Új Válasz 2021-03-30 12:15:34 #46345

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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