注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

凉茶

 
 
 

日志

 
 

VBA下载文件三种方法  

2011-12-21 12:05:29|  分类: Excel自动化 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Sub test()
    Dim H, S
    Set H = CreateObject("Microsoft.XMLHTTP")
    H.Open "GET", http://www.163.com/test.exe, False   '文件网址

    H.send   
    Set S = CreateObject("ADODB.Stream")
    S.Type = 1 '二进制
    S.Open
    S.write H.Responsebody '写入取得的内容
    S.savetofile "c:\temp\test.exe", 2  '保存文档

    S.Close
End Sub

Sub test2()

Dim bt() as byte '建立数组

Dim H As Object
    Set H = CreateObject("Microsoft.XMLHTTP")
    H.Open "GET", "Http://www.163.com/test.exe", False
    H.send
    If H.Status = 200 Then '没有超时

bt = H.Responsebody

        Open "http://www.163.com\test.exe" For Binary As #1 '建立二进制文件
        Put 1, , bt '写入文件
        Close #1
    End If
End Sub 

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

'申明API

Sub downlaod()
URLDownloadToFile 0, "http://www.163.com/test.exe", "c:\temp\ver.exe", 0, 0
End Sub



  评论这张
 
阅读(2444)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017