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