VBA 怎样批量下载网页图片？

dongdonggege

Yalishanda30 发表于 2024-8-13 09:20
pdf也可以的

老师你好，能把程序发出来吗？

dongdonggege

zxsea_7426 发表于 2024-8-13 08:23
这个页面直接有下载的真正地址

老师你好，你的程序呢？能发出来吗？

Yalishanda30

dongdonggege 发表于 2024-8-13 09:30
老师你好，能把程序发出来吗？

私发给你吧

MR_PP

dongdonggege 发表于 2024-8-13 09:30
老师你好，能把程序发出来吗？

1. <div class="blockcode"><blockquote>Sub DownloadImages()
   
2.     Dim url As String
   
3.     Dim folderPath As String
   
4.     url = "https://www.pep.com.cn/ebook/2022yjkcbz/yw/files/thumb/"
   
5.     ' 创建文件夹路径
   
6.     folderPath = ThisWorkbook.Path & "\images"
   
7.     If Dir(folderPath, vbDirectory) = "" Then
   
8.         MkDir folderPath
   
9.     End If
   
10.     For k = 1 To 109
    
11.         DownloadFile url & k & ".jpg", folderPath & "\image" & k & ".jpg"
    
12.     Next
    
13. 
    
14.     MsgBox "下载OK，文件放在：" & folderPath
    
15. 
    
16. End Sub
    
17. 
    
18. Sub DownloadFile(ByVal url As String, ByVal savePath As String)
    
19.     Dim http As Object
    
20.     Set http = CreateObject("MSXML2.XMLHTTP")
    
21.     http.Open "GET", url, False
    
22.     http.send
    
23. 
    
24.     If http.Status = 200 Then
    
25.         Dim stream As Object
    
26.         Set stream = CreateObject("ADODB.Stream")
    
27.         stream.Type = 1 ' adTypeBinary
    
28.         stream.Open
    
29.         stream.Write http.responseBody
    
30.         stream.SaveToFile savePath, 2 ' adSaveCreateOverWrite
    
31.         stream.Close
    
32.     End If
    
33. End Sub
    
34. 
    
35. 
    

复制代码

dongdonggege

Yalishanda30 发表于 2024-8-13 09:34
私发给你吧

好的，谢谢

dongdonggege

MR_PP 发表于 2024-8-13 09:36

程序能运行，也保存了一百多个文件，但是效果不理想。图片是空的假的。

tspliu

dongdonggege 发表于 2024-8-12 20:21
老师，请问你有这样的两个网址，小学语文和小学数学2022年课程标准，
小学语文https://www.pep.com.cn/e ...

这样能看明白吗？还是我前面发的那个功能

Yalishanda30

dongdonggege 发表于 2024-8-13 10:47
程序能运行，也保存了一百多个文件，但是效果不理想。图片是空的假的。

访问太多被墙了

cai2532

quqiyuan 发表于 2024-8-12 07:11
运行后会提示输入网址，然后提示输入保存的文件名，它就可以自动下载图片，然后形成一个PDF文件。此 ...

您好，请问有没有像excel home vba这样的python学习实例论坛？

dongdonggege

tspliu 发表于 2024-8-13 14:32
这样能看明白吗？还是我前面发的那个功能

上下午，都在网友的辅导下工作，你的程序，换了几个网址，在send时出错。拒绝访问。 CreateObject("msxml2.serverxmlhttp")，修改为CreateObject("MSXML2.XMLHTTP")又会出错。发个文件给你吧，看什么原因