Ax2012 и выгрузка в Эксель. Цвет ячейки, вставка формулы

[Sada]

Коллеги, доброго времени суток!!!

Продолжаю неравный бой с выгрузкой в Эксель через XML.

собственно вопросы:
1. Eсть ли метод для раскраски ячейки? Мне что то не по глазам.
2. При выгрузке любой формулы (к примеру, =ЕСЛИ(X8<>"";"x";"")) эксель выгружает именно как строку. Если уже в Экселе встать в ячейку и нажать Энтер или Таб, то формула применяется корректно.

Подскажите пожалуйста как быть. Заранее спасибо!!!

[belugin]

http://msdn.microsoft.com/en-us/libr.../gg278310.aspx

[dech]

Если все делать не через XML, а через семейство классов SysExcel*, можно раскрасить ячейки через класс SysExcelInterior

    xlStyle = xlWorkBook.styles().add("Header");
    xlStyle.interior().color(0x999999);
    xlStyle.font().bold(true);
    xlWorkSheet.range("A1:F1").style("Header");

Проблема №2 отпадает сама.

[Sada]

Цитата:

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

Если все делать не через XML, а через семейство классов SysExcel*, можно раскрасить ячейки через класс SysExcelInterior

    xlStyle = xlWorkBook.styles().add("Header");
    xlStyle.interior().color(0x999999);
    xlStyle.font().bold(true);
    xlWorkSheet.range("A1:F1").style("Header");

Проблема №2 отпадает сама.

увы через XML

[Sada]

Цитата:

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

http://msdn.microsoft.com/en-us/libr.../gg278310.aspx

К Аксапте то это как прикрутить?

вот так вставляется значение

document.insertValue(ComExcelDocument_RU::numToNameCell(1, 3), '=ЕСЛИ(X8<>"";"x";"")');

[belugin]

Цитата:

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

К Аксапте то это как прикрутить?

Подкурочить OXML

[Sada]

это слишком круто для меня

[trud]

в стандарте метода для вставки формулы нет. но его легко сделать аналогично insertValue(скачайте OXML Dev toolkit, он покажет какие теги отвечают за формулу)
особенность заключается в том, что вам помимо вставки формулы необходимо будет и вставлять расчет значения для этой формулы, вычислять автоматически ничего не получится. если этого не сделать Excel при открытии файла будет показывать #error в ячейке

[Sada]

неужели никто не выгружал формулы в XML?

[dech]

Создайте раздел для стилей и затем используйте его:

    <Styles>
      <Style ss:ID="s43">
        <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>
        <Borders>
          <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"
           ss:Color="#000000"/>
          <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"
           ss:Color="#000000"/>
          <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"
           ss:Color="#000000"/>
          <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"
           ss:Color="#000000"/>
        </Borders>
        <Font ss:Bold="1"/>
        <Interior ss:Color="#FFFF99" ss:Pattern="Solid"/>
      </Style>
    </Styles>

  <xsl:template match="*" mode ="Header">
    <Cell ss:StyleID="s43">
      <Data ss:Type="String">
        <xsl:value-of select="."/>
      </Data>
    </Cell>
  </xsl:template>

[ivas]

Попробовал, формулы написанные в тексте excel xml прекрасно работают

<Row>
    <Cell><Data ss:Type="Number">1</Data></Cell>
    <Cell><Data ss:Type="Number">2</Data></Cell>
    <Cell ss:Formula="=RC[-2]*RC[-1]"><Data ss:Type="Number">3</Data></Cell>
</Row>

выводит 2 при открытии

[Sada]

Друзья, мне кажется вы меня не поняли или я не совсем понятно сфомулировал вопрос. У меня есть класс, наследник от XMLExcelReport. В нем в fillBody() я заполняю значения ячеек в столбцах, стобцы динамические, и формулы получается тоже. Зашивать в шаблоне из нельзя. поэтому при вставке формулы в ячейку как значения

document.insertValue(ComExcelDocument_RU::numToNameCell(1, 3), '=ЕСЛИ(X8<>"";"x";"")');

у меня происходит сабж

[dech]

Попробуйте в вашем выражении использовать IF вместо ЕСЛИ и запятую вместо точки с запятой, возможно все дело в этом.

=IF(X8<>"","x","")

[pitersky]

Я не совсем понял насчёт динамических столбцов, но если вы имели в виду, что динамический набор полей вывода, то гораздо проще зашить в шаблон все поля, а потом просто скрывать/удалять ненужные колонки

[Sada]

Цитата:

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

Попробуйте в вашем выражении использовать IF вместо ЕСЛИ и запятую вместо точки с запятой, возможно все дело в этом.

=IF(X8<>"","x","")

проблема не в том на каком языке формула. а в том, что при открытии экселя он не понимает выгруженные в него формулы, и начинает понимать после позиционирования курсора в ячейку с формулой и нажатя Enter или Tab. С формулой по идее все ОК.

[Gustav]

А доступ к COM-объектам Excel есть в задачке? Если да, то после выгрузки можно попробовать оживить формулы такой нехитрой операцией:

Range("A1:A10").Formula = Range("A1:A10").Value

[dech]

Цитата:

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

С формулой по идее все ОК.

Если у вас не Office 2010, то я настаиваю.

[Sada]

Цитата:

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

Если у вас не Office 2010, то я настаиваю.

2013, c ',' формула не работает вообще

[Sada]

Цитата:

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

А доступ к COM-объектам Excel есть в задачке? Если да, то после выгрузки можно попробовать оживить формулы такой нехитрой операцией:

Range("A1:A10").Formula = Range("A1:A10").Value

после формирования в XML, Аксапта бахает всё это дело в Эксель, и там в принципе можно добраться и до COM. А как это в Аксапте будет выглядеть?

[Gustav]

Цитата:

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

А как это в Аксапте будет выглядеть?

Мне кажется, как-то так должно быть:

COM xlApp;
COM wks;
COM rng;

xlApp =  -    COM('Excel.Application')
wks = xlApp.ActiveSheet();
rng = wks.UsedRange();
rng.Formula(rng.Value2());