用VBA下载google图片

aliaaaa · 发表于 2013-5-1 04:05

本帖最后由 aliaaaa 于 2013-5-1 04:10 编辑

经测试,google搜索图片哪里的代码,大概是由于Google改版的原因,页面上没有图片链接(测试时把cn改为com.hk),
SS数组是空的,我意不在此,也没有去试验其他的网站,不过,试了楼主的下载主程序也是可以下载图片的~
         ie.Open "图片的URL", 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
再次谢谢ccwan和楼主~~

jinseliyu · 发表于 2015-12-7 14:54

大侠救命，跪求，如何把百度地图左边的多页搜索结果一次性导出excel文件，我下载了文件修改后运行总是出错，我的联系方式：QQ：2737402219
15132840513
希望大侠指导我一下

weiyingde · 发表于 2015-12-16 14:43

难能可贵，深入研究。
一己之见，凭君之能，可研究实用性的东西。
如有所误，敬请谅解！！！

numbmankind · 发表于 2020-3-4 02:02

请问下，下载的部分图片不成功，怎么解决呢

		自动登录	找回密码
密码			免费注册

[分享] 用VBA下载google图片