主题：[求助]问2个关于“导出exl”时遇到的问题？

下面有两段“导出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()

Dim ex As new Exporter
ex.SourceTableName = "生产量统计表_生产量统计表"
ex.NewTableName = "名称_" & Format(Date.Today,"yyMMDD")
ex.FilePath = "d:\date\生产量统计表.xls"
ex.Format="Excel"
ex.Export()

 

谢谢狐爸，我这儿有客服小庞提供的一段估计更适合我，呵呵：

 

Dim ex As new Exporter
ex.SourceTableName = "生产量统计表_生产量统计表"
Dim dstr2 As String = Date.Now.Tostring().replace("-","").replace(" ","").replace(":","")
ex.FilePath = "d:\date\生产量统计表_" & dstr2 & ".xls"
ex.Format="Excel"
ex.Export()