下面有两段“导出exl”的代码,第一个是导出后,直接覆盖之前的exl文件,第二个是导出一次后,必须删除上一次导出的exl文件记录或是修改上一次的名字,才能再次导出。
这个问题怎么解决?才能达到效果:再次导出exl文件,不覆盖之前记录,并自动重命名为“名称_当前时间”,或是导出前提示文件重命名,并予以重命名?
Dim Book As New XLS.Book(ProjectPath & "Attachments\出入库登记.xls")
Dim fl As String = ProjectPath & "Reports\出入库登记.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Dim ex As new Exporter
ex.SourceTableName = "生产量统计表_生产量统计表"
ex.FilePath = "d:\date\生产量统计表.xls"
ex.Format="Excel"
ex.Export()