Как скачать все фото по ссылкам с csv?

Question

[WebforSelf]

Друзья, такая проблема. Есть столбец images
у него в строке есть фото, где то одна, а где то несколько через запятую в формате.

http://site.ru/files/image1.jpg - строка с одним изображением
http://site.ru/files/image1.jpg , http://site.ru/files/image2.jpg   -   строка с несколькими изображениями

Как можно массово скачать все изображения в одну папку? может есть какая функция или макрос?

Comments

[Василий Банников]

Мне кажется, это проще без екселя решить

[WebforSelf]

Василий Банников, ссылок на изображение просто около 1500....

[Василий Банников]

WebforSelf, ну да. Скрипт на питоне в три строчки

Answer 1

[Григорий Боев]

Можно так, например. Для небольших объёмов - самое то. Список файлов в list.txt
Код сохранить как bat или cmd

mkdir downloads
wget -x -i list.txt --secure-protocol=auto -nc -c -P downloads>log.txt

Comments

[WebforSelf]

а куда сохранятся картинки? это получается винда сделает?

[Григорий Боев]

WebforSelf, в папку downloads, которую сам же скрипт и сделает

винда сделает?

Надо установить wget для windows

[h8nor]

Григорий Боев, в win10 есть curl

Answer 2

[Krasnoarmeec]

На Экселе получается не сильно длиннее, чем на питоне:

Public 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

' http://site.ru/images/site/site_ru_logo.png
Sub Start()
    Call DownloadToFile("http://site.ru/images/site/site_ru_logo.png", "D:\123.png") 
End Sub

Public Sub DownloadToFile(url$, FileName$)
    Dim lngRetVal&
    lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
    
    If lngRetVal <> 0 Then
        MsgBox "Error in DownloadToFile: Can't download from " & url & " to " & FileName
    End If
End Sub

Comments

[WebforSelf]

это скачает только изображение одно? site_ru_logo.png

[Krasnoarmeec]

Ловите ("D:\test.csv" - csv со ссылками"D:\" - директория, куда складывать файлы):

Sub Start()
    Dim linenumber&, arrayOfUrls$(), line$, source$, i&, destination$, tmpArray$()
    
    Open "D:\test.csv" For Input As #1 ' Open file for input
    Do While Not EOF(1) ' Loop until end of file
        linenumber = linenumber + 1
        Line Input #1, line
        arrayOfUrls = Split(line, ",")

        For i = 0 To UBound(arrayOfUrls)
            source = Trim(arrayOfUrls(i))
            tmpArray = Split(source, "/")
            Call DownloadToFile(source, "D:\" & tmpArray(UBound(tmpArray)))
        Next
    Loop
    Close #1
End Sub

[WebforSelf]

Krasnoarmeec,

ругается почему то

[Krasnoarmeec]

Функцию DownloadToFile забыли скопировать. И API-Call URLDownloadToFile.
Скопируйте всё из моего ответа в VBA и используйте содержимое "Start" (ну или Ваш "test").

[WebforSelf]

Krasnoarmeec, Что то не получается у меня.


Вроде и система и эксель 64 бита)

[Krasnoarmeec]

Ах, у Вас и Эксель 64-битный...
Используйте "Public Declare PtrSafe Function" вместо "Public Declare Function".
Может быть прийдётся изменить тип возращаемой функции с "As Long" на "As LongPtr", но тут я не уверен.