时间戳

首页 > 解决方案 > 使用 VBA 或 Python 从 URL 列表下载图像

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

问题描述

我正在尝试从某些 URL 下载一些图像。我已经检查了 从 URL 下载图像和重命名

从网站下载 VBA 文件 - 弹出窗口

从 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 中。

任何关于 VBA 或 Python 的想法都值得赞赏。

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

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

标签： pythonvbaurlimagedownload

解决方案

我使用 VBA 导航到照片 Web 路径并使用 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

推荐阅读