纯Access VBA从网页下载文件到本地文件

'纯Access VBA从网页下载文件到本地文件
'作者：tmtony
'来源：Office交流网
Function DownloadFileFromUrl(URL, dest)
    '创建xmlHttp对象
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    
    '通过Get方法打开网址下载文件
    objXMLHTTP.Open "GET", URL, False
    objXMLHTTP.send

    '保存文件到本地目录
    If objXMLHTTP.Status = 200 Then '判断状态是否200
        '通过adodb stream 将文件保存到本地
        Set objADOStream = CreateObject("ADODB.Stream")
        objADOStream.Open
        objADOStream.Type = 1

        objADOStream.Write objXMLHTTP.responseBody
        objADOStream.Position = 0

        objADOStream.SaveToFile dest
        objADOStream.Close
        Set objADOStream = Nothing
    End If
    '释放XMLHTTP对象
    Set objXMLHTTP = Nothing

    '下载完成
End Function

调用方式：

DownloadFileFromUrl  "http://www.office-cn.net/test.rar","d:\test\tmprar"