专家坐堂-如果打开word报表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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))。