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

前几天与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

时间： 2024-08-22 14:53:21

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

如何通过javascript代码下载服务器上的文件?

问题描述 各位高手:请教个问题,我的服务器的虚拟目录下有个Excel文件,我如何通过javascript代码,弹出下载对话框来下载该文件?谢谢!!

PHP如何实现获取网络上的文件？

 PHP可以获取网络上的文件吗?PHP如何实现获取网络上的文件?请看实例代码:<!-- generateindex.php --> <?php //设置我们将要使用的文件 $srcurl = "http://localhost/index.php"; $tempfilename = "tempindex.html"; $targetfilename = "index.html"; ?> <HTML> <H

跟益达学Solr5之索引网络上远程文件

       我们的文件有时候不在本地,可能是在网络上,这时候我们该如何对其进行索引呢?当然你可以先通过爬虫把它抓取下来保存到本地硬盘,然后通过上篇博客介绍的方式对其进行索引,其实Solr内置了URLDataSource,支持直接获取远程资源进行索引的,下面就详细介绍该如何配置实现.废话不多说,我直接贴相应的配置文件:  solrconfig.xml配置文件基本没什么变化,依赖的jar请从上篇博客里获取,  关键点是dataSource必须是urlDataSource类型才能加载远程资源文件,u

Android 打开网络上pdf文件

之前写过一篇Android打开本地pdf文件的文章,最后总结的时候说,后面一定要拓展库,让其也能打开网络的的pdf文件.今天终于可以兑现承诺了.frok一份代码https://github.com/JoanZapata/android-pdfview,源码地址:http://xiazai.jb51.net/201704/yuanma/android-pdfview-master_jb51.rar,开始改造一番. 1.基本思路: 打开网络pdf 思路整体还是来源与图片的加载. android中加载

通过python下载FTP上的文件夹的实现代码_python

复制代码 代码如下: # -*- encoding: utf8 -*-import osimport sysimport ftplibclass FTPSync(object):    def __init__(self):        self.conn = ftplib.FTP('10.22.33.46', 'user', 'pass')        self.conn.cwd('/')        # 远端FTP目录        os.chdir('/data/')       

如何用代码定位硬盘上的文件

问题:如何用代码控制资源浏览器,并定位到指定的文件?   答:使用ShellExecute,配合explorer即可 ShellExecute(Application.Handle, 'open', PChar('explorer'), PChar('/select,"D:\ss\ee\test.txt"'), nil, SW_SHOWDEFAULT)   下面给出具体解释   1.Explorer.exe   鲜为人知的参数 收藏 在Windows中,相信大家对"Explo

3行代码列出硬盘上所有文件及文件夹

第一步 用Windows自带的记事本,或者NotePad++,或者其他任何编辑器新建一个文本文档. 第二步 依此输入以下代码: @echo off dir/s pause 第三步 保存文件为"everyFile.bat",重点为bat,前面的名称随便.bat是一种批处理文件.并且复制到C盘,否则看到的不是硬盘上所有的文件. 第四步 双击即可. 第五步 欣赏即可,如图是我的OpenCV文件夹. 当我写完这篇博客时,我的文件及文件夹还远没有全部枚举出. (PS:感觉这个蛮好玩的,就发给大家

下载服务器上的文件 利用 webservice 问题

问题描述 服务端webservice代码[WebMethod]publicbyte[]downFile(stringfileName){stringj1,j2,filepath;j1=Server.MapPath("");j2=@"Video"+fileName;filepath=j1+j2;//服务器端的文件路径和文件FileStreamfs=null;byte[]bb=newbyte[0];if(File.Exists(filepath)){fs=newFile

asp代码 关于空间上的文件的管理代码

<%aaa="images/"   ' ------------文件夹路径pagesize=3     '--------------每页显示的文件数!totalpage=1page=trim(request.querystring("page"))if page<>"" and isnumeric(page) then page=fix(page)else page=1end if Set fs = CreateObject(