Dim fl As String = ProjectPath & "Attachments\附件地址\" & format(date.today,"D") & "个人表彰统计表.xlsx"
Dim Book As New XLS.Book(ProjectPath & "Attachments\【模板】表彰（个人）统计表.xlsx")
book.AddDataTable("表彰","智慧党建","Sel ect * from {表彰} where 表彰类别='个人表彰'")
Book.Build()
Book.Save(fl)
Dim fl1 As String = ProjectPath & "Attachments\附件地址\" & format(date.today,"D") & "集体表彰统计表.xlsx"
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\【模板】表彰（集体）统计表.xlsx")
book1.AddDataTable("表彰","智慧党建","Sel ect * from {表彰} where 表彰类别='集体表彰'")
Book1.Build()
Book1.Save(fl1)
上述代码会生成两个不同的统计表
怎么利用代码将两个甚至多个不同的excel表合并成一个《表彰统计表》文件，然后将对应的个人表彰统计表 集体表彰统计表 成为这个文件里面的两个工作表内容呢？
加好友 
发短信
Post By：2021/5/7 16:15:00 [只看该作者]
