Ограничение Excel (до 32768 строки)

[Garik_]

Добрый всем вечер.
Не поможет ли кто советом.

При чтении текстового файла в Excel заполнение происходит только до 32768 строки. Как обойти это ограничение на одном листе?
Офис 2003.

отрывок кода :

........
Open "c:\file.txt" For Input As #f

While Not EOF(f)
i = i + 1
Line Input #f, str
Arr() = Split(str, sDelimeter)

For j = 0 To UBound(Arr())
Sheets("list").Cells(i + 1, j + 2).Value = Arr(j)
End If
Next j

Wend
Close #f
.........

Заранее Спасибо.

[Serge_Bliznykov]

шутить изволите?
ответ - НИКАК.
Как можно обойти ограничение, если это ограничение заложено разработчиками в данное ПО?!

Либо разбивайте на разные листы/книги/диапазоны,
либо переходите на MS Excel 2007 (там 1 048 576 строк — Технические характеристики и ограничения Microsoft Excel).

[Teslenko_EA]

Здравствуйте Garik_.
В "отрывок кода" не попало объявление используемой переменной i, а проблема скорее всего в ней, тип Integer действительно ограничен размером 32768. У меня два совета: поменяйте тип переменной на Long - в ближайшем будущем таблицы Excel не достигнут его размера, откажитесь от такого способа заполнения листа Excel - применяя конструкцию с использованием библиотеки ADO, подобные проблемы не возникнут и скорость выполнения задачи будет радовать.
Евгений.

[Garik_]

Спасибо за советы. Дело было с переменной.

to Teslenko_EA:

откажитесь от такого способа заполнения листа Excel - применяя конструкцию с использованием библиотеки ADO, подобные проблемы не возникнут и скорость выполнения задачи будет радовать

...я для моего примера (см.код выше) код с использованием библиотеки ADO для заполнения Excel листа как будет выглядеть ? Дело в том, что я новичок, недавно начал изучение VBA.

Заранее спасибо.

[Teslenko_EA]

Выложите "кусочек" Вашего текстового файла, для изучения структуры, и тогда можно будет подумать о создании конструкции.
Евгений.

[Garik_]

Выложите "кусочек" Вашего текстового файла, для изучения структуры, и тогда можно будет подумать о создании конструкции.
Евгений.

Decem;TUBE;/04002;29 Oct 2009;OPEN;GOOD;
Janu;TUBE;/04002;27 Oct 2009;0JA;OPEN;GOOD;
Ferbu;HOLE;/04005;25 Oct 2009;0JA;;;NO_info;
Aprlir;TUBE;/04003;21 Oct 2009;0JA;OPEN;
Mercu;TUBE;unknown; 30 Aug 2005;unset;;
Flawe;TUBE;unknown;30 Aug 2005;unset;;
Toniru;TUBE;unknown;30 Aug 2005;unset;;

разделитель ";"
обыкновенное чтение в excel текстового файла, только строчек много, около 40000-50000.

Спасибо.

[Teslenko_EA]

Garik_, глядя на Ваши данные думаю - возможно я погорячился и вполне достаточно просто отрыть текстовый файл в Excel?

Sub openTXT()
Const sDir = "c:\", sFile = "FileName", sExt1 = ".txt", sExt2 = ".xls"
Workbooks.OpenText Filename:=sDir + sFile + sExt1, Origin:=1251, _
    StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True
    ActiveWorkbook.SaveAs Filename:=sDir + sFile + sExt2
    'ActiveWorkbook.Close False
End Sub

Евгений.

[Garik_]

Спасибо за совет.