Имя: Пароль:
1C
1С v8
Программное сохранение из 1С в Эксель
0 Serdolik55
 
04.04.13
10:54
При программном сохранении табличного документа из 1С в Эксель для сумм, имеющих дробную часть точки (.) чередуются с запятыми (,). Хотя в табличном документе, стоят точки. Кто как решал проблему? офис стоит 2007-2010.

ДокЭкс = ПолучитьCOMОбъект("", "Excel.Application");
   ДокЭкс.SheetsInNewWorkbook = 1; //Один лист в новой книге
   ДокЭкс.DisplayAlerts = 0; //Не выводить предупреждения Excel
   тзЧастей="";
   
   тзЧастей=Новый ТаблицаЗначений;
   тзЧастей.Колонки.Добавить("Ссылка");
   тзЧастей.Колонки.Добавить("ПутьКФайлу");
   //создадим список файлов которые нужно свалить в один
   //для ии=1 по НомерТаблицы цикл
   сч = 0;
   для ии=1 по 3 цикл
       //стр<индекс> - это "ПолеТабличногоДокумента" они формируются динамически их может быть много
       //ЭлементыФормы["стр"+Строка(ии)].Записать(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls",ТипФайлаТабличногоДокумента.XLS);
       Если  сч = 0 Тогда
           Первый.Записать(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls",ТипФайлаТабличногоДокумента.XLS);
           вр_файл=ДокЭкс.Workbooks.Open(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls");
           новСтр=тзЧастей.Добавить();
           новСтр.Ссылка=вр_файл;
           новСтр.ПутьКФайлу=КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls";
           сч = сч+1;
       ИначеЕсли сч = 1 Тогда
           Второй.Записать(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls",ТипФайлаТабличногоДокумента.XLS);
           вр_файл=ДокЭкс.Workbooks.Open(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls");
           новСтр=тзЧастей.Добавить();
           новСтр.Ссылка=вр_файл;
           новСтр.ПутьКФайлу=КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls";
           сч = сч+1;
       ИначеЕсли сч = 2 Тогда
           Третий.Записать(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls",ТипФайлаТабличногоДокумента.XLS);
           вр_файл=ДокЭкс.Workbooks.Open(КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls");
           новСтр=тзЧастей.Добавить();
           новСтр.Ссылка=вр_файл;
           новСтр.ПутьКФайлу=КаталогВременныхФайлов()+"tmp"+Строка(ии)+".xls";
           сч = сч+1;
       КонецЕсли;
   конецЦикла;
1 Serdolik55
 
04.04.13
15:03
Никто не сталкивался?
2 Рэйв
 
04.04.13
15:05
точка отделяет дробную часть, запятые- триады..Что не так?
3 Serdolik55
 
04.04.13
15:16
(2)Я имеюю ввиду у меня в дробной части то точки, то запятые. Нужно чтобы одни точки были. Как этого добиться?
4 zladenuw
 
04.04.13
15:21
у пользователя системы. какой разделить стоит по умолчанию ? на сколько помню 1с оттуда тянить.
5 ДумаюЧтоУмныйНо Навер
 
04.04.13
15:35
как правильно сказали - при типе ячейки число - разделитель определяется системой.
Вывод - писать как текст
6 ДумаюЧтоУмныйНо Навер
 
04.04.13
15:36
выход - писать как текст
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.