以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教EXCEL报表自动重命名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50594)
--  作者：飞天
--  发布时间：2014/5/9 12:44:00
--  请教EXCEL报表自动重命名
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\QUOTATION.xls")
    Dim fl As String = ProjectPath & "Reports\\QUOTATION.xls"
    Book.Build() \'生成细节区
    Dim s As String = Date.Today
    Book.Save(fl)\'保存工作簿
    Proc.File = fl
    Proc.Start()

希望在每次生成报表时,都根据客户编号+日期进行命名.请问如何实现
[此贴子已经被作者于2014-5-9 12:44:18编辑过]
--  作者：Bin
--  发布时间：2014/5/9 14:36:00
--  
 Dim Book As New XLS.Book(ProjectPath & "Attachments\\QUOTATION.xls")
    Dim fl As String = ProjectPath & "Reports\\" & format(date.today,"yyyy-MM-dd") & "客户编号" & ".xls"
    Book.Build() \'生成细节区
    Dim s As String = Date.Today
    Book.Save(fl)\'保存工作簿
    Proc.File = fl
    Proc.Start()
--  作者：lsy
--  发布时间：2014/5/9 14:48:00
--  

Tables("订单").Filter = "客户 = \'CS01\'"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Book.Build() \'生成细节区
Book.Save(fl.Replace("订单",Tables("订单").Current("客户") & "-" & Format(Date.Today,"yyyyMMdd")))\'保存工作簿
Dim proc As New Process
Proc.File = fl.Replace("订单",Tables("订单").Current("客户") & "-" & Format(Date.Today,"yyyyMMdd"))
Proc.Start()