Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)


  共有2998人关注过本帖树形打印复制链接

主题：[求助]RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)
帅哥哟，离线，有人找我吗？
奶粉大王
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：167 积分：1803 威望：0 精华：0 注册：2018/1/26 16:11:00 		[求助]RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)  发帖心情 Post By：2021/1/27 11:17:00 [显示全部帖子]

RPC 服务器不可用。 (异常来自 HRESULT:0x800706BA)

这个报错是什么情况。

代码如下：循环超过2个文件就报错。1个或者2个文件则没问题

Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    try
        If FileSys.DirectoryExists(ProjectPath & "Attachments") = False Then
            FileSys.CreateDirectory(ProjectPath & "Attachments/")
        End If
        For Each filename As String In dlg.FileNames
           
            Dim doc = app.Documents.Open(fileName)
            Dim nr As Row = Tables("sdf").AddNew
            Dim t = doc.Tables(1)
 

            Dim text = t.Cell(1, 3).Range.Text.ToString()
            text = text.Substring(0, text.Length - 2)
nr("第一列") = text

 
 
            Doc.Close
        Next
    catch ex As exception
        msgbox(ex.message)
    finally
        app.Quit
    End try
End If
 回到顶部
帅哥哟，离线，有人找我吗？
奶粉大王
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：167 积分：1803 威望：0 精华：0 注册：2018/1/26 16:11:00 		  发帖心情 Post By：2021/1/27 11:41:00 [显示全部帖子]

在使用方法Word._Document origDoc = wordApp.Documents.Open(ref lastFile, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing);时 出现上述错误。

网上看了一些解决方法都不行。


最终发现是因为在前面有些方法执行了wordDoc.Close(oMissing, oMissing, oMissing);  wordApp.Quit(oMissing, oMissing, oMissing);的类似操作。我最终在Word._Document origDoc = wordApp.Documents.Open(ref lastFile, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing); 上面加了一句wordApp = new Microsoft.Office.Interop.Word.Application();

分析：

因为执行了wordApp.quit所以导致了wordApp空。调用wordApp = new Microsoft.Office.Interop.Word.Application();对wordApp重新生成对象，所以OK了。



FOXTABLE中如何处理？
 回到顶部
帅哥哟，离线，有人找我吗？
奶粉大王
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：167 积分：1803 威望：0 精华：0 注册：2018/1/26 16:11:00 		  发帖心情 Post By：2021/1/27 11:54:00 [显示全部帖子]

可以了 谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询