純Access VBA從網(wǎng)頁(yè)下載文件到本地文件

'純Access VBA從網(wǎng)頁(yè)下載文件到本地文件
'作者：tmtony
'來(lái)源：Office交流網(wǎng)
Function DownloadFileFromUrl(URL, dest)
    '創(chuàng)建xmlHttp對(duì)象
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    
    '通過(guò)Get方法打開(kāi)網(wǎng)址下載文件
    objXMLHTTP.Open "GET", URL, False
    objXMLHTTP.send

    '保存文件到本地目錄
    If objXMLHTTP.Status = 200 Then '判斷狀態(tài)是否200
        '通過(guò)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對(duì)象
    Set objXMLHTTP = Nothing

    '下載完成
End Function

調(diào)用方式：

DownloadFileFromUrl  "http://m.mzhfr.cn/test.rar","d:\test\tmprar"