用VBA代码下载网络上的文件|用VBA代码下载网络上的文件

投稿

繁体

RSS

首页

网站运营

欢迎在本站发布信息，在线投递稿件请点这里。编辑QQ:4908220，欢迎联系交流。
业界动态	创业故事	推广研究	策划盈利	电子商务	企业平台
站长工具
SEO查询	Whois查询	Pr查询	域名查询	IP查询	网页编辑器

建站服务

如有建站意向，请尽快联系我们，以便安排时间... QQ:4908220
作品展示	服务范围	服务流程	服务报价	联系方式	付款方式

站长论坛

交流区
站长酒吧	SEO&推广	网赚交流	建站系统

服务&信息
招聘求职	项目外包	广告发布	网络资源

技术区
网页设计师	界面设计师	WEB程序员	计算机应用

文章正文	» 您的当前位置：首页 >> 学院 >> 数据库 >> Access

用VBA代码下载网络上的文件

来源：互联网 | 时间：2005-10-04 | 浏览：相关评论 | 报告错误 | 发布文章

【字号：大 | 中 | 小】【背景色

】

前几天与MVP老K一起讨论如何从网络中下载一个文件到本机,现将代码帖上来与大家分享.另外我看到张志前段时间需要这个代码,不知道现在仍需要.代码适用于VBA，VB，VBS。

Dim H, S
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", "http://www.yt-e.com/a.exe", False?? "网络中的文件URL
H.send
Set S = CreateObject("ADODB.Stream")
S.Type = 1
S.Open
S.write H.Responsebody
S.savetofile "c:a.exe", 2? "本地保存文件名
S.Close