如何从单词表检索到数组

Question

我想从单词表中检索数据，并将它们存储到数组中。例如，提取要存储在tablName 中的名称列

这是我的桌子

---------------------------------
| N° |  name  |  Bond  |  Delay |
---------------------------------
|1   |        |        |        |
---------------------------------
|2   |        |        |        |
---------------------------------
|3   |        |        |        |
---------------------------------

这是我的数组表名

-----------------------------
|      |      |      |      |
-----------------------------

这是我的代码：

Dim i As Integer
Dim tablName() 
If ActiveDocument.Tables.Count > 0 Then
For i = 2 To n
tablName(i - 2) = ActiveDocument.Tables(1).Cell(i, 2).Range.Text
Next
MsgBox ActiveDocument.Tables(1).Cell(3, 2).Range.Text  
MsgBox tablName(0)            /* The error appears here: subscript out of range error */

问题是什么，我搜索但没有找到问题

Answer 1

我找到了答案当你创建一个数组((时，它是无量纲的，所以你必须重新定义数组，以便与以下内容一起使用：

Dim tabLots As Variant
tabLots = Array()
ReDim tabLots (nb_lot)

这是我的最终代码

Dim tabLots As Variant
tabLots = Array()
ReDim tabLots (nb_lot)
For i = 2 To n + 1
tabLots (i - 2) = ActiveDocument.Tables(1).Cell(i, 2).Range.Text
Next i