Работа через COM с Excel » История » Версия 2
Версия 1 (Всеволод Дорофеев, 23.10.2019 06:18) → Версия 2/4 (Всеволод Дорофеев, 23.10.2019 06:20)
h1. Работа через COM с Excel
h3. При передачи большого числа, например, Штрихкода документа, обрезаются символы после 16 знака.
Для корректного вывода устанавливаем текстовый формат, затем выводим
<pre>
Если Лист.Range(ИмяОбласти).Select() Тогда
если нрег(ИмяОбласти) = нрег("ШтрихКодДокумента") Тогда
Лист.Range(ИмяОбласти).NumberFormat = "@"; // текстовый формат
КонецЕсли;
Лист.Range(ИмяОбласти).value = " " + прЗначение;
Иначе
если нрег(ИмяОбласти) = ("КоличествоВыпуска") Тогда
сообщить("Не найдена область для заполнения: " + ИмяОбласти);
КонецЕсли;
КонецЕсли;
</pre>
Прочие форматы:
<pre>
РабочийЛистКниги.Cells(1,1).NumberFormat = "@"; // текстовый формат
РабочийЛистКниги.Cells(1,2).NumberFormat = "0"; // числовой формат
РабочийЛистКниги.Cells(1,3).NumberFormat = ""; // Формат даты Selection.NumberFormat = "m/d/yyyy"
</pre>
h3. При передачи большого числа, например, Штрихкода документа, обрезаются символы после 16 знака.
Для корректного вывода устанавливаем текстовый формат, затем выводим
<pre>
Если Лист.Range(ИмяОбласти).Select() Тогда
если нрег(ИмяОбласти) = нрег("ШтрихКодДокумента") Тогда
Лист.Range(ИмяОбласти).NumberFormat = "@"; // текстовый формат
КонецЕсли;
Лист.Range(ИмяОбласти).value = " " + прЗначение;
Иначе
если нрег(ИмяОбласти) = ("КоличествоВыпуска") Тогда
сообщить("Не найдена область для заполнения: " + ИмяОбласти);
КонецЕсли;
КонецЕсли;
</pre>
Прочие форматы:
<pre>
РабочийЛистКниги.Cells(1,1).NumberFormat = "@"; // текстовый формат
РабочийЛистКниги.Cells(1,2).NumberFormat = "0"; // числовой формат
РабочийЛистКниги.Cells(1,3).NumberFormat = ""; // Формат даты Selection.NumberFormat = "m/d/yyyy"
</pre>