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

最新推荐文章于 2022-05-22 21:32:07 发布
转载 最新推荐文章于 2022-05-22 21:32:07 发布 · 5.9k 阅读 · 14
文章标签：

#vba #网络 #vb #url #c

本文介绍了一段用于VBA、VB及VBS的代码，该代码实现了从指定URL下载文件并保存到本地的功能。具体步骤包括创建XMLHTTP对象进行网络请求，获取远程文件内容，再使用ADODB.Stream对象将内容写入本地文件。
部署运行你感兴趣的模型镜像
代码适用于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 

您可能感兴趣的与本文相关的镜像

Qwen-Image-Edit-2509

Qwen-Image-Edit-2509

图片编辑
Qwen

Qwen-Image-Edit-2509 是阿里巴巴通义千问团队于2025年9月发布的最新图像编辑AI模型，主要支持多图编辑，包括“人物+人物”、“人物+商品”等组合玩法

精选资源
VBA源码800例VBA源码
04-27
（实例003）在任务栏上加上程序图标 （实例004）获取运行程序（控件）名称和内容 （实例005）锁住Windows直到输入正确的口令 （实例006）禁止创建快捷方式出现“快捷方式”四个字 （实例007）更改墙纸显示方式 ...
AutoDown_网页文件下载_自动下载网页文件_
10-03
可以自动下载网页中的文件、网页、压缩包，能够定期下载文件，不用人为操作
网页自动下载文件并汇总 （VBA）
热门推荐
小贺的专栏
07-13 1万+
背景：        公司是中石化钻石用户，一个ID下有近百张加油卡（销售人员遍布全国），每月要求对所有卡的消费记录进行统计。但是中石化网站查询只能选择一张卡进行查询或下载，并不提供批量下载（这种企业根本不考虑用户的感受，强烈鄙视一下）。每月需要花费1个人16个工时进行手工下载，
VBA下载网页数据实例(httpquest对象)
12-05
VBA下载网页数据实例,httpquest对象的学习实例
Excel·VBA下载URL链接网络文件
hhhhh_51的博客
05-22 4508
2种下载方式，可用于下载URL图片、网页等 #If Win64 Then Private Declare PtrSafe 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) A
vba word 下载网络上的文件
ZXL工作室
05-23 1573
建立模块： Sub zxl_download() Set h = CreateObject("Microsoft.XMLHTTP") fp = "http://web.zxl.net/zzz/xxx/lll/hello.zip" h.Open "GET", fp, False h.send Set s = CreateObject("ADODB.Strea
VBA 下载文件
Chobits的专栏
07-24 3335
Function GetWebCode(ByVal strUrl As String) As String Dim H Set H = CreateObject("microsoft.XMLHTTP") H.Open "get", strUrl, False H.send GetWebCode = H.responseText Set H = Nothing End Function Sub B
调试经验——使用VBA下载网络资源
预见未来to50的专栏
06-27 953
第一次使用VBA从网上下载了一张图片，挺有意思！哈哈。代码：#If Win64 Then Private Declare PtrSafe Sub sleepp Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As LongLong) Private Declare PtrSafe Function DeleteUrlCa...
VBA代码的JSON库 用以序列和反序列化json数据
最新发布
04-14
在本次提供的文件中，包含的两个文件“JsonConverter.bas”和“specs”正是这样的一个VBA代码库。这个库允许用户在VBA环境中更加便捷地操作JSON数据。通过使用这个库，VBA开发者可以轻松地将Excel表格的数据转换为...
VBA示例之 求人不如自已动手 下载文件到指定目录
10-26
以下是一个简单的VBA代码示例，展示了如何下载文件： ```vba Sub DownloadFile() Dim URL As String Dim SavePath As String Dim objHTTP As Object ' 设置URL和保存路径 URL = ...
VBA实现文件下载到指定目录的示例代码
首先，从标题可以看出，该示例主要面向初学者，旨在引导用户掌握如何使用VBA进行网络文件下载操作。虽然Excel本身不具备直接下载网络资源的功能，但借助VBA调用Windows系统底层的API函数或使用MSXML2.XMLHTTP等对象...
ＶＢＡ提取网页数据
09-21
ＶＢＡ提取网页数据，提高自动化办工效率，本工程以提取工信部车辆信息为例，如何提取网页数据，
VBA安装文件
08-03
VBA安装文件，安装金蝶时要用到，是金蝶软件中非常重要的一个文件，当你的计算机出现金蝶老提示缺少VBA.msi，就会导致金蝶软件无法正常使用或者无法安装。
VBA网页下载与控制.doc
06-15
一、概述及感谢 需要用到网页控制的方面，大致概括一下为： 1、程序中需要嵌入一个网页，例如：天气预报。 2、需要从网上下载数据，写入到本地数据库中。 二、Maxthon的使用 无论哪方面的应用，首要的是找到网址（也许是废话）。 以Winland的天气预报为例，假如我的程序需要这样一个东西，我该如何下爪： 1、打开http://www.17u.cn 2、点击“天气预报”，打开：http://www.17u.cn/tianqi 3、查一个城市试试，此时结果找到了，但网址没变。 4、点击Maxthon的viewpage。 5、在“框架”中，发现一个“内嵌框架”，点击打开。发现原来天气预报的网址为： http://www.17u.cn/WeatherInfoIfm.aspx?CityName=%e5%ae%9c%e6%98%8c 6、下一步，在我们自己的程序中就可以使用这个网址，直接来查询了。 综上所述，通过Maxthon，我们可以很方便地找到我们所需要的真正的网址。 在viewpage中还有一个“表单”，里面很清楚地显示了Name,method,以及Action。我理解这个Action就是“结果网页”的网址的后半部分（不知对不对？）。 （在网页的表单里面Action是目标地址，就是处理这些递交内容的服务器端脚本。 如果Action为空的话，就是当前文件。）
VBA安装包 下载，并提供网盘链接
11-15
于WPS，设置宏。 基于COM的宏语言Visual Basic for Applications最早出现在十年前的Office 97里，之后虽然带来了不少安全危险，但也着实非常方便。虽然Office开发者已经主线转向.NET，但VBA依然有其用武之地，下一代Office里也会继续存在它的身影。
精选资源
Excel+VBA+获取股票的历史数据+股票+基金+投资+理财+源代码+可直接使用
01-30
VBA代码通常包含模块、子程序（Sub）和函数（Function）。在获取股票历史数据的场景中，我们将创建一个Sub，用于执行网络请求并解析返回的数据。 1. **VBA基础知识**： - **Sub**：这是VBA中的一个过程，用于执行...
Vba_下载网络文件（图片）
weixin_42769855的博客
03-09 4140
Vba_Excel URLDownloadToFile 函数 ——下载网络图片到存放到本地磁盘 /** * imageURl 下载的图片地址 * savePath 存储的磁盘位置，绝对路径 * DownloadWebImage 处理结果 true of false **/ Public Function DownloadWebImage(imageUrl As String, savePath...
VBA下载文件 使用WebBrowser 及 DoFileDownload
方糖
06-16 1万+
一、启动WebBrowser 在Excel打开时启动：先激活WebBrowser所在的表，继而在表激活事件中激活WebBrowser，在WebBrowser定位到网页。 1：在workbook启动时激活该webbrowser所在的worksheet Private Sub Workbook_Open() ThisWorkbook.Worksheets("web").Activat...
用VB下载文件
zhangke的专栏
02-09 3742
Option Explicit Dim sRestTime    As LongDim dblDownloadSpeed     As LongDim FileHeaderLen As LongDim StartPos As LongDim FileSizeByte As LongDim SaveFileName As StringDim StartTime As VariantDim Fil
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值