Excel VBA在两个工作簿之间复制单元格

Sub CopyCellsBetweenWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    ' 打开目标工作簿
    Set destinationWorkbook = Workbooks.Open("目标工作簿路径")
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set destinationWorksheet = destinationWorkbook.Worksheets("目标工作表名称")
    
    ' 复制源工作表中的单元格到目标工作表
    sourceWorksheet.Range("源单元格范围").Copy destinationWorksheet.Range("目标单元格范围")
    
    ' 关闭工作簿并保存更改
    sourceWorkbook.Close SaveChanges:=False
    destinationWorkbook.Close SaveChanges:=True
End Sub