При программном сохранении табличного документа из 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;
КонецЕсли;
конецЦикла;
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой