请问用如下代码:
Dim Book As New XLS.Book(ProjectPath & "Attachments\MM.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)
App.Visible = True
ShowAppWindow("个人登记表",2)
Ws.PrintPreview
App.Quit
运行出现如下提示
服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))
是啥原因?如何修改?谢谢!!