Word VBA如何获取当前用户名适配多用户邮件合并数据源路径？

方案1：用相对路径关联同目录数据源（推荐） #

既然你已经把Word文档和Excel数据源放在每个用户的独立文件夹里，最可靠的方式是基于当前文档所在路径自动关联数据源，不需要硬编码用户名或固定路径。

复制文档并批量设置数据源的宏（你自己运行）

Sub 批量复制并配置邮件合并()
    Dim mainDoc As Document
    Set mainDoc = ActiveDocument
    
    ' 替换为你的三位同事的目标文件夹路径
    Dim userFolders As Variant
    userFolders = Array( _
        "C:\Users\Sofie\Documents\邮件合并\", _
        "C:\Users\John\Documents\邮件合并\", _
        "C:\Users\Anna\Documents\邮件合并\" _
    )
    
    Dim targetFolder As Variant
    Dim newDoc As Document
    
    For Each targetFolder In userFolders
        ' 复制主文档到目标文件夹
        mainDoc.SaveCopyAs targetFolder & "邮件合并模板.docx"
        ' 打开副本
        Set newDoc = Documents.Open(targetFolder & "邮件合并模板.docx")
        
        ' 关联当前文件夹下的Excel数据源（替换为你的数据源文件名）
        newDoc.MailMerge.OpenDataSource _
            Name:=targetFolder & "邮件数据源.xlsx", _
            ConfirmConversions:=False, _
            ReadOnly:=False, _
            LinkToSource:=True, _
            Format:=wdOpenFormatAuto, _
            SubType:=wdMergeSubTypeExcel
        
        ' 保存并关闭副本
        newDoc.Save
        newDoc.Close
    Next targetFolder
End Sub

给文档添加自动关联宏（同事打开时自动执行）

如果担心同事移动文件夹导致路径失效，可以给每个副本添加AutoOpen宏，打开时自动关联同目录数据源：

Sub AutoOpen()
    Dim dataSourcePath As String
    ' 获取当前文档所在文件夹路径
    dataSourcePath = ThisDocument.Path & "\邮件数据源.xlsx"
    
    ' 尝试关联数据源（忽略已关联的报错）
    On Error Resume Next
    ThisDocument.MailMerge.OpenDataSource _
        Name:=dataSourcePath, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        Format:=wdOpenFormatAuto, _
        SubType:=wdMergeSubTypeExcel
    On Error GoTo 0
End Sub

方案2：动态获取当前用户名构建路径 #

如果必须使用用户目录路径，可以用Environ("Username")获取当前登录的用户名，动态拼接路径：

Sub 关联当前用户数据源()
    Dim currentUser As String
    currentUser = Environ("Username")
    
    Dim dataSourcePath As String
    ' 替换为你的数据源相对用户目录的路径
    dataSourcePath = "C:\Users\" & currentUser & "\Documents\邮件合并\邮件数据源.xlsx"
    
    ActiveDocument.MailMerge.OpenDataSource _
        Name:=dataSourcePath, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        Format:=wdOpenFormatAuto, _
        SubType:=wdMergeSubTypeExcel
End Sub

注意：这种方式依赖Windows用户目录默认是C:\Users\，如果是域环境或自定义用户路径，可能会失效，所以优先推荐方案1。

解决你之前的访问报错问题 #

你直接写同事用户名路径报错，是因为你的账号没有访问同事用户文件夹的权限。用方案1的方式，每个副本关联自己文件夹内的数据源，就不会涉及跨用户路径访问的问题。

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