主题：生成execl 报表的时候顺便另存为副本的方法

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

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 ) '保存工作簿副本