调试经验——使用VBA下载网络资源

第一次使用VBA从网上下载了一张图片，挺有意思！哈哈。

代码：

#If Win64 ThenPrivate Declare PtrSafe Sub sleepp Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As LongLong)Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As LongLongPrivate 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) As Long#ElsePrivate Declare Sub sleepp Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As Long)Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
#End IfPrivate Sub Form_Load()Dim url As String, path As String, isdown As Longurl = "https://img-blog.csdn.net/20180627011001543?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2hwZGx6dTgwMTAw/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70"path = ThisWorkbook.path & "\test2.jpg"Debug.Print pathisdown = URLDownloadToFile(0, url, path, 0, 0)If isdown = 0 Then MsgBox "下载成功" Else MsgBox "下载失败"
End Sub

调试经验——使用VBA下载网络资源相关推荐

调试经验——使用VBA在Excel中打开Word文档（Open Word file in Excel with VBA）
VBA的一个强项是可以跨应用操作,特别是在office各程序内部.以下代码实现了在Excel中打开Word文档. 代码: Sub openWord() '在Excel中打开Word文档 ' 'Dim ...
调试经验——使用VBA显示Excel中所有faceId对应的图标（Display all FaceID Icons in Excel with VBA）
需求:在Excel中添加自定义菜单时,为了美观.易用,需要添加一个图标(faceid).那么,有哪些可用的faceid呢?使用以下代码便可查看. 代码: Sub ShowFaceIDs()Dim Ne ...
分享在实际项目中积累的硬件调试经验 - 调试方法，以及常见调试案例
文章目录一.硬件调试的四个目标二.硬件调试心得三.一块新的板子的调试思路四.硬件调试,一些网络资料五.单片机硬件调试中常见的案例(杂记) 往期系列文章: 1.裸机项目开发经验分享 - 完整开 ...
KEIL 调试经验总结
来源:公众号[鱼鹰谈单片机] 作者:鱼鹰Osprey ID :emOsprey 通过前面的多篇文章(已整理成专辑)我们已经了解了很多的 KEIL 调试方法,但是到底该怎么使用这些方法呢?这篇文章将 ...
sja1000调试经验
sja1000调试经验去年年底的时候,一个公司给我打电话,问我最近有没有空,说要请我帮忙做一个基于CAN总这里写代码片线通讯的东西,我去看了看,是一个数据采集系统,下面是一系列数据采集的智能板卡, ...
东方马达步进电机AZM66AK-HS100+AZD-KD调试经验记录
东方马达步进电机AZM66AK-HS100+AZD-KD调试经验记录(20170803YC) 本次总结主要实现的功能如下:用MEXE02软件在步进电机驱动器中设置好控制动作,每个控制动作有一个特定的编 ...
STM32H743多路串口调试经验总结（HAL库）
STM32H743多路串口调试经验总结(HAL库) 一.硬件基础 1.STM3H743核心板 2.自制串口拓展板(控制485收发使用的TDHx01D485H2隔离模块,该模块EN为低电平是发送,高电平 ...
核烧写及UBOOT调试经验总结
在某项目经历了内核移植的全过程某项目沿用FORLINX开发板的uboot及内核版本,项目整体版本虽然稳定但比较旧,在调试过程中遇到不少困难,就本次CID项目内核烧写及UBOOT调试经验总结如下: 一 ...
调试经验——Excel中去除单元格内的换行符（Chr(10)）的四种方法
问题描述: 客户提供的Excel文档格式中,同一属性值,有的单元格有换行符,有的又没有,造成了属性值列表(LOV, List of Value)中存在冗余,给数据分析造成了干扰.所以,需要进行数据清洗 ...
evc++程序的调试经验总结
evc++程序的调试经验总结最近在调试EVC++t程序中,编译的程序,发现以下几个问题: 1.比如出现这种问题,找不到头文件,cannot open include file 'xxxx. ...

调试经验——使用VBA下载网络资源

调试经验——使用VBA下载网络资源相关推荐

最新文章

热门文章