Количество строк 30000, количество колонок 17, цикл отрабатывает быстро, но строка сохранения очень долго, ждал 10 минут и завершил сеанс, что не так делаю?

МассивКОМ = Новый COMSafeArray("VT_VARIANT", КоличествоКолонок, КоличествоСтрок);
    Для инд = 0 По КоличествоСтрок - 1 Цикл
        СтрокаТаблицы = ТаблицаЗаказы[инд];
        
        Для счКолонок = 1 По КоличествоКолонок - 1 Цикл
            МассивКОМ.SetValue(счКолонок - 1, инд, СтрокаТаблицы[счКолонок]);
        КонецЦикла;
    КонецЦикла;
    
    ЛистXls.Range(ЛистXls.Cells(1,1), ЛистXls.Cells(КоличествоСтрок,КоличествоКолонок)).Value = МассивКОМ;

выгрузите 5 строк
и узнаете, что не так

(1) 1000 строк и 17 колонок за 2.5 секунды выгружаются, а 30000 и 17 колонок, больше 10 минут

(2)

выгружайте

30 раз по 1000 строк

И птица как на зло нет, он писал что все летает

Запись в Excel: как быстрее?

(5) 65000 строк всего(

(6)
в условии задачи в (0)
дано 30000 строк

(7) Как цикл себя поведет, если у меня будит 27500 строк  и я разобью их на 1000?

Для XlsЛист = 0 По КоличествоСтрок/1000 Цикл
  МассивКОМ = Новый COMSafeArray("VT_VARIANT", КоличествоКолонок, КоличествоСтрок);
      Для инд = 0 По 1000 Цикл
          СтрокаТаблицы = ТаблицаЗаказы[инд];
        
          Для счКолонок = 1 По КоличествоКолонок - 1 Цикл
              МассивКОМ.SetValue(счКолонок - 1, инд, СтрокаТаблицы[счКолонок]);
          КонецЦикла;
      КонецЦикла;
    
      ЛистXls.Range(ЛистXls.Cells(1,1), ЛистXls.Cells(КоличествоСтрок,КоличествоКолонок)).Value = МассивКОМ;
КонецЦикла;

Маня помогай, я знаю, ты знаешь))

http://forums.kuban.ru/f1040/zapis-_cherez_ado_v_excel-4444966.html

(10) Через Ado пробовать?

Стандартные методы Табличного документа почему не устраивают?

(12) Это как?

У меня 2007 офис установлен, говорят можно больше 65000 строк записывать, но подключение то идет как к 2003?

(14) Так у него есть режим совместимости.

25 000 строк записываются очень долго, но метод перебора мне понравился, очень быстро работает

Ап

Если КоличествоСтрок = 10000 - строка  ЛистXls.Range(ЛистXls.Cells(1,1), ЛистXls.Cells(КоличествоСтрок,КоличествоКолонок)).Value = МассивКОМ; отрабатывает за 2 секунды

А если больше, то 10+ минут

Разбил запись по 1000 строк, ругается на МассивКОМ.SetValue(счКолонок - 1, инд, СтрокаТаблицы[счКолонок]); Индекс находится за границами массива

Для XlsЛист = 0 По (КоличествоСтрок/1000) Цикл
        МассивКОМ = Новый COMSafeArray("VT_VARIANT", КоличествоКолонок, 1000);
        Для инд = XlsЛист*1000 По ((XlsЛист+1)*1000) - 1 Цикл
            СтрокаТаблицы = ТаблицаЗаказы[инд];
            
            Для счКолонок = 1 По КоличествоКолонок - 1 Цикл
                МассивКОМ.SetValue(счКолонок - 1, инд, СтрокаТаблицы[счКолонок]);
            КонецЦикла;
        КонецЦикла;
        
        ЛистXls.Range(ЛистXls.Cells((XlsЛист+1)*1000,1), ЛистXls.Cells(1000,КоличествоКолонок)).Value = МассивКОМ;
    КонецЦикла;

Замер производительности что показывает? Где именно тормозит?

(КоличествоСтрок/1000)
может округлить в большую сторону.. и ошибка

Писал много строк через OLEDB

Посмотрел у себя:
....Value = МассивКОМ; - отрабатывает 50 тыс. строк за 2 сек.

Так что замер в руки и вперед.

(21) Тормозит  ЛистXls.Range(ЛистXls.Cells((XlsЛист+1)*1000,1), ЛистXls.Cells(1000,КоличествоКолонок)).Value = МассивКОМ; Вот на этой строке

(24) А колонок сколько?

(24) У меня в общем итоге 300000 строк в МассивКОМ, 50000 тоже за 2 секунды записывает

(27) 17 колонок, 310 000 строк - 9 сек.
Офис 2013

Ну раз медленно, то записать в (на выбор): табличный документ 1С (и сразу сохранить в xls), dbf,  csv,  потом скормить екселю и форматировать.
Или, как советуют тут - ADO (не пробовал).

Или - кусками, только строку
Для инд = XlsЛист*1000 По ((XlsЛист+1)*1000) - 1 Цикл
поменяй на
Для инд = XlsЛист*1000 По Мин(ТаблицаЗаказы.Количество() -  1, ((XlsЛист+1)*1000) - 1) Цикл

Разбил 30000 строк по 1000 строк, записывается 19000 быстро, 20000 уже долго(30) минут

(0)купи манин загрузчик! Логан надо тоже заправлять чем-то

(30) гг

Пробую через Ado, ошибка при открытии(

СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " +СокрЛП(ИмяФайла) +" ;Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;""";
    
    Connection = Новый COMОбъект("ADODB.Connection");
    Connection.ConnectionString =  СтрокаСоединения;
    
    Попытка
        Connection.Open(); - Вот здесь ошибка
    Исключение
        Сообщить ("Проблемы с подключением к Excel" );
        Возврат;
    КонецПопытки;

Внешняя таблица не имеет предполагаемый формат

(33) excel в процессах висит