网抓-下载文件

onthetrip

我用以下代码下载一个PDF文件

1. ub Main()
   
2.     Const strFileName As String = "C:\自招.pdf"
   
3.     With CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.         .Open "GET", "https://www.shmeea.edu.cn/download/20230710/syts/001-1.pdf", False
   
5.         .Send
   
6.         ByteToFile .responsebody, strFileName
   
7.     End With
   
8. End Sub
   
9. Sub ByteToFile(arrByte, strFileName As String)
   
10.     With CreateObject("Adodb.Stream")
    
11.         .Type = 1 'adTypeBinary
    
12.         .Open
    
13.         .Write arrByte
    
14.         .SaveToFile strFileName, 2 'adSaveCreateOverWrite
    
15.         .Close
    
16.     End With
    
17. End Sub

复制代码

为什么在这句

1. .SaveToFile strFileName, 2

复制代码

提示对象定义错误呢？

Yalishanda30

修改一下吧

LIUZHU

Yalishanda30 发表于 2023-7-12 08:42
修改一下吧

请问下，MSXML2.XMLHTTP，如果使用前期绑定，要绑定哪个库？

Yalishanda30

LIUZHU 发表于 2023-7-12 09:23
请问下，MSXML2.XMLHTTP，如果使用前期绑定，要绑定哪个库？

这个。。。。。。