通过VBA将数据发送到另一个工作簿

Sub CopyDataToAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("C:\path\to\source\workbook.xlsx")
    Set sourceSheet = sourceWorkbook.Sheets("Sheet1")
    
    ' 打开目标工作簿
    Set destinationWorkbook = Workbooks.Open("C:\path\to\destination\workbook.xlsx")
    Set destinationSheet = destinationWorkbook.Sheets("Sheet1")
    
    ' 复制数据
    sourceSheet.Range("A1:D10").Copy Destination:=destinationSheet.Range("A1:D10")
    
    ' 保存并关闭工作簿
    destinationWorkbook.Save
    destinationWorkbook.Close SaveChanges:=False
    sourceWorkbook.Close SaveChanges:=False
End Sub