用VBA下载google图片

chentx · 发表于 2009-12-12 08:38

用VBA来做这些事，就不如写个VB.NET的小程序，可以后台多线程下载，所占用的时间与效率都不是VBA可以做得来的，最重要的是不用霸占整个EXCEL。

ccwan · 发表于 2009-12-12 08:41

用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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
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
DownloadFile s(i), Path & IName & "" & j & ".jpg"
End If
End If
Next
Next
End With
End Sub

复制代码

ccwan · 发表于 2009-12-12 08:49

原帖由 chentx 于 2009-12-12 08:38 发表
用VBA来做这些事，就不如写个VB.NET的小程序，可以后台多线程下载，所占用的时间与效率都不是VBA可以做得来的，最重要的是不用霸占整个EXCEL。

这个帖子只是介绍一下怎么用VBA下载图片，并没有让人一定要用它下载啊。我在顶楼已经说过，这完全可以用下载软件的。
至于兄说的VB.NET，呵呵，七窍通了六窍。

pt98 · 发表于 2009-12-12 11:26

不错，很实用

我拿你的代码用VB编译了一下，这样用来更方便一点（2种方法都编译了一下，效果差不多）

YZLSZAJ · 发表于 2010-2-19 08:34

创意很好。支持你

zhoumg · 发表于 2011-3-24 08:49

谢谢ccwan 学习了，题外话：你的头像是哪位美女啊？

wyrjn · 发表于 2011-3-24 09:01

做得不错，留个记号

yayawu_2008 · 发表于 2012-2-20 19:18

谢谢，真不错。
收藏了。

zpcnb8888 · 发表于 2012-12-20 22:32

牛逼啊我正需要这个呢谢谢

aliaaaa · 发表于 2013-5-1 03:07

找了一个晚上,保存WebBrowser中图片的资料,
找到最近似的,是VB下载的源码,经测试,VBA用不上,
万幸的..是找到了这个帖子,谢谢楼主~~
更十分感谢8楼ccwan提供的API函数:
URLDownloadToFile
经测试,这函数简单,好用!!

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

[分享] 用VBA下载google图片