vba word 下载网络上的文件

建立模块：

Sub zxl_download()
    Set h = CreateObject("Microsoft.XMLHTTP")
    fp = "http://web.zxl.net/zzz/xxx/lll/hello.zip"
    h.Open "GET", fp, False
    h.send
    Set s = CreateObject("ADODB.Stream")
    s.Type = 1
    s.Open
    s.wirte h.Responsebody
    s.savetofile "d:\hello.zip", 2
    s.Close
End Sub