Ошибка "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")
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д