利用VBA下载A列中链接的图片到本地电脑文件夹

乔123321aa

依据A列中的链接，利用VBA批量下载图片到本地文件夹，存放图片的文件夹可以自行选择，下载的图片以B列的对应序号命名。

taller

mmwwdd

mmwwdd

taller 发表于 2023-2-17 02:06

到responsebody怎么出现类型不匹配？

smsn

1. Function DownloadImage(url As String, filePath As String) As Boolean
   
2.     Dim httpReq As Object
   
3.     On Error GoTo ErrorHandler
   
4.     Set httpReq = CreateObject("MSXML2.XMLHTTP")
   
5.     With httpReq
   
6.         .Open "GET", url, False
   
7.         .Send
   
8.     End With
   
9.     If httpReq.Status = 200 Then
   
10.         With CreateObject("ADODB.Stream")
    
11.             .Open
    
12.             .Type = 1
    
13.             .Write httpReq.responseBody
    
14.             .SaveToFile filePath, 2
    
15.             .Close
    
16.         End With
    
17.         DownloadImage = True
    
18.     Else
    
19.         DownloadImage = False
    
20.     End If
    
21.     Exit Function
    
22. ErrorHandler:
    
23.     DownloadImage = False
    
24. End Function
    

复制代码

乔123321aa

taller 发表于 2023-2-17 02:06

谢谢老师，测试完全正确

perfect131

CreateObject("MSXML2.XMLHTTP") true 异步快，false 同步慢
1秒下载 53张

乔123321aa

perfect131 发表于 2023-2-20 18:51
CreateObject("MSXML2.XMLHTTP") true 异步快，false 同步慢
1秒下载 53张

这个快啊，1秒钟几十张

乔123321aa

smsn 发表于 2023-2-17 18:44

这个运行出来的都是false

hesengzu

perfect131 发表于 2023-2-20 18:51
CreateObject("MSXML2.XMLHTTP") true 异步快，false 同步慢
1秒下载 53张

谢谢大神！！这个方法太好了