ms-access - 以编程方式添加引用

Question

我们有一个在某些客户端上不起作用的 Access 应用程序，主要是因为引用被破坏了。例如，当您使用 access runtime 2007 启动 access 应用程序但安装了版本 2003 或 2000 的 office 时，就会发生这种情况。左/右/修剪等功能然后停止工作。

我认为解决此问题的唯一方法是以编程方式检查安装了哪个 Office 版本并以编程方式添加引用，因为在这些异构环境中，我们无法控制用户安装的内容。具体来说，我需要引用 Excel 和 Word 的 Microsoft Office 对象库。

但我既没有所有 Office 版本的指南，也不知道如何自动检查它们。

Answer 1

所以，是的，这个答案有点晚了，但万一有人像我在寻找答案一样偶然发现这个问题，我想出了以下代码来添加一个 excel 引用，它似乎工作正常，也在 MDE/同意!

If Dir("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.exe") <> "" And Not refExists("excel") Then
    Access.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.exe")
End If
If Dir("C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.exe") <> "" And Not refExists("excel") Then
    Access.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.exe")
End If
If Dir("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.exe") = "" And Dir("C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.exe") = "" Then
    MsgBox ("ERROR: Excel not found")
End If

并且 refExists 引用了以下函数:

Private Function refExists(naam As String)
Dim ref As Reference
refExists = False
For Each ref In References
    If ref.Name = naam Then
        refExists = True
    End If
Next
End Function