excel报表一直都可以的,代码没有经过修改,最近在设置word的打印代码,结果excel报表无法生成了,提示错误:“服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))”
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