以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果打开word报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188263)

--  作者:lihe60
--  发布时间:2023/9/11 10:24:00
--  如果打开word报表
电脑上安装了wps,就不能使用word报表。上次有个帖子能解决这个问题,这是哪个帖子?
--  作者:有点蓝
--  发布时间:2023/9/11 10:53:00
--  
这个?http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=187175
--  作者:lihe60
--  发布时间:2023/9/11 11:18:00
--  
是的,具体如何操作?我现在没有解决这个问题。
--  作者:有点蓝
--  发布时间:2023/9/11 11:22:00
--  
试试这个:http://www.foxtable.com/webhelp/topics/3735.htm,还不行就卸载wps了
--  作者:lihe60
--  发布时间:2023/9/11 13:29:00
--  
Dim app As New MSWord.Application
Dim eApp As New MSExcel.Application
app.DisplayAlerts = False
eApp.DisplayAlerts = False

Try
    Dim doc = app.Documents.Open(str)
    If app.ActiveWindow.Selection.Find.Execute("table") Then
        Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "Reports\\报表.xls")
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("e-to-w") \'指定要复制的工作表
        Ws.UsedRange.Font.Size = 12
        Ws.UsedRange.Copy 
        app.ActiveWindow.Selection.paste
        app.Visible = True
    End If
Catch ex As exception
    msgbox(ex.message)
    app.quit
Finally
    eApp.quit
End Try


这是代码,有下面这个提示


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:自定义函数,e-w
详细错误信息:
调用的目标发生了异常。
无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。此操作失败的原因是对 IID 为“{000208D5-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 加载类型库/DLL 时出错。 (异常来自 HRESULT:0x80029C4A (TYPE_E_CANTLOADLIBRARY))。

--  作者:有点蓝
--  发布时间:2023/9/11 13:32:00
--  
卸载干净office,然后重装office,如果还不行,只能卸载wps了