批量下载图片

NewZealand · 发表于 2013-10-12 08:18

序号	图片地址	保存时文件名
1	http://mmsns.qpic.cn/mmsns/DczbRN9ysbnlk6tnJ6RwN2PWIhCXI9lEJRSsR8WG43bJueeX3MJugQ/0	2013-10-11.jpg
2	http://mmsns.qpic.cn/mmsns/DczbRN9ysbnVGORdoy6f0VcjeKYd6W4gqBUiaqftykzicj6ObjWHIl7w/0	2013-10-10.jpg
3	http://mmsns.qpic.cn/mmsns/DczbRN9ysblVV4KbccnLcsmOy4x2HGicLibLIQLeskwdic8ibM1w14e6Iw/0	2013-10-09.jpg
4	http://mmsns.qpic.cn/mmsns/DczbRN9ysbmWfqIIwQUCT1F6A6xLHGuJFbyqjLQowFaxfFY8ANnVaw/0	2013-10-08.jpg
5	http://mmsns.qpic.cn/mmsns/DczbRN9ysblWBUxuehg9A7Q6ibqXvEw3Evf7pRjMQwNoBvwhmcacqIQ/0	2013-10-07.jpg
6	http://mmsns.qpic.cn/mmsns/DczbRN9ysbkAcsXt7Fv9dDyFIpIQBpiasuQ10D8vESLibIvUbrnhIa8w/0	2013-10-06.jpg
7	http://mmsns.qpic.cn/mmsns/DczbRN9ysblnCcqGpn0q4Ewwk1ECV2ebiaBr5UtMDr4tgGe4fNcregw/0	2013-10-05.jpg
8	http://mmsns.qpic.cn/mmsns/DczbRN9ysbnMMicnfazBxpuOnnW2LdJ9uoGibQHUmdEX5zXejdxswb0A/0	2013-10-04.jpg

将B列的图片下载到此工作薄所在的文件夹下，并用C列的文件名称保存。

怎么用VBA快速下载这些图片呢？

批量下载图片.zip (12.79 KB, 下载次数: 594)

wudixin96 · 发表于 2013-10-12 08:33

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 按钮1_Click()
Dim iRow, i
Dim savePath
savePath = ThisWorkbook.Path & ""
iRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To iRow
URLDownloadToFile 0, Cells(i, 2), savePath & Cells(i, 3).Value, 0, 0
Next
MsgBox "OK"
End Sub

复制代码

未测试，自己测试下

wudixin96 · 发表于 2013-10-12 08:40

回复不了啊，一回就被删了

lujkhua · 发表于 2013-10-12 08:58

wudixin96 发表于 2013-10-12 08:33
未测试，自己测试下

只想对你说：“牛，你真牛！”
经测试，完美运行！结果正确！！

NewZealand · 发表于 2013-10-12 10:48

wudixin96 发表于 2013-10-12 08:33
未测试，自己测试下

测试了，点击运行时就卡住了，窗口未响应……

CAC40 · 发表于 2013-10-12 10:57

高手！v5。。。。

suan_lai · 发表于 2013-10-12 11:32

完美运行的说，谢谢

NewZealand · 发表于 2013-10-12 11:40

编译错误，若要在64位系统上使用则必须更新此项目中的代码。请检查并更新Declare 语句，然后用PtrSafe 属性标记它们。

怎么修改代码呢？

wudixin96 · 发表于 2013-10-12 12:22

NewZealand 发表于 2013-10-12 11:40
编译错误，若要在64位系统上使用则必须更新此项目中的代码。请检查并更新Declare 语句，然后用PtrSafe 属性 ...

你用是64位OFFICE是吧，64位OFFICE使用API时，声明不一样的

wudixin96 · 发表于 2013-10-12 12:26

NewZealand 发表于 2013-10-12 11:40
编译错误，若要在64位系统上使用则必须更新此项目中的代码。请检查并更新Declare 语句，然后用PtrSafe 属性 ...

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

[求助] 批量下载图片