以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]问2个关于“导出exl”时遇到的问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27246)
--  作者：fengwenliuyan
--  发布时间：2012/12/26 11:02:00
--  [求助]问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()
--  作者：狐狸爸爸
--  发布时间：2012/12/26 11:22:00
--  
Dim ex As new Exporter
ex.SourceTableName = "生产量统计表_生产量统计表"
ex.NewTableName = "名称_" & Format(Date.Today,"yyMMDD")
ex.FilePath = "d:\\date\\生产量统计表.xls"
ex.Format="Excel"
ex.Export()
--  作者：fengwenliuyan
--  发布时间：2012/12/26 14:08:00
--  
以下是引用狐狸爸爸在2012-12-26 11:22:00的发言：
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()