'下載文件相關函數(shù)申明
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 '文件存在時執(zhí)行
        DeleteUrlCacheEntry nUrl '清除緩存
        Set wb = Workbooks.Open(localFilename) '打開文件
        '業(yè)務邏輯代碼
        wb.Close 0 '關閉文件0不保存
        Kill localFilename '刪除文件
    End If
End Sub
'64位兼容參考https://msdn.microsoft.com/library/ee691831.aspx

64位兼容參考