以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel报表服务器出现意外情况  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120029)
--  作者：qaz17909
--  发布时间：2018/6/5 22:00:00
--  excel报表服务器出现意外情况
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
--  作者：有点蓝
--  发布时间：2018/6/5 22:08:00
--  
卸载重新安装完整版的office，不要安装绿色版、简易版之类的。

如果有wps，卸载掉，不能使用wps编辑word模板

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
try
    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
catch ex As Exception
    msgbox(ex.message)
    finnaly
    App.quit
End try
--  作者：qaz17909
--  发布时间：2018/6/5 22:18:00
--  
还是不行，而且多了个错误提示，说"Reports\\工作流转单.xls"已打开，请先关闭之！
我没用wps，而且office也是完整版，以前都没这个问题的
--  作者：有点蓝
--  发布时间：2018/6/5 22:30:00
--  
到任务管理器把所有打开的Execl进程关闭，在重新测试
--  作者：qaz17909
--  发布时间：2018/6/5 23:01:00
--  
还是提示错误：“服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))”
--  作者：有点蓝
--  发布时间：2018/6/5 23:16:00
--  
说明office还是有问题，换一个版本的office重新安装，如果安装64位的，改为安装32位的
--  作者：qaz17909
--  发布时间：2018/6/6 9:34:00
--  
可以了，谢谢！