Загрузите изображение из списка URL-адресов с помощью VBA или Python
Я пытаюсь загрузить некоторые изображения с некоторых URL-адресов. я проверил Загрузка изображений с URL и переименование
Скачать файл VBA с сайта - всплывающее окно
ПОЛУЧИТЕ изображения по URL-адресу, а затем переименуйте изображение
Загрузите изображение с URL-адреса изображения
Загрузите изображения с URL-адреса Python
Скачать изображения из списка URL-адресов но ни один из них не работает.
Мне нужно загрузить их и переименовать, как показано ниже: (лист Excel) Имя A2 Ссылка C2, имя A3 C3 ссылка. и т. д.
Дело в том, что сайт, на котором размещены изображения, требует входа в систему для просмотра изображений. Он работает в любом браузере, включая IE, но, похоже, я не могу загрузить их с помощью
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64-Bit versions of Excel
Private Declare PtrSafe 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
в Вба.
Любая идея по VBA или Python приветствуется.
PS: у меня есть рабочие учетные данные для веб-сайта, поэтому я могу войти на него.
Я также пытался использовать wget -i images.txt в терминале, но он загружает некоторые нечитаемые файлы размером 11 КБ.
Ответы 1
Я использовал VBA для перехода к веб-пути к фотографии и сценарий оболочки для загрузки изображения.
Set wshShell = CreateObject("WScript.Shell")
Do
ret = wshShell.AppActivate("Save Picture")
Loop Until ret = True
WScript.Sleep 500
ret = wshShell.AppActivate("Save Picture")
If ret = True Then
ret = wshShell.AppActivate("Save Picture")
pPath = "C:\Users\user\Desktop\Images\Image1"
imgP = "Image1"
wshShell.SendKeys pPath
WScript.Sleep 1000
wshShell.SendKeys "{ENTER}"
End If
URLDownloadToFileAдля простой загрузки. Вам понадобится элемент управления браузером для обеспечения аутентификации (у меня его нет, извините).