VBA非登陆下载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, ByVa...

'下载文件相关函数申明
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文件并处理例子的下载地址：

本地下载

Excel 文本连接符&，多单元格文本连接 使用图解教程

多单元文本连接思路：利用辅助列多次合并，移动时不要把空引用位置落下。Excel公式：文本连接符的使用用判断灵活显示内容IF(条件,成立时显示,不成立时显示)用判断灵活显示内容