[HELP] Download images from a list of urls (in excel sheet) tomy local disk
Il 25/09/2012 10:12, anto888 ha scritto:
Hi, i have a sheet with a list of urls of some pictures:
http://www.mysite.com/cbcuu/$5Gbewh60.jpg
http://www.mysite.com/cbcuu/$"£%"£wh60.jpg
http://www.mysite.com/cbcuu/$rf34ewh60.jpg
http://www.mysite.com/cbcuu/$5G$£h60.jpg
http://www.mysite.com/cbcuu/$5G65h60.jpg
http://www.mysite.com/cbcuu/$5G"£££h60.jpg
http://www.mysite.com/cbcuu/$5Gbtgtgh60.jpg
I need a tool that will automatically connect to the url and download
the images in a folder.
So now i have new urls like these:
C:\User\Anto\Pictures\$5Gbewh60.jpg
C:\User\Anto\Pictures\$"£%"£wh60.jpg
etc.
Then the tool must re-insert the new urls in the excel sheet near the
old urls.
I hope this can be done in excel. Thanks very much and sorry for my
not-perfect english.
Hope you have a nice day.
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 DownloadFilefromWeb()
Dim SPath As String, ret As Long, Addr As Range, v As Range
Set Addr = Range("Sheet11!A2:A9")
SPath = "C:\MyDir\MySubDir\"
For Each v In Addr
ret = URLDownloadToFile(0, v, SPath & Mid(v, InStrRev(v, "/") + 1),
0, 0)
v.Offset(, 1) = IIf(ret, "Error", "Ok")
Next
End Sub
Set the sub for your range and your path.
Hi,
E.
|