VBA Excel-2010如何向外部工作簿添加数据

Sub AddDataToExternalWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim externalWB As Workbook
    Dim externalWS As Worksheet
    Dim lastRow As Long
    
    ' 设置外部工作簿路径和文件名
    Set externalWB = Workbooks.Open("C:\Path\To\ExternalWorkbook.xlsx")
    
    ' 设置外部工作簿中的工作表
    Set externalWS = externalWB.Worksheets("Sheet1")
    
    ' 设置当前工作簿和工作表
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet1")
    
    ' 获取当前工作簿中最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 将数据复制到外部工作簿中的下一行
    ws.Range("A1:B" & lastRow).Copy externalWS.Range("A" & externalWS.Cells(externalWS.Rows.Count, "A").End(xlUp).Row + 1)
    
    ' 关闭并保存外部工作簿
    externalWB.Close SaveChanges:=True
    
    ' 清空对象引用
    Set externalWS = Nothing
    Set externalWB = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub