将excel中的数据中台的所有内容追加到数据源的vba代码

可以使用以下VBA代码将Excel中的数据追加到数据源：

Sub AppendDataToDataSource()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim dataSource As Workbook
    Dim dataSourceSheet As Worksheet
    Dim lastRow As Long
    
    '打开数据源
    Set dataSource = Workbooks.Open("C:\Data\DataSource.xlsx")
    Set dataSourceSheet = dataSource.Sheets("Sheet1")
    
    '打开当前工作簿和工作表
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")
    
    '获取最后一行的行号
    lastRow = dataSourceSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    '将数据追加到数据源末尾
    ws.Range("A2:C" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Copy _
        Destination:=dataSourceSheet.Range("A" & lastRow + 1)
    
    '关闭工作簿和数据源
    wb.Close savechanges:=False
    dataSource.Close savechanges:=True
End Sub

这段代码会将当前工作簿中名为"Sheet1"的工作表中的数据追加到名为"DataSource.xlsx"的数据源文件中的"Sheet1"工作表中。注意，需要将代码中的文件路径和工作表名称替换为实际的路径和名称。