Active-x 引用的 VBA 问题

Question

我想为打印机编写一个控件。打印机的界面是“Weber Packaging Solutions”的“Legitronic”软件。在 vba-activex 手册中写道，实例构建如下：

后期绑定：

Dim MyLabel as Object
Set MyLabel = CreateObject("Legi32.label")

对于早期绑定：

Dim MyLabel as Legi32.label
Set MyLabel = CreateObject("Legi32.label")

我提到了接口的类型库（我的同事告诉我这是正确的参考，因为他过去也做过一个程序并且对他有用）

但每次我执行程序时都会收到运行时错误“429”：ActiveX 组件无法创建对象。

我使用带有宏 (.xlsm) 的 Microsoft Excel 工作表的 IDE

你知道这个问题或知道如何解决它吗？

提前致谢！

Answer 1

我同意 flohdieter 的早期绑定。

早期绑定。 尝试设置对您尝试使用的组件的引用 (Legi32)。 如果您无法分配对该对象的引用，您可能必须使用 RegSvr32 ./somefile 在您的系统上注册它。你的同事可能已经在他的电脑上注册了这个。但你没有。 一旦你可以设置一个引用，你应该能够编译你的代码并成功使用 New - 除非组件有其他问题。

后期装订。 这是您使用 CreateObject("SomeName") 的地方。 当您创建一个组件时，您为其分配一个存储在注册表中的 Id。由于版本不同，此 ID 可能会发生变化。您可能安装了不同的版本并且正在寻找错误的名称。 我建议你做的是打开注册表并搜索“Legi32”并查看 Id 名称末尾是否有 1 或其他任何内容。