8.х Можно ли в отчете для ячейки задать формулу, которая выгрузится в Есхеl?

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем postnn, 17 янв 2017.

  1. TopicStarter Overlay
    postnn
    Offline

    postnn Опытный в 1С

    Регистрация:
    2 мар 2008
    Сообщения:
    161
    Симпатии:
    1
    Баллы:
    29
    Здравствуйте!
    Подскажите пожалуйста, можно в ячейке выводимого на печать отчета внести формулу(суммирование ячейки к примеру R15C10 и R16C10 ), чтобы при выгрузке его в Есхеl формула сохранялась и соответственно пользователи забили уже в екселе цифры в R15C10 и R16C10, они в ячейке итого просуммировались
    Спасибо
  2. TerANik
    Offline

    TerANik Профессионал в 1С

    Регистрация:
    19 ноя 2014
    Сообщения:
    1.265
    Симпатии:
    95
    Баллы:
    54
    В отчёт нет, а вот если будете выгружать напрямую в Excel то думаю да.
  3. Dem0lisher
    Offline

    Dem0lisher Профессионал в 1С

    Регистрация:
    4 авг 2009
    Сообщения:
    1.260
    Симпатии:
    100
    Баллы:
    104
    Excel.Cells(НомСтроки, 32).FormulaR1C1 = "=ROUND(RC[-5]*RC[-2],2)";
    postnn нравится это.
  4. TopicStarter Overlay
    postnn
    Offline

    postnn Опытный в 1С

    Регистрация:
    2 мар 2008
    Сообщения:
    161
    Симпатии:
    1
    Баллы:
    29
    Cпасибо попробую
  5. TopicStarter Overlay
    postnn
    Offline

    postnn Опытный в 1С

    Регистрация:
    2 мар 2008
    Сообщения:
    161
    Симпатии:
    1
    Баллы:
    29
    Никак не могу отладить. если создать пустой файл, формула выгрузилась, а тут не получается


    Код:
    Excel = Новый COMОбъект("Excel.Application");
    
    
        мТабДок.Записать(ФайлВыгрузки, ТипФайлаТабличногоДокумента.XLS);
       Excel.Cells(7, 10).Formula="=СУММ(R[4]C:R[200]C)";
    или
      ЛистКниги = Excel.Workbooks.Item(Excel.Workbooks.Count);
    
       ЛистКниги.Cells(7, 10).Formula="=СУММ(R[4]C:R[200]C)";
    Последнее редактирование модератором: 18 янв 2017
  6. TopicStarter Overlay
    postnn
    Offline

    postnn Опытный в 1С

    Регистрация:
    2 мар 2008
    Сообщения:
    161
    Симпатии:
    1
    Баллы:
    29
    так ошибок не дает. но и формулу не записывает
    Код:
    мТабДок.Записать(ФайлВыгрузки, ТипФайлаТабличногоДокумента.XLS);
        Попытка
      Excel = Новый COMОбъект("Excel.Application");
      Excel.WorkBooks.Open(ФайлВыгрузки);
      ExcelЛист = Excel.Sheets(1);
         ExcelЛист.Cells(17, 10).Formula="=СУММ(R[4]C:R[200]C)";
    
      Исключение
      Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
      Возврат;
      КонецПопытки;
          ExcelЛист.Activate();
         
         Excel.Visible = 1; 
          Excel.ActiveWorkBook.Save();
      Excel.WorkBooks.Close();
          Excel = 0;
    Последнее редактирование модератором: 18 янв 2017