Макрос для загрузки картинок - работал в Excel 2013, но не работает в Excel 2016 - VBA
Формулировка задачи:
Добрый день!
Имеется макрос который работал в Excel 2013, но не работает в Excel 2016.
Помогите пожалуйста возобновить работу макроса в Excel 2016.
Решение задачи: «Макрос для загрузки картинок - работал в Excel 2013, но не работает в Excel 2016»
textual
Листинг программы
- If Len(Dir(ИмяФайла$)) = 0 Then ' добавленная строка
- ' обрабатываем ссылку, преобразуя её в URLEncode
- Ссылка$ = RussianStringToURLEncode(cell.Text)
- pi.SubAction , "Строка: " & cell.Row, "Файл: " & ИмяФайла$
- ' сохраняем очередную ссылку в виде файла в папку
- If DownLoadFile(Ссылка, ИмяФайла) Then
- FilesCount% = FilesCount% + 1 ' Debug.Print "Скачан файл: " & Ссылка
- Else
- MsgBox "Не удалось загрузить файл " & Ссылка, vbCritical
- End If
- End If ' добавленная строка
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
