用VBA下载google图片

最新推荐文章于 2023-09-06 10:09:27 发布

ccwanlxg

最新推荐文章于 2023-09-06 10:09:27 发布

阅读量917

点赞数

文章标签： vba google path string function api

本文链接：https://blog.youkuaiyun.com/ccwanlxg/article/details/5086010

版权

这段VBA代码演示了如何通过循环从Google图片搜索中下载指定关键词的图片。首先，它创建一个XMLHTTP对象来获取网页内容，然后解析响应以找到图片链接，并使用ADODB.Stream保存图片到本地。在杨志宁的建议下，改用API：URLDownloadToFile进行下载，提高了效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub cc() Dim s, ss(), r%, i&, j& IName = "***" '这里确定要下载谁的图片 Path = ThisWorkbook.Path & "/" MkDir Path & IName '建立文件夹以便存放图片 On Error Resume Next Set ie = CreateObject("Msxml2.XMLHTTP") For r = 0 To 100 Step 20 '这里控制你要下载几张网页的图片 _ —如果你定的数字很大，那么恭喜你，你可以休息很长时间了，呵呵 ie.Open "GET", "http://images.google.cn/images?gbv=2&hl=zh-CN&newwindow=1&q=" & IName & "&sa=N&start=" & r & "&ndsp=20"", true" ie.Send Do Until ie.ReadyState = 4 DoEvents Loop '等待网页处理完成再运行下面的代码 s = Split(ie.responseText, """") '把源文件中的引号替换成换行，以便提取图片链接 For i = 0 To UBound(s) If s(i) Li