Question

我正在尝试在VBA中创建一个用于单词的宏来浏览文档并获取文本格式的每个实例，并将其输入到表的不同行中。为此，我有一个循环遍历此格式的每个实例，并将其添加到队列中，并将队列中的每个项目放在表中的不同单元格中，但是当我运行程序时，我在< / p>

Imports System.Collection.Queue

表示“编译错误：找不到方法或数据成员”，它不会让我使用程序的队列元素。程序的其余部分都运行正常。我假设这是因为VBA无法访问System.Collection.Queue库。在那里我可以访问VBA中的队列函数或以不同的方式实现此程序而不使用队列吗？

Answer 1

Dim q
Set q = CreateObject("System.Collections.Queue")

q.enqueue "A"
q.enqueue "B"
q.enqueue "C"

Debug.Print q.peek '>> "A"

Do While q.Count > 0
    Debug.Print q.dequeue
Loop

Word VBA system.collections.queue问题

1 个答案: