VBA从SharePoint下载xlsm文件损坏的原因及解决方法

• 文件损坏和xlsm格式无关，URLDownloadToFile 不区分xlsx、xlsm这类Office文件格式，只要获取到正确的二进制文件流就能正常保存。
• 核心问题是你填入的URL是SharePoint的网页预览地址，不是文件直链：当前URL包含Doc.aspx、mobileredirect=true这类网页路由参数，请求后返回的是在线预览页面的HTML内容，不是Excel文件本身，保存成.xlsm后缀自然无法打开。

1. 替换正确的文件下载地址
   去掉现有URL里/_layouts/15/开头的所有后缀参数，拼接成文件在SharePoint文档库的绝对路径，格式参考：https://talanx.sharepoint.com/sites/LiabilityGlobalRisk/[对应文档库路径]/Test.xlsm?download=1，末尾加?download=1参数可以强制触发文件流返回，避免跳转到预览页。

   验证方法：把拼接好的地址粘贴到浏览器无痕窗口，如果直接弹出文件下载弹窗，就是可用的直链；如果跳转到登录页、打开在线预览界面，说明地址仍不正确。

2. 补充下载结果判断
   原有代码没有校验URLDownloadToFile的返回值，接口调用失败也会生成空文件/错误文件，需要加返回值判断，返回值为0才代表下载成功。
3. 修正后的可测试代码：

Option Explicit
#If VBA7 Then
    Private Declare PtrSafe 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
#Else
    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
#End If

Sub GetFile()
    Dim urlName  As String
    ' 替换为你自己校验通过的文件直链
    urlName = "https://talanx.sharepoint.com/sites/LiabilityGlobalRisk/[你的文档库实际路径]/Test.xlsm?download=1"
    Dim fName As String
    fName = "J:\TEST\Test.xlsm"
    Dim downloadResult As Long
    downloadResult = URLDownloadToFile(0, urlName, fName, 0, 0)
    If downloadResult <> 0 Then
        MsgBox "下载失败，错误码：" & downloadResult
    End If
End Sub

• 额外注意：URLDownloadToFile默认不会自动携带浏览器的登录凭据，如果直链校验正确但还是下载失败，需要在Windows凭据管理器中添加对应SharePoint站点的登录账号密码，保证接口请求可以通过身份验证。

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