直接执行这段,看是否报错
Dim Book As New XLS.Book(ProjectPath & "Attachments\打印单.xls") Dim fl As String = ProjectPath & "Reports\打印单.xls" Book.Build() Book.Save(fl)