| 用VBA代码下载网络上的文件 |
|
| 作者：huanghai… 文章来源：AccessQQ 点击数： 本日：{$DayHits} 更新时间：2004-11-23 18:27:53 |
前几天与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
|
| 文章录入：huanghai 责任编辑：tm |
|
上一篇文章： 把子窗体的内容复制到EXCEL（子窗体可以是任意形式，如：连接窗体，数据表窗体）
下一篇文章： 解决ACCESS XP 粘贴数字到EXCEL XP会变成文本 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
