Excel VBA打开外部文件异常：不同用户运行条件不一致

原代码的核心问题 #

你的代码存在几个语法和逻辑错误，这是导致不同用户出现不一致问题的根源：

• 对象赋值缺失Set关键字：VBA中给Workbook这类对象变量赋值必须使用Set，原代码xbook = WorkBooks.open(...)会触发运行时错误，部分用户可能开启了错误忽略才没直接报错，进而导致异常表现。
• 路径引用错误：WorkBooks.open("path", ...)里的"path"是字符串字面量，不是你定义的path变量，Excel会尝试打开名为path.xlsx的文件（而非你实际要打开的xbook.xlsx），不同用户的当前工作目录不同，就会出现有的用户能“碰巧”找到文件，有的不行的情况。
• 未声明变量：path变量没有用Dim声明，若用户的VBA环境开启了Option Explicit（强制变量声明），代码会直接报错。

修正后的代码（含多人使用场景处理） #

针对多人共享文件的场景，需要先检查目标文件是否已打开，同时处理文件锁定的情况，以下是完善后的代码：

Option Explicit ' 强制变量声明，避免隐式错误

Sub CopyRowsToTargetWorkbook()
    Dim xbook As Workbook
    Dim targetPath As String
    Dim isFileOpen As Boolean
    
    ' 目标文件路径，建议使用绝对路径，避免当前目录差异问题
    targetPath = ThisWorkbook.Path & "\xbook.xlsx" ' 假设目标文件和当前工作簿同目录
    
    ' 检查目标文件是否已打开
    isFileOpen = False
    For Each xbook In Workbooks
        If xbook.FullName = targetPath Then
            isFileOpen = True
            Exit For
        End If
    Next xbook
    
    ' 如果未打开，尝试打开文件，处理只读/锁定情况
    If Not isFileOpen Then
        On Error Resume Next ' 捕获文件打开错误（比如被锁定）
        Set xbook = Workbooks.Open( _
            Filename:=targetPath, _
            UpdateLinks:=False, _
            ReadOnly:=True, ' 多人使用时优先以只读打开，避免锁定冲突
            IgnoreReadOnlyRecommended:=True _
        )
        On Error GoTo 0
        
        ' 若打开失败，提示用户
        If xbook Is Nothing Then
            MsgBox "无法打开目标文件：" & targetPath & vbCrLf & "请确认文件未被其他用户独占锁定。", vbExclamation
            Exit Sub
        End If
    End If
    
    ' 这里添加你的行复制逻辑，示例：复制当前工作表的第1-10行到目标工作簿的Sheet1
    ThisWorkbook.ActiveSheet.Rows("1:10").Copy _
        Destination:=xbook.Sheets("Sheet1").Range("A1")
    
    ' 按需保存并关闭目标文件（如果是我们打开的，才关闭）
    If Not isFileOpen Then
        ' 若以只读打开，直接Save会报错，可根据需求调整为另存为逻辑
        ' xbook.SaveAs ThisWorkbook.Path & "\xbook_副本.xlsx"
        xbook.Close SaveChanges:=False
    End If
    
    Set xbook = Nothing ' 释放对象
End Sub

关键优化点说明 #

• 绝对路径使用：用ThisWorkbook.Path获取当前工作簿所在目录，拼接目标文件路径，避免不同用户当前目录不一致导致的文件找不到问题。
• 已打开文件检查：遍历已打开的工作簿，避免重复打开引发错误，同时直接引用已打开的文件。
• 只读模式优先：多人共享场景下，以只读模式打开可减少文件锁定冲突，若需要写入，可在复制完成后提示用户手动保存，或使用另存为逻辑。
• 错误捕获：添加错误处理，在文件无法打开时给出明确提示，避免用户看到晦涩的VBA错误。

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