以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Excel与VBA  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186057)
--  作者：wcs
--  发布时间：2023/4/4 10:24:00
--  Excel与VBA
请问下，这个代码，与OFFICE365的兼容性：
  • Public _app As MSWord.Application \'定义一个WORD对象
  • Public _app1 As MSExcel.Application \'定义一个EXCEL对象


  • _app = New MSWord.Application \'定义一个WORD对象
  • Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog 用于打开Word文件
  • Dim wdn As WinForm.Label = e.Form.Controls("Label3")
  • dlg.Filter= "Word文件|*.docx" \'设置筛选器
  • dlg.MultiSelect = False
  • dlg.Title = "打开Word文档"
  • If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
  •     _app.Documents.Open(dlg.FileName) \'打开这个WORD文件
  •     _app.Visible = True
  •     wdn.Text = dlg.FileName
  • End If

上述代码，与OFFFICE各版本兼容，但365是个例外，会出现如下错误：

检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件失败，原因是出现以下错误: 80040154 没有注册类....。

请问这是个兼容性的问题吗？如何解决？
--  作者：有点蓝
--  发布时间：2023/4/4 10:50:00
--  
试试卸载安装32位版本的365
--  作者：wcs
--  发布时间：2023/4/4 18:34:00
--  
64位的，还没有兼容？
电脑是64位的，可以安装32位的365吗？
--  作者：有点蓝
--  发布时间：2023/4/4 20:28:00
--  
可以安装32位的365。Foxtable本来就是32为的，目前没有办法升级到64位