OneDrive存储的邮件合并VBA用URL路径无法找到文件求助

问题原因 #

该问题由两个核心原因导致：

• Word 邮件合并的OpenDataSource方法原生不支持直接传入SharePoint/OneDrive的HTTP格式URL，直接填写网页链接会无法定位文件
• 硬编码的C盘本地路径是你本地OneDrive同步后的专属路径，其他用户的OneDrive同步根目录与你不一致，因此无法访问

修复方案 #

提供两种适配多用户的实现方式，可根据实际场景选择：

方案1：OneDrive环境变量拼接路径（性能最优，推荐） #

所有安装了OneDrive同步客户端且同步了目标目录的用户，都可以通过系统环境变量自动读取自己设备上的OneDrive根目录，拼接文件的相对路径即可实现通用。
你需要先确认目标文件在OneDrive同步目录下的相对路径，修改后的代码示例如下：

Sub RunMerge()
    Dim wd As Object
    Dim wdocSource As Object
    Dim strWorkbookName As String
    Dim strOneDriveRoot As String
    
    ' 读取当前用户的OneDrive商业版根目录，个人版请改用Environ("OneDriveConsumer")
    strOneDriveRoot = Environ("OneDriveCommercial")
    ' 拼接Excel文件相对路径，替换为文件在你OneDrive根目录下的实际相对路径
    strWorkbookName = strOneDriveRoot & "\personal\carl_stephens_seabourn_co_uk\Documents\Joiners_Docs\Tracker - New.xlsm"
    ' 拼接Word模板文件相对路径
    Dim strDocPath As String
    strDocPath = strOneDriveRoot & "\personal\carl_stephens_seabourn_co_uk\Documents\Joiners_Docs\HR_Email_One_Docs\Visa Mail Merge.docx"
    
    On Error Resume Next
    Set wd = GetObject(, "Word.Application")
    If wd Is Nothing Then
        Set wd = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    
    ' 常量值替换：未引用Word对象库时直接用对应数值，避免报错
    Const wdFormLetters = 0
    Const wdOpenFormatAuto = 0
    Const wdSendToNewDocument = 0
    
    Set wdocSource = wd.Documents.Open(strDocPath)
    
    wdocSource.MailMerge.MainDocumentType = wdFormLetters
    
    wdocSource.MailMerge.OpenDataSource _
        Name:=strWorkbookName, _
        AddToRecentFiles:=False, _
        Revert:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _
        SQLStatement:="SELECT * FROM `V$`"
    
    With wdocSource.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = 1
        End With
        .Execute Pause:=False
    End With
    
    wd.Visible = True
    wdocSource.Close SaveChanges:=False
    
    Set wdocSource = Nothing
    Set wd = Nothing
End Sub

方案2：WebDAV路径适配（无需本地同步） #

如果用户不需要同步OneDrive目录，只要有SharePoint站点访问权限就可以使用，可以把原HTTP URL转换为WebDAV格式路径，转换规则：

• 把URL开头的https://替换为\\
• 域名后添加@SSL\DavWWWRoot
• 把路径里的/替换为\，去掉URL里的:x:/r//:w:/r/这类特殊标识，把%20解码为空格

你给出的Excel文件转换后的WebDAV路径为：
\\carnivalcorp-my.sharepoint.com@SSL\DavWWWRoot\personal\carl_stephens_seabourn_co_uk\Documents\Joiners_Docs\Tracker - New.xlsm
直接把该路径赋值给strWorkbookName即可使用，无需修改其他代码逻辑。 #

注意事项 #

• 所有使用该代码的用户都需要被分配对应OneDrive/SharePoint目录的读取权限
• 如果是在Excel中运行该代码，建议直接使用常量数值代替Word内置常量，避免未引用对象库导致的报错

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