'下载文件相关函数申明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 LongPublic Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As LongSub 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 IfEnd Sub'64位兼容参考https://msdn.microsoft.com/library/ee691831.aspx
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!