主题：excel报表服务器出现意外情况

excel报表代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\工作流转单.xls")

        Dim fl As String = ProjectPath & "Reports\工作流转单.xls"

        Book.Build() '生成细节区

        Book.Save(fl) '保存工作簿

        Dim App As New MSExcel.Application

        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

        Dim Rg As MSExcel.Range = Ws.Cells

        Rg.WrapText = True

        Rg.EntireRow.AutoFit  '自动调整行高

        App.Visible = True