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

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

vba
Sub CopyRowsBetweenWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    '打开源工作簿
    Set sourceWorkbook = Workbooks.Open("C:\源工作簿路径.xlsx")
    
    '打开目标工作簿
    Set targetWorkbook = Workbooks.Open("C:\目标工作簿路径.xlsx")
    
    '设置源工作表和目标工作表
    Set sourceWorksheet = sourceWorkbook.Sheets("Sheet1")
    Set targetWorksheet = targetWorkbook.Sheets("Sheet2")
    
    '复制第一行数据
    sourceWorksheet.Rows(1).Copy targetWorksheet.Rows(1)
    
    '保存并关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
    
    '释放对象变量
    Set sourceWorksheet = Nothing
    Set targetWorksheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorkbook = Nothing
    
    MsgBox "行数据已成功复制到目标工作簿。"
End Sub