class - 在 VBA 中设置类时编译错误

Question

我从这里复制了代码，但在尝试运行代码时出现错误。

问题出在：

Public NextItem As New queueItem

错误信息是：

user-defined type not defined

我的 VBA 版本不适合这样做还是我做错了什么？

Answer 1

你可能是指这个链接？您提供的那个具有替代实现（使用数组，而不是引用）。

我让它为我工作。脚步：

• 右键单击 VBA 项目文件名，然后转到Insert-> Class Module：

• 单击F4。Properties窗口出现。然后去上课Name，把它改成Queue：

• 复制并粘贴Queue Class您在网站上找到的代码。对类重复上一步和这一步QueueItem（即，插入 a Class Module，命名QueueItem并复制该类模块内的代码）。

• 这一次，插入 aModule使用相同的过程（不是 a Class Module，而是一个简单的Module）。你不需要给你的模块一个名字，Module1就可以了。

• 复制Sub TestQueue()模块内部并运行它。它应该工作。如果你Option Explicit在你的模块上使用，你会得到一个element未定义的错误。所以我们需要定义它： ，在子程序Dim element as Variant的前几条语句下。Dim然后它应该运行。

以上对我有用，让我知道我是否可以更准确，或者将文件发送给你。