主题：请教EXCEL报表自动重命名

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()