VBA加载项：如何“嵌入”所需的参考库？获得“编译隐藏模块中的错误”发送功能加载到其他用户时，

2019-10-19 02:36发布

我写了一个PowerPoint加载在我的本地计算机上运行良好。然而，当我通过电子邮件发送文件给别人，一下子一半的功能不再工作，并显示编译错误在主题行中列出。

挖一个深一点，它出现的问题是，客户端计算机没有正确的参考图书馆（如Excel的14.0对象库中，Outlook，Access等）。我有这些库编写的加载项的PPTM文件时正确引用，但可以想象的是，当我救了PPTM到一个PPAM文件，参考文库“丢失”不知何故。

有没有人有什么想法？需要注意的是直接添加的参考图书馆的客户端计算机上不会出现帮忙。相反，我需要向客户端发送的基础PPTM文件，添加引用库，然后将该文件保存为直接在客户端计算机上的文件PPAM，这当然是不实际的。那么，如何“嵌入”参考库加载项？

谢谢！

Answer 1:

那么，如何“嵌入”参考库加载项？

你不知道。

替代方案 ：

相反，早期绑定的，使用后期绑定。

早期绑定的示例代码。

这里我们设置到Word XX.XX对象库的引用。

Sub Sample()
    Dim oWrd As Word.Application
    Dim oDoc As Word.Document

    Set oWrd = New Word.Application

    Set oDoc = oWrd.Documents.Open("....")

    '
    '~~> Rest of the code
    '
End Sub

转换上面后期绑定。

在这里，我们不设定基准，但让代码绑定到MS Word中的任何版本存在于目标计算机。

Sub Sample()
    Dim oWrd As Object
    Dim oDoc As Object

    Set oWrd = CreateObject("Word.Application")

    Set oDoc = oWrd.Documents.Open("....")

    '
    '~~> Rest of the code
    '
End Sub

同样，你可以改变你的MS-Excel的代码。