内部函数执行代码:(可以对应的生成gerentongji.xls表内容,但是会有提示下载。)
Dim e As RequestEventArgs = args(0)
Dim Book As New XLS.Book(ProjectPath & "Attachments\【模板】表彰(个人)统计表.xlsx")
book.AddDataTable("表彰","智慧党建","Sele ct * from {表彰} where 表彰类别='个人表彰'")
e.WriteBook(book,"gerentongji.xls",False)
有没有办法直接默认将该gerentongji.xls生成并保存到ProjectPath & "Attachments\附件地址\目录下呢?
且不要弹出什么下载或者任何提示 直接系统静默生成对应的表到对应的目录下
下述代码运行报错:
Dim fl As String = ProjectPath & "Reports\表彰(个人)统计表.xlsx"
Dim Book As New XLS.Book(ProjectPath & "Attachments\【模板】表彰(个人)统计表.xlsx")
book.AddDataTable("表彰","智慧党建","Sel ect * from {表彰} where 表彰类别='个人表彰'")
Book.Build()
Book.Save(fl)
错误提示如下:
此主题相关图片如下:微信图片_20210506110500.png
