VBA代码报错：如何将外部文件J3值粘贴到活动单元格？

问题根源 #

打开外部文件时，Excel会自动将活动窗口切换到新打开的工作簿，此时ActiveCell的引用会指向新工作簿中的单元格，而非你最初在「FY24 Evaluations」工作表选中的目标单元格。这直接导致原代码要么报错，要么粘贴到错误位置。

修正后的代码 #

Sub Get_Data_From_File()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Dim TargetCell As Range ' 保存预先选中的目标单元格
    
    Application.ScreenUpdating = False
    
    ' 校验当前选中工作表是否为目标表
    If ActiveSheet.Name <> "FY24 Evaluations" Then
        MsgBox "请先切换到「FY24 Evaluations」工作表并选中目标单元格！"
        GoTo Finish
    End If
    Set TargetCell = ActiveCell ' 提前锁定目标单元格引用
    
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your evaluation template", FileFilter:="Excel Files (*.xls*),*xls*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        ' 直接赋值替代复制粘贴，效率更高且无剪贴板干扰
        TargetCell.Value = OpenBook.Sheets(1).Range("J3").Value
        OpenBook.Close False
    End If
    
Finish:
    Application.ScreenUpdating = True
End Sub

关键改进点 #

• 提前锁定目标单元格：在打开外部文件前就将用户选中的活动单元格存入TargetCell变量，避免切换工作簿后丢失正确引用。
• 增加工作表校验：防止用户在错误工作表中执行宏导致无效操作。
• 替换复制粘贴为直接赋值：比剪贴板操作更高效，还能避免剪贴板内容被覆盖的问题。

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