Версия для печати темы (https://pro1c.org.ua/index.php?s=98fb948866bafd2af9aeb3b0f2011b75&showtopic=67787)

Автор: Lunatik_51 12.03.25, 20:22

Доброго дня. Ми працюємо в 1с 7.7 і часто виникає проблема, що клієнти не можуть відкрити наші прайси, які з 1с 7.7 стандартним способом через файл -> зберегти, збережені в xls. Якщо цей файл після збереження відкрити в excel і зберегти в xlsx, то проблем нема. Чи є обробка, за допомогою якої друковані таблиці можна було би відразу зберігати в xlsx?

Автор: andrew76 13.03.25, 11:01

Lunatik_51 @ Вчера, 23:22 ,

Добрый день.
Штатными средствами этого сделать нельзя.Нужно писать свою обработку.

вот здесь посмотрите,может пригодится что-то:
https://pro1c.org.ua/index.php?showtopic=18547

а если самому делать ,то примерно так начинается это дело:

Эксель= СоздатьОбъект("Excel.Application");
Книга = Эксель.Workbooks.Add();
Книга.Worksheets(1).Cells(2,1).Value = Строка("Товар");
Книга.Worksheets(1).Cells(2,2).Value = Число("Количество");
Книга.SaveAs("с:\проба.xlsх");
Книга.Close();
Эксель.Quit();

Но конечно прийдётся делать здесь ещё форматирование всех колонок,подбирать шрифт и т.д.

Автор: andrew76 13.03.25, 16:59

И зачем я усложняю ? Если есть сформированный прайс-лист в формате xls,то можно проще поступить:
Вместо создания пустого файла excel , откроем уже сохраненный из 1C,и сохраним его в формате xlsx.

Эксель= СоздатьОбъект("Excel.Application");
Книга=Эксель.Workbooks.Open(ИмяКаталога+ИмяФайла); // маршрут к каталогу с файлом xls.
Книга.SaveAs("с:\проба.xlsх");
Книга.Close();
Эксель.Quit();

также ,если интересно,смотрите здесь:
https://pro1c.org.ua/redirect.php?http://yoksel.net.ru/HomePage

Автор: Profi_1C77 13.03.25, 18:49

andrew76 @ Сегодня, 16:59 ,
Тогда должен "стоять " Excel 2007 -

7 Поддерживала форматы на момент выпуска ( xlsx) в помине не было

Автор: andrew76 14.03.25, 10:54

Конвертация файла xls в xlsx выполняется через :

СоздатьОбъект("Excel.Application");

Само собой на компе должен быть установлен MS OFFICE с версией не ниже 2007.