生成excel以后,用vba把内容拷贝一份就行,如代码
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
Ws.UsedRange.Copyws.Cells(Ws.UsedRange.Rows.Count+5,1).Selectws.paste
app.Visible = True