I
I
Ivan Melnikov2019-04-23 20:37:17
1C-Enterprise
Ivan Melnikov, 2019-04-23 20:37:17

How to explicitly set the text format of cells when writing a spreadsheet document to an .xls file?

1C 8.3.9, SCP 1.3 (regular application).
I unload the spreadsheet document into a file trace. way:

ТабДок = Новый ТабличныйДокумент;
    	Секция = ТабДок.ПолучитьОбласть("R1");
      Для Н=0 По ТЗ.Количество() - 1 Цикл 
          С = Н+1; 
          Секция.Область("R"+Строка(С)+"C1").Текст = ТЗ[Н].Счетчик;
          Секция.Область("R"+Строка(С)+"C2").Текст = ТЗ[Н].Дубль;
          Секция.Область("R"+Строка(С)+"C3").Текст = ТЗ[Н].Марка;
          Секция.Область("R"+Строка(С)+"C4").Текст = ТЗ[Н].Артикул;
          Секция.Область("R"+Строка(С)+"C5").Текст = ТЗ[Н].Мощность;
          Секция.Область("R"+Строка(С)+"C6").Текст = ТЗ[Н].КлассЗащиты;
          Секция.Область("R"+Строка(С)+"C7").Текст = ТЗ[Н].ТемпОкр;
          Секция.Область("R"+Строка(С)+"C8").Текст = ТЗ[Н].ТипСветильника;
          Секция.Область("R"+Строка(С)+"C9").Текст = ТЗ[Н].НомерЗНП;
          Секция.Область("R"+Строка(С)+"C10").Текст = ТЗ[Н].Дата;
          Секция.Область("R"+Строка(С)+"C11").Текст = ТЗ[Н].НомерБригады;
      КонецЦикла;
    	ТабДок.Вывести(Секция);
    	ТабДок.Записать("1.xls", ТипФайлаТабличногоДокумента.XLS);

As a result, some cells are in text format, and some are in numeric format. How to force all cells to be formatted as text?
ps. And a similar follow up question.
How to automatically set column widths to fit text?

Answer the question

In order to leave comments, you need to log in

1 answer(s)
K
Konstantin, 2019-04-24
@fosihas

You can specify the desired format
Syntax: Format(<Value>, <FormatString>)
and String(Value)
ps:
https://infostart.ru/public/684206/

Didn't find what you were looking for?

Ask your question

Ask a Question

731 491 924 answers to any question