Сохранение файлов расположенных по ссылке(*.jpg)

[Jnas]

Добрый день, уважаемые формучанины!

Не могу решить для себя задачу:
-Требуется чтоб файлы находящиеся по ссылке сохранялись по принципу:
По пути от места расположение самого excel файла и далее по каталогам( название листа, название каталога и название файла). Для полной ясности прикрепляю файл "Ssilki.rar"

Думал через запись макросов и редактирования данный макросов что нибудь сделать, но даже не знаю как записать макрос, которые делал что нибудь боле менее похожее на мою задачку, да и в VBA не очень силен.

Заранее спасибо!

[EducatedFool]

Попробую сделать (чуть попозже)
Пока выложите файл, в котором несколько листов, и ссылок чуть побольше.
Кстати, сколько максимум ссылок всего будет в файле?

[Jnas]

А нельзя сделать чтоб макрос запускался для конкретного листа? ну чтоб не для всей книги...
Пока файла нет еще , так как я его не вбил. а по поводу ссылок, то максимум 5 ссылок на одно имя

[EducatedFool]

То есть будет не 3 столбца со ссылками, а несколько (от 1 до 5, или больше)?

А нельзя сделать чтоб макрос запускался для конкретного листа? ну чтоб не для всей книги...

Конечно можно.
Какой лист активен на момент запуска макроса - с того и будут обрабатываться данные

PS: Windows не поддерживает имена папок с символами типа "|" - так что папки будут именоваться чуточку иначе.

[Jnas]

да,забыл уточнить, только 5 столбцов, по поводу знака "|" просто лист нельзя назвать Фото/Семья, поэтому я сделал "Фото|Семья", может даже будет лист называться "Фото|Жена|19.05.2004" это я к тому что папок может быть несколько

[EducatedFool]

Проверяйте - всё должно работать:
http://excelvba.ru/code/DownloadPictures

[Jnas]

Всё отлично работает! обычно дают просто макрос , а тут целая система,
не думал что на столько профессионально сделаете, спасибо Вам большое!

[Jnas]

На win7 x64 выдает ошибку
помечает красным
"
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

Public Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, _
ByVal psa As Any) As Long
"

Что можно с этим поделать?

[EducatedFool]

Что можно с этим поделать?

Поискать решение проблемы на форуме:
http://programmersforum.ru/showpost....67&postcount=2

Замените эти строки следующим кодом:

	
	
#If Win64 Then

    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
            (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, _
             ByVal dwReserved As LongLong, ByVal lpfnCB As LongLong) As LongLong

    Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
                                                (ByVal hwnd As LongLong, ByVal pszPath As String, _
                                                 ByVal psa As Any) As LongLong

#Else

    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

    Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
                                                (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long

#End If

[JVG]

Добрый день, уважаемое сообщество !

Задача похожа, но не совсем. Ссылки на файлы (фото) из каталога существуют в отдельном файле в формате:" \\Baze\KATALOG\и.т.д. до непосредственно - имярек.jpg." Эти линки необходимо проставить в ячейки с артикулами изделий в файле, сформированном на основе выгрузки из баз 1С. Для данной процедуры уникально имя файла-фотографии и наименование артикула, они, соответственно, идентичны. Так вот, необходимо воткнуть этот линк в ячейку с артикулом, чтобы наименование стало активным линком. Образцы файлов тут.