excel - ReDim Preserve 停止在 Excel VBA 代码中工作

Question

我有一个 Excel VBA 宏，同事们几年来一直在毫无问题地使用它，突然到 12 月 1 日，每个人都收到“运行时错误'9':下标超出范围”错误。下面的代码总结了问题的要点:

Dim before As Long
Dim after As Long
Dim baseInd As Variant
baseInd = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
before = LBound(baseInd)
ReDim Preserve baseInd(1 To 18)
after = LBound(baseInd)

即使在指定数组 baseInd 应该从索引 1 开始之后，它仍然从 0 开始(这里的变量 after 的值为 0，就像之前的变量一样)，这最终导致我的其余代码崩溃。我最近了解了 Option Base 1 指令，但我不能在这里使用它，因为这会导致其他数组出现问题。

再次，这曾经完美地工作过，我不知道为什么突然(2014 年 12 月 1 日)我得到这个错误。有人有想法吗？

谢谢!

Answer 1

根据我们在我公司看到的情况以及经过大量研究，最近发布的 MS KB3003057 安全补丁似乎破坏了 ReDim Preserve 功能。请看 this forum有关其他人如何看待相同问题的更多详细信息。