Программирование в 1СПятница, 22.11.2024, 06:30

| RSS
Главная | Каталог статей
Меню сайта

Категории раздела
Основы [36]
Общие вопросы по 1С 7.7 [88]
1С: Бухгалтерия 7.7 [7]
1С: Торговля 7.7 [4]
1С:Зарплата и кадры 7.7 [1]
1С 7.7: Проблемы и решения [33]
УРБД [3]
Управление Распределенными Базами Данных
OLE [2]
Механизм обмена данными между базами 1С через OLE
SQL [1]
Сервер терминалов [1]
Интеграция с внешними приложениями [3]
FAQ по 1С v.7.7 [7]
FAQ по 1С v.7.7

Поиск

Поиск по сайту

Главная » Статьи » 1С v.7.7 » Общие вопросы по 1С 7.7

Еще о сохранении в формате Excel
Еще о сохранении в формате 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.
Категория: Общие вопросы по 1С 7.7 | Добавил: Spacer (03.08.2008)
Просмотров: 9873
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Статистика

    Copyright 1C:Programmer © 2024
    Бесплатный конструктор сайтов - uCoz