Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Andrey
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Создание массива из элементов другого массива, массив, состоящий из элементов другого массива с одинаковым порядковым номером
 
#
29.03.2016 18:00:25
Спасибо, а что касается того, чтобы массив "c" заполнялся элементами из b, как правильно прописать?
Изменено: Andrey - 29.03.2016 18:04:15
 
Перейти    
Создание массива из элементов другого массива, массив, состоящий из элементов другого массива с одинаковым порядковым номером
 
#
28.03.2016 23:00:38
Стыдновато было, на форуме не так давно, а тема уже вторая)
 
Перейти    
Создание массива из элементов другого массива, массив, состоящий из элементов другого массива с одинаковым порядковым номером
 
#
28.03.2016 22:55:38
Счел ваши прошлые замечания о несовпадении названия темы с сутью уместными и здесь)
 
Перейти    
Создание массива из элементов другого массива, массив, состоящий из элементов другого массива с одинаковым порядковым номером
 
#
28.03.2016 22:46:58
Доброго времени суток, столкнулся с небольшой проблемой. Если кто-нибудь осведомлен - помогите, пожалуйста)
Есть таблица значений, выведенная из текстового файла, теперь требуется озаглавить каждый столбец этой таблицы, названия столбцов находятся в двумерном массиве "b", в строках с 3ей по 26ю, одинаковым порядковым номером элемента - вторым. Каким образом мне задать массив "c", чтобы поместить туда вторые элементы указанных строк массива "b".
То, как я делаю это сейчас - заканчивается ошибкой "type mismatch"
Код прилагаю, заранее спасибо, с уважением.
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 23:18:51
Hugo, Огромное вам спасибо! Вот в чем дело :)
Нет слов, неделю думал)
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 23:10:04
Прошу прощения за навязчивость, я этот лист имел ввиду, а вы? (файл скачал)
а касаемо стандартного импорта знаем, но оптимизировать тоже не получалось
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 22:51:01
в файле есть же лист LC1 названный? или я не так понял
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 22:47:50
Цитата
The_Prist написал: поставьте проверку
Спасибо, провёл, увеличил массив в длину на 1, проверку проходит, но, увы, всё та же ошибка
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 22:42:33
да, конечно)
вот файл и демонстрация того, что цикл проходит, т.е. до момента начала цикла все должно быть верно
файл довольно объемный, я залил в vk, надеюсь, скачивается) http://vk.com/doc7750120_437369120
Изменено: Andrey - 23.03.2016 22:42:49
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 22:29:48
Цитата
The_Prist написал: vbCrLf
Пробовал, все то же самое)
Ошибку выдает спустя множественного срабатывания цикла, вот проверил, зажав F8, все 80000х26 раз нажимать физически не смогу :)
 
Перейти    
Ошибка при записи текстового файла в таблицу "subscript out of range", При попытке занесения информации из dat-файла в таблицу выдает ошибку
 
#
23.03.2016 22:01:27
Здравствуйте, уважаемые форумчане!
По роду деятельности пришлось столкнуться со следующей задачей, есть текстовый файл, в котором 80000 строк, в каждой из которых записаны 26 численных значений через запятую. Требовалось написать макрос, чтобы этот файл преобразовывался в таблицу в экселе.
Я совершенно новый человек в ВБА и все, к чему смог прийти, так это код, представленный ниже. При запуске, после выбора файла, выдает ошибку "subscript out of range", пытался разрулить сам, но, видимо нужен чей-то более профессиональный взгляд. Помогите, пожалуйста, исправить ошибку)
Заранее прошу прощения, если это где-то обсуждалось, я не нашел)
Код
Sub Main()
    Dim a()
    Dim i
    Dim file_name, txt
    Dim rw, cl
'------------------------
    file_name = Application.GetOpenFilename("COMTRADE Files (*.dat), *.dat")
    txt = CreateObject("scripting.filesystemobject").OpenTextFile(file_name, 1, True).ReadAll
    rw = Split(txt, vbNewLine)
    cl = Split(rw(0), ",")
    ReDim a(1 To UBound(rw), 1 To UBound(cl) + 1)
    For i = LBound(rw) To UBound(rw)
        cl = Split(rw(i), ",")
        For j = 0 To UBound(cl)
            a(i + 1, j + 1) = cl(j)
        Next
    Next
    Sheets("LC1").Cells(1, 1).Resize(UBound(a), UBound(a, 2)) = a
End Sub
 
Перейти    
Страницы: 1
Наверх