VBA - 如何将 Excel 中的行从一个工作簿复制到另一个工作簿

VBA - 如何将 Excel 中的行从一个工作簿复制到另一个工作簿？

vba
Sub CopyRowsBetweenWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim sourceRow As Range
    Dim targetRow As Range
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("路径\源工作簿.xlsx")
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("路径\目标工作簿.xlsx")
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("源工作表")
    Set targetWorksheet = targetWorkbook.Worksheets("目标工作表")
    
    ' 循环遍历源工作表的每一行
    For Each sourceRow In sourceWorksheet.UsedRange.Rows
        ' 在目标工作表的最后一行后插入新行
        Set targetRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Offset(1)
        ' 将源行的值复制到目标行
        sourceRow.Copy targetRow
    Next sourceRow
    
    ' 保存并关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub