VBA 从一个Excel文件复制一行数据到另一个Excel文件

以下是两种不同的方法，可以从一个Excel文件复制一行数据到另一个Excel文件：

方法1: 使用Copy与Paste方法

Sub CopyRow()
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim sourceRow As Integer
    Dim targetRow As Integer
    
    ' 打开源文件
    Set sourceWB = Workbooks.Open("C:\source.xlsx")
    Set sourceWS = sourceWB.Worksheets("Sheet1")
    
    ' 打开目标文件
    Set targetWB = Workbooks.Open("C:\target.xlsx")
    Set targetWS = targetWB.Worksheets("Sheet1")
    
    ' 复制源文件中的第3行数据到目标文件中的第5行
    sourceRow = 3
    targetRow = 5
    sourceWS.Rows(sourceRow).Copy Destination:=targetWS.Rows(targetRow)
    
    ' 关闭文件并释放资源
    sourceWB.Close SaveChanges:=False
    targetWB.Close SaveChanges:=True
    Set sourceWS = Nothing
    Set targetWS = Nothing
    Set sourceWB = Nothing
    Set targetWB = Nothing
End Sub

方法2: 使用Range方法

Sub CopyRow()
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim sourceRow As Integer
    Dim targetRow As Integer
    Dim sourceRange As Range
    
    ' 打开源文件
    Set sourceWB = Workbooks.Open("C:\source.xlsx")
    Set sourceWS = sourceWB.Worksheets("Sheet1")
    
    ' 打开目标文件
    Set targetWB = Workbooks.Open("C:\target.xlsx")
    Set targetWS = targetWB.Worksheets("Sheet1")
    
    ' 复制源文件中的第3行数据到目标文件中的第5行
    sourceRow = 3
    targetRow = 5
    Set sourceRange = sourceWS.Rows(sourceRow)
    sourceRange.Copy
    targetWS.Rows(targetRow).PasteSpecial xlPasteAll
    
    ' 关闭文件并释放资源
    sourceWB.Close SaveChanges:=False
    targetWB.Close SaveChanges:=True
    Set sourceWS = Nothing
    Set targetWS = Nothing
    Set sourceWB = Nothing
    Set targetWB = Nothing
End Sub

这两种方法都是打开两个Excel文件，然后复制某一行数据到另一个Excel文件中。方法1使用了Copy与Paste方法，而方法2使用了Range方法。使用哪种方法取决于您的具体需求和个人喜好。