День добрый.

Считываю по 1 ячейке в цикле.

ExcelПриложение = Новый COMОбъект("Excel.Application");
ExcelФайл = ExcelПриложение.WorkBooks.Open(Объект.РасположениеФайлаАртикула)
ExcelЛист = ExcelФайл.Sheets(1);
........
Пока Истина Цикл
Ячейка = ExcelЛист.Cells(СчетчикСтрок, 2).Value; - занимает 90% времени
........

Чтение одной ячейки занимает 0,7 сек. Учитывая что ячеек больше 1000 затягивается надолго. Можно как то ускорить выборку? Может не через COM объект выбирать данные.

В общем как можно ускорить загрузку.

Знаешь кто сейчас должен придти в тему?:)

а гугл что говорит?

Если файл xlsx, то сам бог велел использовать нативное считывание

(0) Это COM. Технология медленная. Используй ODBC ну или ADO.NET.
Еще можно екселевский файл выгрузить в CSV и работать с ним как с текстом.

Ну или (3)

+(3) "нативное" = "native xlsx" http://catalog.mista.ru/public/300092/

(3) +1
Там только при условии, что лист один

через Range.value получаем ком-массив, из него получаем массив массивов и работаем с ним

(3) (4) Можно пример?

Скопируй в 1с через табл.документ и наслаждайся

(8) Заранее неизвестно сколько нужно строк. Может 5, может 5000

ADO

(9) Смотри в (6) там куча примеров разных.

(7) Нет, Я считывают с любого листа любые ячейки

(11) range, он разный бывает... например .usedRange - тоже range

(10) Артикулы в экселе идут с маской типа ххх-хххххх-хх. При копировании в таб док лишние символы получаются типа ххх-хххххх-6?8

Всем спасибо за советы, буду смотреть.

(16) Это когда ТабДок.Прочитать(твойексель.xls) лишние символы?

(11) скопируй ВСЕ СТРОКи

Если хочется читать быстрее, то формируешь Range, который хочешь прочитать, и читаешь через Value - на выходе SafeArray двумерный с данными ячеек - через границы процесса едет один раз - скорость вас поразит.

(20) а писАть также можно?

(21) А почему нет ? Только сначала создать массив, а потом засунуть. По крайней мере, VbScript так работает, но там массив изначально встроен: ReDim a(2,4)

(20) Можно поподробнее как это сделать?
Попробовал считать ExcelЛист.Range("A1:T40").Value. На выходе просто значения всех ячеек без привязки к их местоположению (нет ни номера строки, ни колонки).
И ещё как считать весь лист без указания диапазона?

Быстро загрузить можно так

XLSОбъект = Новый COMОбъект("Excel.Application");
XLSОбъект.Visible       = Ложь;
XLSОбъект.DisplayAlerts = Ложь;
    
Book = XLSОбъект.Workbooks.Open(ПутьКФайлуЗагрузки, , Истина);

Sheet = Book.Sheets(Лист);

МассивДанных = Sheet.UsedRange.Value2.Выгрузить();


(24) Действительно очень быстро. Спасибо!