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))。
加好友 
发短信
Post By：2023/9/11 10:24:00 [只看该作者]
