用VBA下载google图片

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) Like "http://*" Then If InStr(s(i), "jpg") Then '这里两行查找含有图片地址的链接 j = j + 1 ReDim Preserve ss(1 To j) ss(j) = s(i) '把含有图片地址的链接址传递给数组ss End If End If Next Next For i = 1 To UBound(ss) ie.Open "GET", ss(i), False ie.Send Do Until ie.ReadyState = 4 DoEvents Loop With CreateObject("ADODB.Stream") .Type = 1 .Open .write ie.Responsebody .savetofile Path & i & ".jpg", 2 '以序号为名称另存图片 .Close End With Name Path & i & ".jpg" As Path & IName & "/" & i & ".jpg" '把下载下来的图片移到文件夹中 Next End Sub

在杨志宁兄的提议下，改为使用API:URLDownloadToFile 进行下载

Private Declare 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 Sub cc() Dim s() As String, r%, i&, j& IName = "***" path = ThisWorkbook.path & "/" MkDir path & IName On Error Resume Next With CreateObject("Msxml2.XMLHTTP") For r = 0 To 100 Step 20 .Open "GET", "http://images.google.cn/images?gbv=2&hl=zh-CN&newwindow=1&q=" & IName & "&sa=N&start=" & r & "&ndsp=20"", true" .Send Do Until .ReadyState = 4 DoEvents Loop s = Split(.responseText, """") For i = 0 To UBound(s) If s(i) Like "http://*" Then If InStr(s(i), "jpg") Then j = j + 1 URLDownloadToFile 0, s(i), path & IName & "/" & j & ".jpg", 0, 0 End If End If Next Next End With End Sub

用VBA下载google图片相关推荐

【Python】批量下载Google图片
批量下载图片是一件头疼的事情,今日介绍一个跨平台下载工具--google-images-download. 方法如下(MacOS为例): 1.运行iTerm或终端,安装: 请先提前安装Python,否 ...
Google 图片下载工具
毕设做实验需要从网上下几万张图片,以前用师兄做的Flickr下载器,用Flickr的API完成的.但是Flickr上的图片是用户分享居多,通过指定的关键词去搜索,很多时候无法得到满意的图片.在Goog ...
一条命令下载google壁纸，含错误解决方法
该命令是从google图片搜索上搜索wallpaper的大尺寸图片,匹配其中的jpg文件进行下载. #!/bin/bash for i in {1..10}; do for url in $( ...
两个下载 Google Books 图书的浏览器脚本和扩展
我们曾经介绍过一个独立的应用程序Google Book Downloader,可以帮助你下载Google Books里的PDF图书.如果你闲麻烦,或者说你是Windows用户,今天我们推荐两个浏览器脚 ...
Python+selenium+Chromedriver+代理爬取Google图片
代码更新,缘由之前是缩略图,一直问怎么爬取原图,索性代码写在下面,莫嫌弃low. 想分享源码的原因就是发现网上有关于Google图片的抓取竟然很少很少有介绍,而且有一个分享的代码竟然还加密收钱mmp, ...
下载网页图片-如何批量下载网页图片-批量图片下载工具免费
下载网页图片,今天给大家分享一款免费批量下载网页图片软件,支持任意格式的图片批量下载,只需要输入关键词或批量导入网页链接即可下载图片.批量下载任意网页上的图片,每个人都可以拥有各种高清图源.支持批量图 ...
php中文学习网的教程怎么样,PHP下载google相册到本地
调用方式 xxx.php?user=xxx 保证程序放的当前目录可写文件夹可写文件默认存放方式为 ./用户名/相册1描述/图片描述-1.图片后缀 function open($host,$file ...
下载网页图片-批量下载网页图片软件免费
下载网页图片,今天给大家分享一款免费批量下载网页图片软件,支持任意格式的图片批量下载,只需要输入关键词或批量导入网页链接即可下载图片.批量下载任意网页上的图片,每个人都可以拥有各种高清图源.支持批量图 ...
Chrome强大之一-----人人网批量下载相册图片
不得不承认google浏览器的强大啊,下面以Chrome的网上应用店做个示范: 准备工作: 首先点开下面这个链接: https://chrome.google.com/webstore/categor ...
Java爬取百度图片Google图片Bing图片
先看看抓取的结果. [b]抓关键字"美女"的百度图片:[/b] [img]http://dl2.iteye.com/upload/attachment/0119/1205/e97b ...

用VBA下载google图片

用VBA下载google图片相关推荐

最新文章

热门文章