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

最新推荐文章于 2022-05-22 21:32:07 发布

预见未来to50

最新推荐文章于 2022-05-22 21:32:07 发布

阅读量928

点赞数

CC 4.0 BY-SA版权

分类专栏：数据可视化（Spotfire_Visualization）

本文链接：https://blog.youkuaiyun.com/hpdlzu80100/article/details/80836302

数据可视化（Spotfire_Visualization）专栏收录该内容

92 篇文章

订阅专栏

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

代码：

#If Win64 Then
    Private 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 LongLong
    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) As Long
    
#Else
    Private 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 If

Private Sub Form_Load()
  Dim url As String, path As String, isdown As Long
  url = "https://img-blog.youkuaiyun.com/20180627011001543?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2hwZGx6dTgwMTAw/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70"
  path = ThisWorkbook.path & "\test2.jpg"
  Debug.Print path
  isdown = URLDownloadToFile(0, url, path, 0, 0)
  If isdown = 0 Then MsgBox "下载成功" Else MsgBox "下载失败"
End Sub