| Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。 '下载文件相关函数申明
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
Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。
|
