Быстрый способ вывода данных в Excel с картинками

[Zlojbarsuk]

Здравствуйте!
Есть необходимость ускорить вывод данных в Excel. Отчёт содержит картинки.
Перечитал много тем на форуме, касающихся вывода данных в Excel. Сделал вариант через SpreadSheets. Работает на порядок быстрее. Но этот способ, к сожалению, не позволяет выводить картинки.
Быть может кто-нибудь подскажет быстрый способ вывода данных в Excel с картинками? :-)

[lev]

я реализовывал вот так, через класс Image:

    Image           Image;
    COM             comWorksheet;
    COM             comShapes;
    COM             Range;
    ;

    while select tmpTableForImage
    {
        Image   = new Image();
        Image.setData(tmpTableForImage.Image);
        Image.resize(130,100,3);
        comWorksheet    = excel.ActiveSheet();
        comShapes       = comWorkSheet.shapes();
        Range           = excel.Range(tmpTableForImage.NumRow, tmpTableForImage.NumCol);
        Range.select();
        Image.clipboardCopy();
        excel.WorkSheetCur().pasteSpecial(0);

        excel.Range(tmpTableForImage.NumRow, tmpTableForImage.NumCol).select();
        excel.Selection().RowHeight(78);
    }

excel - это объект приложения Excel с которым работаем.

[lev]

забыла написать, поле Image, во временной табличке куда я собирал картинки, типа Container.

[lev]

вот инициализация временной таблицы, вытаскивал картинку из файла:

    FilePath    pathFileLoc;// путь к файлу
    Bindata     binData;
    ;

    binData     = new BinData();
    tmpTableForImage.clear();
    tmpTableForImage.NumCol = colPict;// столбец для вставки
    tmpTableForImage.NumRow = startRow + lineNum - 1; // строка для вставки
    if (binData.loadFile(pathFileLoc))
        tmpTableForImage.Image = binData.getData();

    tmpTableForImage.insert();

[Zlojbarsuk]

я делаю вывод картинки аналогичным образом... но нужно ускорить этот процесс(желание не моё)...
Сейчас скорость такая: 400 строк выводятся за 1,5 минуты...

[lev]

Цитата:

Сообщение от Zlojbarsuk

я делаю вывод картинки аналогичным образом... но нужно ускорить этот процесс(желание не моё)...
Сейчас скорость такая: 400 строк выводятся за 1,5 минуты...

Странно, у меня намного быстрее, с учетом того что картинки выводятся в отчет, у которого более 50 столбцов секунд 15-20. Класс выполняется на клиенте.

[Gustav]

visible(true) для Excel, конечно, в самом конце делаете? Если нет, то сделайте в самом конце.

Еще можно для Excel перед циклом поставить Application.ScreenUpdating(false), а после - Application.ScreenUpdating(true). Даже при visible = false это дает некоторую экономию по времени.

[Zlojbarsuk]

приложение делаю видимым по окончании выгрузки...

[Gustav]

Поскольку мне неоткуда почитать картинки из таблицы, набросал джоб, выводящий в файл 400 фрагментов экрана (image.captureScreen). Время работы 2-3 секунды.

static void Job98(Args _args)
{
    ComExcelDocument_RU doc = new ComExcelDocument_RU();
    Image   image = new Image();

    COM     xlApp;
    COM     wbook;
    COM     activeSheet;
    COM     range;
    int     i, timeStart;
    ;

    timeStart = timenow();

    doc.NewFile('',false);
    wbook = doc.getComDocument();

    xlApp = wbook.Parent();
    activeSheet = xlApp.ActiveSheet();

    range = activeSheet.Range('B1');

    xlApp.ScreenUpdating(false);
    for (i=1;i<=400;i++)
    {
        image.captureScreen(0+(i-1)*2, 0+(i-1)*2, 300+(i-1)*2, 100+(i-1)*2);
        image.clipboardCopy();

        range.RowHeight(78);

        //range.Select();
        //activeSheet.Paste();
        range.pasteSpecial(0);

        range = range.Offset(1,0);
    }
    xlApp.ScreenUpdating(true);

    doc.visible(true);

    box::info(strFmt('Всего секунд: %1', timenow()-timeStart));
}

P.S. Удалось избавиться от Range.Select (см.коммент.строки), поэтому теоретически должно быть еще быстрее на какие-то проценты.

Опять в упор не понимаю, что означает конструкция pasteSpecial(0) применительно к Range (не к Worksheet!). Ну, нет там такой подпольной константы! По логике должна быть какая-то -4104 = xlPasteAll, но с ней валится.... А с 0 работает! Во дела... В каких же недокументированных анналах это прописано?

Что-то подобное мы уже обсуждали здесь: Параметры pastespecial()

[Zlojbarsuk]

Спасибо всем за помощь! :-)

[Gustav]

Цитата:

Сообщение от Gustav

Опять в упор не понимаю, что означает конструкция pasteSpecial(0) применительно к Range (не к Worksheet!). Ну, нет там такой подпольной константы! По логике должна быть какая-то -4104 = xlPasteAll, но с ней валится.... А с 0 работает! Во дела... В каких же недокументированных анналах это прописано?

Похоже, дело не в Excel. Успешно работают следующие "пустые" варианты Аксапты:

range.pasteSpecial( 0                             );
range.pasteSpecial( 01\01\1900                    );
range.pasteSpecial( false                         );
range.pasteSpecial( ''                            );
range.pasteSpecial( 'какая-то фигня непонятная...');
range.pasteSpecial( COMArgument::NoValue          );
range.pasteSpecial( COMVariant::createNoValue()   );

Кто-нибудь может дать объяснение? Классно, что это работает, потому что в этом случае нет необходимости в использовании Range.Select, который всегда замедляет процесс. Но хотелось бы вразумительно вооружиться теорией.