1С:Предприятие 7.7

Еще о сохранении в формате Excel

Есть ли какое-либо средство (обработка, программа что либо другое) для сохранения табличных документов 1с с формате ms excel с полным сохранением внешнего вида (форматирования)? Средствами самого 1С сохранение в формате *.xls меня не устраивает, т.к. не сохраняется форматирование, а также если в ячейке достаточно длинный текст – он просто обрезается до некоторой длины.
Под “средствами 1С”, я так понимаю, Вы имеете в виду пункт меню “Сохранить как...” в меню Файл?
Можно использовать объект с доступом к функциям Excel, как в приведенном примере.
//Создание объекта:
Эксель=СоздатьОбъект(“Excel.Application”);
//Открытие файла и переход на нужный лист:
Эксель.Application.Workbooks.Open(ИмяФайла);

Эксель.Application.ActiveWorkbook.Worksheets(ИмяЛистаПродажи).Select();
//Заполнение списка значений заголовками листов
//открытого файла Excel
Для Ном=1 По Эксель.Application.ActiveWorkbook.Sheets.Count() Цикл
ИмяЛиста = Эксель.Application.ActiveWorkbook.Sheets(Ном).Name;
Листы.ДобавитьЗначение(ИмяЛиста);
КонецЦикла;
//Получение значения из ячейки файла по номеру строки и столбца
ExcelID = СокрЛП(Эксель.ActiveSheet.Cells(Стр,СтолбецИД).Value);
//Установка значения в ячейке
Эксель.ActiveSheet.Cells(Стр,СтолбецКоличества).Value = ?(ПродажаКол=0,”“,ПродажаКол);
//Сохранение и закрытие файла без запроса пользователя
Эксель.Application.Save();
Эксель.Application.ActiveWorkbook.Close(1,,0);
В Excel есть справка по VBA, запускается по нажатию Alt-F11, F1.

| опубликовано: 13 Март 2008, 15:04