vba download web file

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