如何以更新方式将指定网址的文件保存到本地目录下

Excel-Lover

如将如下图片：

[http://img.baidu.com/img/unlogo01.gif]
保存到本地为：
E:\Excel\test01.gif

[[url=http://img3.pcpop.com/upimg3/2006/3/24/0000635650.gif[/url]]

[ 本帖最后由 Excel-Lover 于 2009-4-13 16:26 编辑 ]

Excel-Lover

这个问题难倒高手了么？
居然放了20几个小时无解？

winland

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
Private Sub DownLoadFile()
    If URLDownloadToFile(0&, "http://img.baidu.com/img/unlogo01.gif", "c:/unlogo01.gif", 0&, 0&) = 0 Then
        MsgBox "Download OK"
    End If
End Sub

HHAAMM

向文兄学习！！

HHAAMM

好方便哦！！
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
Private Sub DownLoadFile()
    If URLDownloadToFile(0&, "http://img.mall.baidu.com/image/pic/item/965d207a7fd4c2cf3758d340.jpg", "d:/a.jpg", 0&, 0&) = 0 Then
        Call Shell("explorer " & "d:\a.jpg", vbMaximizedFocus)
    End If
End Sub

Excel-Lover

3Qall             3Qall             3Qall             3Qall

3Qall             3Qall             3Qall             3Qall

上图为动态三维立体画
鄙人好久以前做的

[ 本帖最后由 Excel-Lover 于 2009-4-6 12:59 编辑 ]

Excel-Lover

新问题

高手：
这种下载方式下载的是缓存中已存在的图片
怎样修改设置才以更新方式下载呢？

Excel-Lover

如图片

就是分分钟变化的

ldy

原帖由 Excel-Lover 于 2009-4-6 08:07 发表
新问题

高手：
这种下载方式下载的是缓存中已存在的图片
怎样修改设置才以更新方式下载呢？

Sub 非缓存()
    Dim bb() As Byte
    URL = "http://img.baidu.com/img/unlogo01.gif"
    pth = "c:\123.gif"
    Set xmlobj = CreateObject("Microsoft.XMLHTTP")
    xmlobj.Open "get", URL, False
    xmlobj.send
    bb = xmlobj.responseBody
    Open pth For Binary As 1
    Put 1, , bb
    Close 1
End Sub

Excel-Lover

Sub Macro2()
    Dim bb() As Byte
    URL = "http://img.baidu.com/img/unlogo01.gif"
    pth = "c:\123.gif"
    Set xmlobj = CreateObject("Microsoft.XMLHTTP")
    xmlobj.Open "get", URL, False
    xmlobj.send
    bb = xmlobj.responseBody
    Open pth For Binary As 1
    Put 1, , bb
    Close 1
Application.OnTime Now + TimeValue("00:00:60"), "Macro2"    '''1为什么加入这一行会出错？
End Sub
'''''''2此函数下载的并不是最新图片，如
实时是更新的(每分钟攻更新一次，地址不变，图片不断变)