Ошибка "Run-time error "9": Subscript out of range" - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. Программа выводит ошибку "Run-time error "9": Subscript out of range", но не могу понять почему. Помогите пожалуйста.

Сама функция DATfolder2Array

Функция Arrayy2worksheet

Функция ReadTXTfile

Функция CombineArrays

Файлы перевел в .txt для того, чтобы выложить в тему. Они созданы для примера. Реальный массив, который нужно обработать, гораздо больше. Но хотелось бы для начала разобраться с этими файлами.

Решение задачи: «Ошибка "Run-time error "9": Subscript out of range"»

textual
Листинг программы
Sub Загрузка данных из файлов()
    ' папка, в которой будет производиться поиск файлов DAT для обработки
    ПапкаДляФайлов$ = "E:\Data"
 
    Dim ErrorsArray    ' пустой массив для ошибок
 
    ' Считываем данные из всех файлов .DAT в папке в двумерный массив
    DataArr = DATfolder2Array(ПапкаДляФайлов$, 4, "", ErrorsArray)
 
    ' результаты выводим на листы "errors" и  "result" (они должны существовать)
    'Array2worksheet Worksheets("ошибки"), ErrorsArray, _
                    Array("Имя файла", "Номер строки, "Данные из строки")
    
    Array2worksheet Worksheets("результат"), DataArr, _
                    Array("Столбец 1", "Столбец 2", "Столбец 3", "Столбец 4")
End Sub
 
 [/BASIC]
 
Подсвечивает строку: 
[BASIC]Array2worksheet Worksheets("результат"), DataArr, _
                    Array("Столбец 1", "Столбец 2", "Столбец 3", "Столбец 4")

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.8 из 5