以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  生成execl 报表的时候顺便另存为副本的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31029)
--  作者：jinzhengbe
--  发布时间：2013/4/9 7:27:00
--  生成execl 报表的时候顺便另存为副本的方法
有谁知道生成excel报表的时候的同时 把生成的报表另存为副本的方法方法么？ 谢谢
--  作者：jinzhengbe
--  发布时间：2013/4/11 7:00:00
--  对啊， 在其他的位置在复印一份做备份用
对啊， 在其他的位置在复印一份做备份用（当然名字要用日期做了）
--  作者：唐尸三摆手
--  发布时间：2013/4/11 8:27:00
--  

\'楼上试试保存两次到不同的位置不就达到要求了

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

dim Copyfl as string = "C:\\" & format(date.today(),"yyyyMMdd") & ".xls"
Book.Save(Copyfl ) \'保存工作簿副本