VBA打开SharePoint最新xlsm文件报运行时错误52如何解决

问题描述 #

开发用于每日聚合多来源数据的Excel VBA宏时，需要接入SharePoint站点中按周上传的文件，实现宏自动定位目标SharePoint文件夹内最新文件的功能。编写的初始代码运行时触发运行时错误52（Bad name，路径/文件名非法），参考网络方案尝试移除路径中的https:前缀、将正斜杠替换为反斜杠后，代码仍无法正常运行。
初始错误代码如下：

'find & open latest XYZ File
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD As Date

MyPath = "https://company.sharepoint.com/sites/group/Shared%20Documents/Forms/AllItems.aspx?id=%2Fsites%2FMC%5FStockControllersandSupplyChain%2FShared%20Documents%2FGeneral%2FSupply%20Headlines&p=true&ga=1"

'MyPath = Replace(MyPath, "/", "\")        'adaptation attempt for SharePoint folder
'MyPath = Replace(MyPath, "https:", "")  'adaptation attempt for SharePoint folder
MyFile = Dir(MyPath & "*.xlsm")

If Len(MyFile) = 0 Then
    MsgBox "No XYZ files were found...", vbExclamation
    Exit Sub
End If

Do While Len(MyFile) > 0
    LMD = FileDateTime(MyPath & MyFile)
    If LMD > LatestDate Then
        LatestFile = MyFile
        LatestDate = LMD
    End If
    MyFile = Dir
Loop

Workbooks.Open MyPath & LatestFile

错误原因 #

• 代码中填入的MyPath是SharePoint的网页访问地址，包含AllItems.aspx页面路径、URL参数、URL转义字符（%20代表空格、%5F代表下划线），不属于文件系统可识别的文件夹路径，Dir、FileDateTime等原生VBA文件操作函数无法解析这类地址。
• 之前尝试的路径替换逻辑不完整，仅替换斜杠、移除https:前缀，没有按照WebDAV协议规则转换路径格式，也没有剔除多余的页面参数、解码转义字符，因此仍然无法被系统识别。

修复方案 #

第一步：配置可识别的合法路径 #

VBA原生文件函数访问SharePoint文件，必须使用系统支持的WebDAV格式UNC路径，转换规则如下：

• 从原网页URL中提取真实文件夹路径：原URL中id=参数对应的值解码后为/sites/MC_StockControllersandSupplyChain/Shared Documents/General/Supply Headlines，这才是目标文件夹的真实相对路径。
• 按WebDAV规则拼接路径：将开头的https://替换为\\，域名后的.替换为@SSL\，所有正斜杠/替换为反斜杠\，路径末尾添加反斜杠。
  本案例转换完成的合法路径为：
  \\company.sharepoint.com@SSL\sites\MC_StockControllersandSupplyChain\Shared Documents\General\Supply Headlines\

前置校验：把转换后的路径粘贴到Windows资源管理器地址栏，能正常打开文件夹才代表路径有效，需要确保本机已授予SharePoint站点访问权限、系统WebClient服务处于运行状态。
更稳定的替代方案：如果已经把SharePoint文档库同步到本地OneDrive，直接使用本地同步文件夹路径（类似C:\Users\用户名\公司名\站点名\Supply Headlines\）即可，完全不存在路径兼容问题。

第二步：修正后可运行代码 #

'find & open latest XYZ File
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD As Date

' 填入转换完成的合法路径，末尾必须带反斜杠
MyPath = "\\company.sharepoint.com@SSL\sites\MC_StockControllersandSupplyChain\Shared Documents\General\Supply Headlines\"

' 增加路径访问校验，避免直接抛出运行时错误
On Error Resume Next
MyFile = Dir(MyPath & "*.xlsm")
If Err.Number <> 0 Then
    MsgBox "无法访问SharePoint目标文件夹，请检查路径配置、访问权限及WebClient服务状态", vbCritical
    Exit Sub
End If
On Error GoTo 0

If Len(MyFile) = 0 Then
    MsgBox "未找到匹配的xlsm文件", vbExclamation
    Exit Sub
End If

Do While Len(MyFile) > 0
    LMD = FileDateTime(MyPath & MyFile)
    If LMD > LatestDate Then
        LatestFile = MyFile
        LatestDate = LMD
    End If
    MyFile = Dir
Loop

Workbooks.Open MyPath & LatestFile

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