从excel导出数据到word，while函数

我试图从excel导出数据到word，但在while语句的乞讨中出现了一些问题。 出于某种原因，我得到一个错误在行ReDim Preserve zPList(zIndex) As personClass ，错误是下Subscript out of range 。

有人可以帮忙吗？

 Public Sub GetExcelData(ByRef zPList() As personClass, ByRef zIndex As Integer) Dim tempStr As String tempStr = "" Dim row As Integer row = 2 While tempStr <> "zzz" zindez = zIndex + 1 ReDim Preserve zPList(zIndex) As personClass Set zPList(zIndex) = New personClass Range("A" + CStr(row)).Select zPList(zIndex).fname = ActiveCell.text Range("B" + CStr(row)).Select zPList(zIndex).lname = ActiveCell.text Range("C" + CStr(row)).Select zPList(zIndex).Email = ActiveCell.text Range("D" + CStr(row)).Select zPList(zIndex).phoneN = ActiveCell.text row = row + 1 Range("A" + CStr(row)).Select tempStr = ActiveCell.text Wend End Sub