автоматизировать закачку изображений

[rocsted]

Есть таблица в эксель в ней ссылки на изображения, возможно ли автоматизировать закачку этих изображений с одновременным заданием им имени из соседней ячейки.

[Hugo121]

Зря Вы так - а если я в отпуске?
Пример бы файла увидеть.

Вообще-то я такого не делал...
Пока нашёл, где почитать:

http://www.cpearson.com/excel/DownloadFile.aspx

Downloading A File From The Web

This page describes how to use VBA to download a file from the web.

[rocsted]

Я посмотрел что вы на форуме

[rocsted]

Я посмотрел что вы на форуме
http://narod.ru/disk/9634560001/%D0%...%B8..xlsx.html

[Hugo121]

А на форуме я могу быть потому, что вчера не вышел

Если серъёзно - я не в теме. Может вечером файл скачаю и попробую, но у Chip Pearson код не маленький...

[rocsted]

я отблагодарю

[EducatedFool]

Пример кода есть здесь: http://excelvba.ru/code/DownloadPictures
Чуть позже переделаю пример под ваш файл

[EducatedFool]

Сделал - проверяйте:



В той же папке, где находится эта книга, создаётся подпапка Фотографии, в которую помещаются скачанные изображения

Вот код макроса:

Sub ОсновнойМакрос()
    Dim sh As Worksheet, cell As Range, ra As Range: Application.ScreenUpdating = False
    ПапкаДляФото$ = ThisWorkbook.Path & "\" & "Фотографии\"
    On Error Resume Next: MkDir ПапкаДляФото$

    Dim pi As New ProgressIndicator
    pi.Show "Загрузка фотографий"
    Set sh = ActiveSheet    ' обрабатываем только активный лист

    ' диапазон заполненных ячеек в столбце d, начиная с d2
    Set ra = sh.Range(sh.[d2], sh.Range("d" & sh.Rows.Count).End(xlUp))
    pi.StartNewAction , , "Загрузка фотографий", , , ra.Cells.Count

    For Each cell In ra.Cells    ' перебираем все ячейки диапазона
        ' формируем путь к новому файлу
        ИмяФайла = ПапкаДляФото$ & cell & ".jpg"
        Ссылка = RussianStringToURLEncode(cell.EntireRow.Cells(6).Text)
        pi.SubAction , "Артикул: " & cell, "Файл: " & ИмяФайла
        Debug.Print ИмяФайла, Ссылка
        ' сохраняем очередную ссылку в виде файла в  папку
        If DownLoadFile(Ссылка, ИмяФайла) Then
            Debug.Print "Скачан файл: " & Ссылка
        Else
            MsgBox "Не удалось загрузить файл " & Ссылка, vbCritical
        End If
    Next cell
    pi.Hide    ' закрываем прогресс-бар
End Sub

Вот что скачалось:

[Hugo121]

Вот что значит Мастер!
А я погонял код Чипа Персона - то качает, то нет. Если фотку в браузере открыл - то потом кодом она скачалась, иначе просто пишет ошибку в лог и всё...
А код EducatedFool сработал сразу и без ошибок.

Только я в своих попытках имя файла формировал типа этого:

ИмяФайла = ПапкаДляФото$ & cell & "-" & cell.Offset(, -1) & ".jpg"

т.к. артикулы бывают повторяются, а в связке с ценой повторов нет.

[rocsted]

Dim pi As New ProgressIndicator
Чего то оно у меня тут останавливается