vba - VBA 循环中的变量

Question

我正在尝试使用循环运行 VBA 应用程序，并使用名称取决于我在循环中的位置的变量。特别像

Dim i As Integer
i = 1
Dim varname() As String
while i < 50
varname(i) = asdasd
i = i + 1
Wend

不知何故，它无法读取 varname(i) 或其他任何内容。它报告下标超出范围。
我不知道问题是什么，也许有人可以帮助我吗？

Answer 1

您需要先为阵列提供容量。

Sub max()

Dim i As Integer
i = 1

Dim varname() As String
ReDim varname(49) '<---- There

While i < 50
varname(i) = asdasd
i = i + 1
Wend


End Sub

这是 VBA 阵列的一个很好的资源：http: //msdn.microsoft.com/en-us/library/office/aa164778 (v=office.10).aspx