Поговорим об ADO

[Gustav]

Тоже не воспроизвелось

static void Job298(Args _args)
{
    #CCADO

    COM rng  = SysExcelApplication::construct().workbooks().add().worksheets().itemFromNum(1).range('A1').comObject();
    COM rst  = new COM('ADODB.Recordset');
    COM flds = rst.Fields();
    COM fld;
    int i;

    flds.Append('MyReal', #adDouble);
    rst.Open();

    fld = flds.Item('MyReal');

    for (i=1; i<=10; i++)
    {
        rst.AddNew();
            fld.Value(100 + i/10);
        rst.Update();
    }
    rng.CopyFromRecordset(rst);
    COM::createFromObject(rng.Application()).Visible(true); // отобразим Excel
}

На чистом листе Excel не воспроизводится. Где-то у вас форматирование всё же выполняется, наверное...

[Roman N. Krivov]

Цитата:

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

На чистом листе Excel не воспроизводится. Где-то у вас форматирование всё же выполняется, наверное...

Точно не воспроизводится.
А меня в шаблоне в ячейке указан формат "Число". И если передавать как строку - всё работает. Но уже второй день бьюсь над этим. Пришлось передавать поля типа "Строка"

[Gustav]

Я обычно adDouble не использую, а использую для adCurrency.
Конечно, на файл шаблона бы взглянуть... Хотя бы на тот его фрагмент, куда пишется adDouble.
Можно выложить?

[Roman N. Krivov]

Цитата:

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

Я обычно adDouble не использую, а использую для adCurrency.
Конечно, на файл шаблона бы взглянуть... Хотя бы на тот его фрагмент, куда пишется adDouble.
Можно выложить?

Выложил результат работы и шаблон

[Gustav]

Роман, у меня два вопроса:

1. Рекордсет создаете с учетом всех колонок, попадающих в область бланка? Т.е. у вас должно быть много фиктивных и немного содержательных - т.е. получается 16 содержательных где-то из 85 всего.
2. Как вставляете новые строки? Сразу всё необходимое кол-во перед исходной 19-й строкой? Потом дополнительно еще формат этой исходной распространяете на добавленные?

[Roman N. Krivov]

Цитата:

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

Роман, у меня два вопроса:

1. Рекордсет создаете с учетом всех колонок, попадающих в область бланка? Т.е. у вас должно быть много фиктивных и немного содержательных - т.е. получается 16 содержательных где-то из 85 всего.
2. Как вставляете новые строки? Сразу всё необходимое кол-во перед исходной 19-й строкой? Потом дополнительно еще формат этой исходной распространяете на добавленные?

1. Рекордсет имеет поля под все столбцы, т.е. 16 значемых и 69 "резервных"
2. Строки добавляются скопом с помощью следующей функции:

   protected void insertRows(int _fromRow,
                   int _toRow,
                   int _fromWorkSheet = 1,
                   int _offset        = 1,
                   int _numOfCopies   = 1,
                   int _toWorkSheet   = 1)
   {
       COM         comRows,
                   comWorkSheet,
                   comRow, comRowTarget, selection;
       COMVariant  comRowVariant, selVariant;
       ;
   
       if (! _numOfCopies)
           return;
   
       if (! comDocument)
           throw error(strFmt("@DIS6401", "Excel.Application"));
   
       comRow = this.findRange(strFmt("%1:%2", _fromRow, _toRow));
       comRow.copy();
   
       comRowTarget = this.findRange(strFmt("%1:%2", _toRow+ _offset, _toRow+ _offset + _numOfCopies - 1));
       comRowTarget.select();
       comRowTarget.insert();
   
       comWorkSheet  = this.getWorkSheet(_toWorkSheet);
       comRows = comWorkSheet.cells();
       comRows = COM::createFromVariant(comRows.item(1));
       comRows.select();
       comExcelApplication.cutCopyMode(false);
   }

При копировании строк нарушается формат ячеек. Самое интересное, он нарушается только при копировании с помощью COM, так как написав тоже самое в VBA всё отлично

[Gustav]

Цитата:

Сообщение от Roman N. Krivov

При копировании строк нарушается формат ячеек. Самое интересное, он нарушается только при копировании с помощью COM, так как написав тоже самое в VBA всё отлично

Имеется в виду, что разъединяются объединенные ячейки? Тоже замечал такую вещь. Это бывает и в самом Excel, когда, например, вручную копируешь 1-ю строку в строки 1:5 - ячейки разваливаются и в копиях, и в оригинале, но если копировать 1-ю в 2:5 (казалось бы, конечное состояние должно быть одинаково при любом из этих способов - ан нет!) , то во всех пяти строках имеем нормальное объединение ячеек, как в оригинальной 1-й строке.

И как боретесь? В коде что-то отрабатывает или вручную? На картинке-то у вас вроде нормальный вид объединенных ячеек...