从UserForm传递到VBA中的Module的变量数组为空/空

Question

我有一个带列表框的用户窗体，供用户选择值。 这些值通过对基本模块的函数调用填充到UserForm_Initialize() ，该函数返回一个数组作为变量。 这没有问题。

如果用户选择某些值并按下按钮，则按钮Click事件将调用基本模块中的另一个函数，以传递用户输入的数组并计算事物。 这根本不起作用。 基本模块中接收到的值始终不存在（甚至不为null，但我不知道正确的VBA术语，根本没有）。

---

到目前为止我尝试过的事情：

• 传递所有参数ByVal：没什么不同
• 使用全局共享变量：这确实有效，但是如果我要做的就是将单个数组传递给单个函数，我不想依靠它们。 这也将状态引入必须管理的代码中，尤其是在重用该功能时
• 通过完全限定符访问功能：没什么不同。 找到并正确执行了函数，但是参数变量为空，因此以后执行计算时函数会失败。

---

我的问题是： 如何在不依赖全局变量且不丢失数组内容的情况下，将数组从UserForms传递到Modules（反之亦然）？

这个问题可能与有关将字符串从Form传递到Module的问题有关 ，但是在我的情况下（使用全局变量）接受的答案无济于事。

Answer 1

当按照注释中的要求添加代码时，我偶然发现了可以打印数组内容的事实，但是在调试器中它什么也不会显示，大小为0。

大小问题是因为我使用Len(array)而不是Application.CountA(array)并且在代码中还有一个剩余的On error resume next ，这意味着不会引发任何错误，并且大小始终设置为零。 ..这就是奇怪行为的原因。