'下载文件相关函数申明
Private Declare 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
Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Sub down()
nUrl = "下载链接"
localFilename = ThisWorkbook.Path & "\文件名.拓展名"
lngRetVal = URLDownloadToFile(0, nUrl, localFilename, 0, 0)
If Dir(localFilename, 16) <> Empty Then '文件存在时执行
DeleteUrlCacheEntry nUrl '清除缓存
Set wb = Workbooks.Open(localFilename) '打开文件
'业务逻辑代码
wb.Close 0 '关闭文件0不保存
Kill localFilename '删除文件
End If
End Sub
'64位兼容参考https://msdn.microsoft.com/library/ee691831.aspx
VBA非登陆下载Excel文件并处理例子
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 背景: 阅读新闻 12C CDB模式下RMAN备份与恢复 [日期:2016-11-29] 来源:Linux社区 作...
- 你可以学习的设计研究 In this lecture, we’re going to talk about try...
