VBA将行从一个工作簿复制到另一个工作簿

Sub CopyRowsBetweenWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("源工作簿路径")
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("目标工作簿路径")
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围（要复制的行）
    Set sourceRange = sourceWorksheet.Range("A1:A10") ' 例如复制A1到A10行
    
    ' 设置目标范围（要粘贴的位置）
    Set targetRange = targetWorksheet.Range("A1") ' 例如粘贴到目标工作表的A1单元格
    
    ' 复制源范围到目标范围
    sourceRange.Copy targetRange
    
    ' 关闭工作簿并保存更改
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub