问题已经解决，下载图片!

lixun005

下载图片

[ 本帖最后由 lixun005 于 2008-3-20 11:00 编辑 ]

lixun005

管理员在吗？回答一下啊！谢谢喽！

tmtony

可以啊, 便 要写VBA代码
在窗体中插入IE控件

Dim b() As Byte
Dim strPath As String
Inet2.URL = "http://www.office-cn.net/test.jpg"
strPath = App.Path & "/tmp.bmp"
b() = Inet2.OpenURL(, icByteArray)
Open strPath For Binary Access Write As #1
    Put #1, , b()
Close #1

fan0217

1. 
   
2. 
   
3. Public Sub SaveWebPicture(url As String, fileName As String)
   
4. Dim x As New XMLHTTP
   
5. Dim s As New ADODB.Stream
   
6.     x.Open "GET", url, False
   
7.     x.send
   
8.     s.Type = 1
   
9.     s.Open
   
10.     s.Write x.responseBody
    
11.     s.SaveToFile fileName
    
12.     s.Close
    
13.    
    
14.     Set x = Nothing
    
15.     Set s = Nothing
    
16.   End Sub
    
17. Sub Test()
    
18.     SaveWebPicture "http://cimg2.163.com/mobile/2008/3/18/160_129.jpg", "C:\Test.jpg"
    
19. End Sub
    
20. 
    
21. 
    

复制代码

tmtony

呵呵, 用stream也是好办法

lixun005

非常感谢两位,哈哈......

lixun005

请问一下加在铵钮上是这样用的吗?
需要加插件吗?
Private Sub Command0_Click()
    Public Sub SaveWebPicture(url As String, fileName As String)
    Dim x As New XMLHTTP
    Dim s As New ADODB.Stream
    x.Open "GET", url, False
    x.send
    s.Type = 1
    s.Open
    s.Write x.responseBody
    s.SaveToFile fileName
    s.Close
   
    Set x = Nothing
    Set s = Nothing
  End Sub
    SaveWebPicture "http://cimg2.163.com/mobile/2008/3/18/160_129.jpg", "D:\Test.jpg"
End Sub

[ 本帖最后由 lixun005 于 2008-3-19 11:36 编辑 ]

fan0217

Private Sub Command0_Click()
SaveWebPicture "图片url地址", "保存图片的本地地址"

  End Sub

fan0217

需要引用xml和ado2.5以上版本

lixun005

Public Sub SaveWebPicture(url As String, fileName As String)
    Dim x As New XMLHTTP
    Dim s As New ADODB.Stream
    x.Open "GET", url, False
    x.send
    s.Type = 1
    s.Open
    s.Write x.responseBody
    s.SaveToFile fileName
    s.Close
   
    Set x = Nothing
    Set s = Nothing
  End Sub
Private Sub Command0_Click()
    SaveWebPicture "http://cimg2.163.com/mobile/2008/3/18/160_129.jpg", "D:\Test.jpg"
End Sub

提示
Dim x As New XMLHTTP
    Dim s As New ADODB.Stream
错误


怎么引用XML啊?