Экспорт данных из Excel в Word, пока функция

Я пытаюсь экспортировать данные с excel на слово, но что-то не получается при прошивании заявления while. По какой-то причине я получаю сообщение об ошибке в строке ReDim Preserve zPList(zIndex) As personClass , ошибка является 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 

  • Таблица Excel Listobject Вставка строк вызывает ошибку формулы ячейки
  • Как интегрировать диапазон excel в одну таблицу?
  • Совместное использование макросов между excel и word
  • Преобразование таблиц Word в массив Excel
  • Использование Найти в Word из списка в Excel VBA
  • VBA, как вставить текстовую таблицу как картинку (расширенный метафайл) в точку питания?
  • Ссылка на форму слова для Excel
  • Поиск текста в слове и вставка данных после него
  • Как сделать одну форму в текстовом документе открытием нескольких других документов и заполнить идентификационные заголовки в слове / excel?
  • скопируйте таблицу, укажите ее местоположение от excel до word, используя vba
  • Анализ HTML для воссоздания таблиц в документе Word с использованием VBA
  • Давайте будем гением компьютера.