如何通过读取单元格值实现VBA跨工作簿复制粘贴？

我原本用以下VBA代码实现跨工作簿复制粘贴：

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

Set wsCopy = Workbooks("SourceWB.xlsm").Worksheets("SourceWS")
Set wsDest = Workbooks("DestWB.xlsm").Worksheets("DestWS")

lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsDest.Range("A1:E" & lDestLastRow).ClearContents
wsCopy.Range("A1:E" & lCopyLastRow).Copy _
  wsDest.Range("A1")

但我希望从当前工作簿的单元格中读取源工作簿、源工作表、目标工作簿、目标工作表的名称（例如Sheet1的A5为SourceWB.xlsm、B5为SourceWS，A6为DestWB.xlsm、B6为DestWS），以适配这些名称变化的情况。我尝试了以下代码但运行失败，请问该如何实现？

Set wsCopy = Workbooks(A5).Worksheets(B5)
Set wsDest = Workbooks(A6).Worksheets(B6)

直接写A5、B5的写法是错误的，VBA无法识别这种裸单元格引用，必须明确指定当前工作簿的具体工作表来读取单元格内容。另外，建议增加基础的错误检查，避免因工作簿未打开、单元格为空等情况导致代码崩溃。

修正后的完整代码 #

Dim wsConfig As Worksheet ' 存储配置信息的工作表
Dim sourceWBName As String
Dim sourceWSName As String
Dim destWBName As String
Dim destWSName As String
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

' 指定存储配置的工作表，比如Sheet1
Set wsConfig = ThisWorkbook.Worksheets("Sheet1")

' 从单元格读取配置信息
sourceWBName = wsConfig.Range("A5").Value
sourceWSName = wsConfig.Range("B5").Value
destWBName = wsConfig.Range("A6").Value
destWSName = wsConfig.Range("B6").Value

' 基础错误检查
If sourceWBName = "" Or sourceWSName = "" Or destWBName = "" Or destWSName = "" Then
    MsgBox "配置单元格不能为空，请检查Sheet1的A5、B5、A6、B6单元格内容"
    Exit Sub
End If

On Error Resume Next ' 捕获工作簿未打开的错误
Set wsCopy = Workbooks(sourceWBName).Worksheets(sourceWSName)
Set wsDest = Workbooks(destWBName).Worksheets(destWSName)
On Error GoTo 0

If wsCopy Is Nothing Or wsDest Is Nothing Then
    MsgBox "指定的工作簿或工作表不存在，请检查配置内容，确保源/目标工作簿已打开"
    Exit Sub
End If

' 执行复制粘贴逻辑
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsDest.Range("A1:E" & lDestLastRow).ClearContents
wsCopy.Range("A1:E" & lCopyLastRow).Copy wsDest.Range("A1")

' 释放对象变量
Set wsCopy = Nothing
Set wsDest = Nothing
Set wsConfig = Nothing

关键说明 #

• 使用ThisWorkbook指代当前运行代码的工作簿，避免因激活其他工作簿导致的引用错误
• 先将单元格值读取到字符串变量中，再用于引用工作簿和工作表，代码更清晰且便于调试
• 增加了空值检查和工作簿/工作表存在性检查，提升代码的健壮性
• 最后释放对象变量，避免内存泄漏

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