vba download web file

最新推荐文章于 2023-06-11 00:28:31 发布

原创最新推荐文章于 2023-06-11 00:28:31 发布 · 326 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vba download file

本文介绍使用VBA通过网络下载文件的具体实现方法。包括使用Microsoft.XMLHTTP对象获取文件内容，利用ADODB.Stream对象保存文件，以及直接调用URLDownloadToFile API函数下载文件等三种方法。

Sub test()
Dim H, S
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", http://www.163.com/test.exe, False '文件网址

H.send
Set S = CreateObject("ADODB.Stream")
S.Type = 1 '二进制
S.Open
S.write H.Responsebody '写入取得的内容
S.savetofile "c:\temp\test.exe", 2 '保存文档

S.Close
End Sub

Sub test2()

Dim bt() as byte '建立数组

Dim H As Object
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", "Http://www.163.com/test.exe", False
H.send
If H.Status = 200 Then '没有超时

bt = H.Responsebody

Open "http://www.163.com\test.exe" For Binary As #1 '建立二进制文件
Put 1, , bt '写入文件
Close #1
End If
End Sub

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

'申明API

Sub downlaod()
URLDownloadToFile 0, "http://www.163.com/test.exe", "c:\temp\ver.exe", 0, 0
End Sub