使用 VBA 或 Python 从 URL 列表下载图像

Question

我正在尝试从某些 URL 下载一些图像。我检查过 Downloading Images from URL and Renaming

VBA download file from website - popup window

GET pictures from a url and then rename the picture

但似乎都不起作用。

我需要下载它们并将它们重命名为以下信息： (excelsheet)A2姓名C2link，A3姓名C3link。等等

问题是托管图像的站点要求登录才能查看图像。它适用于包括 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.

如有任何关于 VBA 或 Python 的想法，我们将不胜感激。

PS: 我有网站的工作凭证，所以我可以登录。

我也试过在终端中使用 wget -i images.txt 但它下载了一些不可读的 11kb 文件。

Answer 1

我使用 VBA 导航到照片网络路径并使用 shell 脚本下载图像

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

使用 VBA 或 Python 从 URL 列表下载图像

Download image from URL list using VBA or Python

python

url

vba

imagedownload