主题：保存Excel 报表后改名复制

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build() '生成细节区

dim fl2 as string = "ProjectPath & "出库单\" & Tables("出库单").Current("出厂编号") &  "出库单.xls"

FileSys.CopyFile(fl, fl2,True) 怎样改

Dim Proc As New Process '打开工作簿

Proc.File = fl2

Proc.Start()