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

[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, который всегда замедляет процесс. Но хотелось бы вразумительно вооружиться теорией.