Еще о сохранении в формате 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);
Если необходимо создать новый файл, а не открывать существующий, то нужно использовать метод Add() вместо Open(ИмяФайла) в строке Эксель.Application.Workbooks.Open(ИмяФайла);
В Excel есть справка по VBA, запускается по нажатию Alt-F11, F1.
|