使用VBA下载本地服务器zip文件时本地正常服务器报错

• 硬编码路径不兼容
  你代码中将存储路径硬编码为C:\Users\omayorga\Downloads\，服务器环境大概率不存在对应用户名的目录，或是运行VBA的服务账号没有该路径的读写权限。可替换为动态获取路径的写法适配不同环境：

destinationFile_local = Environ("USERPROFILE") & "\Downloads\" & fileName([A7])

也可以先指定服务器上已确认有权限的固定路径测试，确认是否是路径权限问题。

• API声明不兼容服务器Office版本
  URLDownloadToFile属于Windows API函数，需要先在模块顶部声明才可调用，32位和64位Office的声明格式不同。如果服务器安装的是64位Office，使用32位声明会直接调用失败，可使用兼容写法：

' 放在模块最顶部，所有过程之前
#If VBA7 Then
    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As Long
#Else
    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
#End If

• 服务器网络访问限制
  服务器的防火墙、安全组、内网访问策略可能拦截了A7单元格对应下载链接的访问请求，可先在服务器的浏览器中直接访问该下载链接，确认是否可以正常下载文件。如果无法直接访问，需要先联系运维放开对应地址的访问权限。
• 错误码定位
  可以修改提示代码，直接弹出downloadStatus的返回值，不同返回值对应不同错误类型，可以快速缩小排查范围：

If downloadStatus = 0 Then
    MsgBox "Downloaded Succcessfully!"
Else
    MsgBox "Download failed, error code: " & Hex(downloadStatus)
End If

常见错误码参考：

• 0x800C0008：无法访问对应URL资源，链接无效或被拦截
• 0x80070005：目标路径无写入权限
• 0x80070002：目标路径不存在

内容的提问来源于stack exchange，提问作者Oscar Mayorga