книгу » Поиск

Результаты по ключевому слову: книгу

В Книгу продаж по постановлению 1137 не попадают с/ф без НДС

Вопрос: Обновили бухгалтерию, появилась новая книга продаж, но счета-факутры без НДС в нее не попадают, а в старой книге продаж все отображается хорошо!

Ответ: Без НДС заполняется только в двух случаях:

1. Дата окончания периода формирования меньше 01.01.14

2. В учетной политике надо включить Применяется освобождение от уплаты НДС

Для этого создайте новую учетную политику по организации с 01.10.14 по 31.12.14 и на вкладке НДС установите галку:

Категория: 1С Бухгалтерия 2.0

Неверное формирование книги покупок

Добрый день.
Помогите разобраться в проблеме. БП 2.0.49.15.
При формировании книги покупок, в документе (формирование записей книги покупок) указана одна сумма (правильная), но в книгу покупок попадает совершенно другая сумма (больше в 2 раза), и попадает она туда только когда проведен документ (формирование записей книги покупок).
Посмотрел регистры НДС с авансов, НДС Покупки и НДС продажи, там вроде все верно. Откуда могла подтянуться завышенная сумма, не могу понять.

Категория: 1С Бухгалтерия 2.0

Активация открытой книги Excel для корректировки

Нужно было получить для изменения уже открытую книгу Excel, а если она закрыта, то открыть и изменять.
Ниже код, который данную задачу решает.

Код 1C v 8.х

 

Попытка

	Эксель 	= Неопределено;

	Книга 	= Неопределено;

	Лист 	= Неопределено;

	

	Состояние("Выполняется подключение к Excel");

	Попытка

		Книга 	= ПолучитьCOMОбъект(Файл, "Excel.Application");

		Эксель	= Книга.Application;

	Исключение

		Эксель	= Новый COMОбъект("Excel.Application");

		Книга 	= Эксель.WorkBooks.Open(Файл);

	КонецПопытки;

	Лист 		= Книга.WorkSheets(1);

	Эксель.Visible	= Истина;

	

Исключение

	Сообщить("Не удалось подключить Excel." + Символы.ПС + ОписаниеОшибки());

	Возврат;

КонецПопытки;

Категория: Работа с Microsoft Office и OpenOffice

Экспорт и Импорт данных 1С - Microsoft Excel

Экспорт
Процедура ОсновныеДействияФормыЭкспорт(Кнопка) - выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel с указанным именем, используя преобразование данных к типу число и типу строка;

Код 1C v 8.х

 Процедура ОсновныеДействияФормыЭкспорт(Кнопка)

  Попытка

    Попытка



      // Загрузка объекта Microsoft Excel

      Состояние("Выгрузка данных из 1С в Microsoft Excel...");

      ExcelПриложение = Новый COMОбъект("Excel.Application");

    Исключение

      Сообщить("Ошибка при запуске Microsoft Excel."

        + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

      Возврат;

    КонецПопытки;



    // Создадим книгу, по умолчанию в ней уже есть листы

    Книга = ExcelПриложение.WorkBooks.Add();



    // Используем первый лист книги Excel

    Лист = Книга.WorkSheets(1);



    // Сформировать шапку документа в первой строке листа

    Колонка = 1;

    Для каждого стр из ТП цикл

      Если стр.Выгружать Тогда

        Лист.Cells(1, Колонка).Value = стр.НазваниеРеквизита;

        Колонка = Колонка + 1;

      КонецЕсли;

    КонецЦикла;



    // Выгрузить данные справочника

    выборка = Справочники[ИмяСправочника].Выбрать();

    СтрокаЛиста = 2;

    Пока выборка.Следующий() Цикл

      Колонка = 1;

      Для каждого стр из ТП цикл



      Если стр.Выгружать Тогда

      Попытка

        // Установить значение в строке и колонке

        Если ТипЗнч(выборка[стр.НазваниеРеквизита])=Тип("Число") Тогда

        // Установить формат для типа Число

        Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "0,00";

        Лист.Cells(СтрокаЛиста, Колонка).Value =

          Формат(выборка[стр.НазваниеРеквизита],"ЧГ=0");

        иначе

          // Для всех других типов установим формат "Текстовый"

          Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "@";

          Лист.Cells(СтрокаЛиста, Колонка).Value =

            Строка(выборка[стр.НазваниеРеквизита]);

        КонецЕсли;

      исключение

        // в случае ошибки вывести номер строки и колонки

        Сообщить("Ошибка установки значения для: " +

          выборка[стр.НазваниеРеквизита]);

        Сообщить("Стр: " +СтрокаЛиста+ " Кол: " +

          Колонка+ " Рек: " + стр.НазваниеРеквизита);

      КонецПопытки;

      Колонка = Колонка + 1;

      КонецЕсли;



    КонецЦикла;

    СтрокаЛиста = СтрокаЛиста + 1;

    Состояние("Экспорт из 1С в Excel " + СтрокаЛиста);

    КонецЦикла;



    // Сохраним созданную книгу в файл xls

    Книга.SaveAs(имяФайла);



    // Обязательно закроем соединение с COM объектом для освобождения памяти

    ExcelПриложение.Quit();



    Сообщить("Файл выгружен успешно: " + имяФайла );



  Исключение

    // Обработка ошибок экспорта данных из 1С в Excel

    Сообщить("Ошибка записи данных файла :" + имяФайла);

    Сообщить(ОписаниеОшибки());

    Попытка

      ExcelПриложение.Quit();

    Исключение

    КонецПопытки;

  КонецПопытки;

КонецПроцедуры

Импорт
Исходный код процедуры 1С для загрузки XLS файла:

Код 1C v 8.х

 Процедура ЧтениеXLSФайла(Элемент)



  Если ПустаяСтрока(ИмяФайла) Тогда

    Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");

    Возврат;

  КонецЕсли;



  Попытка

    // Загрузка Microsoft Excel

    Состояние("Загрузка Microsoft Excel...");

    ExcelПриложение = Новый COMОбъект("Excel.Application");

  Исключение

    Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

    Возврат;

  КонецПопытки;



  Попытка

    // Открытие файла Microsoft Excel

    Состояние("Открытие файла Microsoft Excel...");

    ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);

  Исключение

    Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

  КонецПопытки;



  Попытка

    // Обработка файла Microsoft Excel

    Состояние("Обработка файла Microsoft Excel...");

    // Читаем данные первого листа книги

    ExcelЛист = ExcelФайл.Sheets(1);



    // Определить количество строк и колонок выбранного листа книги Excel

    xlCellTypeLastCell = 11;

    ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;

    ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column;

  Исключение

    Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

    // Закрыть COM соединение для экономии памяти

    ExcelПриложение.Quit();

  КонецПопытки;



  // Создание описателя типов для таблицы значений

  КЧ = Новый КвалификаторыЧисла(15,2);

  КС = Новый КвалификаторыСтроки(50);

  Массив = Новый Массив;

  Массив.Добавить(Тип("Строка"));

  ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);

  Массив.Очистить();

  Массив.Добавить(Тип("Число"));

  ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);



  // Очистить предыдущие значения

  ТаблицаДокумента.Очистить();

  ТаблицаДокумента.Колонки.Очистить();



  // Создать колонки табличного документа

  ТаблицаДокумента.Колонки.Добавить("Номер",ОписаниеТиповС,"Номер",5);

  ТаблицаДокумента.Колонки.Добавить("Артикул",ОписаниеТиповС,"Артикул",11);

  ТаблицаДокумента.Колонки.Добавить("Описание",ОписаниеТиповС,"Описание",25);

  ТаблицаДокумента.Колонки.Добавить("Цена",ОписаниеТиповЧ,"Цена",6);



  // Последовательное чтение строк с выбранного листа

  Для Строка = 1 По ExcelПоследняяСтрока Цикл



    // Обработка нажатия Ctrl + Break

    ОбработкаПрерыванияПользователя();



    // Добавить данные в табличную часть экранной формы

    Стр=ТаблицаДокумента.Добавить();

    Стр.Номер = Строка;

    Попытка

      Стр.Артикул = ExcelЛист.Cells(Строка, 1).Value;

      Стр.Описание = ExcelЛист.Cells(Строка, 2).Value;

      Стр.Цена = ExcelЛист.Cells(Строка, 3).Value;

    Исключение

      // Не редко происходит ошибка конвертации отдельной ячейки документа

      Сообщить("Ошибка чтения строки файла Microsoft Excel." + Строка + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

    КонецПопытки;

    // Отобразить информацию о ходе выполнения обработки

    Состояние("Обработка файла Microsoft Excel : "

      + "строка " + Строка + " из " + ExcelПоследняяСтрока);



  КонецЦикла;



  // Закрыть COM соединение для экономии памяти

  ExcelПриложение.Quit();



  // Отобразить результаты загрузки в форме элемента

  ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;

  ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();



КонецПроцедуры // ЧтениеXLSФайла(Элемент)

Категория: Работа с Microsoft Office и OpenOffice

Чтение и Вывод данных в Excel

Замечание: В Excel разделителем дробной части считается символ ",". Поэтому перед сохранением таблицы 1С в формате Excel замените в ней другой разделитель (например ".") на ",". Иначе в Excel с этими числами не удастся произвести вычисления, или они вообще не будут отображаться как числа. Например, в таблице 1С "15.2" отобразится в Excel как "15.фев".

Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(

Чтение (Получение) данных из Excel
Доступ из 1С к Excel производится посредством OLE. Например, код

Код 1C v 7.x

 Попытка

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

Исключение

 Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

 Возврат;

КонецПопытки;

позволит получить доступ через переменную "Эксель" к запущенному приложению Excel. А далее уже можно получить доступ к книге (файлу), листу и ячейке с данными.Чтобы открыть книгу (файл)

Код 1C v 7.x

 Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

//ПутьКФайлу - полный путь к файлу книги Excel.



//Выбор листа книги для работы с ним:

Лист = Книга.WorkSheets(НомерЛиста);

//или

Лист = Книга.WorkSheets(ИмяЛиста);

// где НомерЛиста - номер листа в книге, ИмяЛиста - имя листа в книге.



// Получение значения ячейки листа:

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// где НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.

Важно: не забывайте поле выполнения нужных действий добавлять код

Код 1C v 7.x

 Эксель.Quit();

, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.

Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:

Код 1C v 7.x

 Попытка

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

Исключение

 Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

 Возврат;

КонецПопытки;



Книга = Эксель.WorkBooks.Add();

Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:

Код 1C v 7.x

 Лист = Книга.WorkSheets(НомерЛиста);



// либо добавить в книгу новый лист, если необходимо:

Лист = Книга.Sheets.Add();

Следующим шагом будет установка значения ячейки:

Код 1C v 7.x

 Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;

// где НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.

И в конце нужно произвести запись созданной книги:

Код 1C v 7.x

 Попытка

 Книга.SaveAs(ПутьКФайлу);

Исключение

 Сообщить(ОписаниеОшибки()+" Файл не сохранен!");

 Возврат;

КонецПопытки;

// где ПутьКФайлу - полный путь к файлу книги Excel (включая имя).

Важно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > <

Категория: Работа с Microsoft Office и OpenOffice

Выгрузка данных в Excel с установкой разных параметров

Код 1C v 8.х

 // Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel

// с указанным именем, используя преобразование данных к типу число и типу строка;

Процедура ОсновныеДействияФормыЭкспорт(Кнопка)

  Попытка

    Попытка

      // Загрузка объекта Microsoft Excel

      Состояние("Выгрузка данных из 1С в Microsoft Excel...");

      ExcelПриложение = Новый COMОбъект("Excel.Application");

    Исключение

      Сообщить("Ошибка при запуске Microsoft Excel."

        + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

      Возврат;

    КонецПопытки;



    // Создадим книгу, по умолчанию в ней уже есть листы

    Книга = ExcelПриложение.WorkBooks.Add();



    // Используем первый лист книги Excel

    Лист = Книга.WorkSheets(1);



    // Сформировать шапку документа в первой строке листа

    Колонка = 1;

    Для каждого стр из ТП цикл

      Если стр.Выгружать Тогда

        Лист.Cells(1, Колонка).Value = стр.НазваниеРеквизита;

        Колонка = Колонка + 1;

      КонецЕсли;

    КонецЦикла;



    // Выгрузить данные справочника

    выборка = Справочники[ИмяСправочника].Выбрать();

    СтрокаЛиста = 2;

    Пока выборка.Следующий() Цикл

      Колонка = 1;

      Для каждого стр из ТП цикл



      Если стр.Выгружать Тогда

      Попытка

        // Установить значение в строке и колонке

        Если ТипЗнч(выборка[стр.НазваниеРеквизита])=Тип("Число") Тогда

        // Установить формат для типа Число

        Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "0,00";

        Лист.Cells(СтрокаЛиста, Колонка).Value =

          Формат(выборка[стр.НазваниеРеквизита],"ЧГ=0");

        иначе

          // Для всех других типов установим формат "Текстовый"

          Лист.Cells(СтрокаЛиста, Колонка).NumberFormat = "@";

          Лист.Cells(СтрокаЛиста, Колонка).Value =

            Строка(выборка[стр.НазваниеРеквизита]);

        КонецЕсли;

      исключение

        // в случае ошибки вывести номер строки и колонки

        Сообщить("Ошибка установки значения для: " +

          выборка[стр.НазваниеРеквизита]);

        Сообщить("Стр: " +СтрокаЛиста+ " Кол: " +

          Колонка+ " Рек: " + стр.НазваниеРеквизита);

      КонецПопытки;

      Колонка = Колонка + 1;

      КонецЕсли;



    КонецЦикла;

    СтрокаЛиста = СтрокаЛиста + 1;

    Состояние("Экспорт из 1С в Excel " + СтрокаЛиста);

    КонецЦикла;



    // Сохраним созданную книгу в файл xls

    Книга.SaveAs(имяФайла);



    // Обязательно закроем соединение с COM объектом для освобождения памяти

    ExcelПриложение.Quit();



    Сообщить("Файл выгружен успешно: " + имяФайла );



  Исключение

    // Обработка ошибок экспорта данных из 1С в Excel

    Сообщить("Ошибка записи данных файла :" + имяФайла);

    Сообщить(ОписаниеОшибки());

    Попытка

      ExcelПриложение.Quit();

    Исключение

    КонецПопытки;

  КонецПопытки;

КонецПроцедуры

Код 1C v 7.x

 //Простейший пример вывода из 1С:Предприятия 7.7 в MS Excel. Обеспечение наличия у рабочей книги единственного листа,

//установка размера, жирности и цвета шрифта, ширины колонок, рамок и заливки ячеек. Выравнивание текста

//ячеек, группировка строк, установка числового формата ячеек, закрепление области.

 

Процедура Вывод()

    Попытка

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

    Исключение

        Сообщить(ОписаниеОшибки(),"!!!");

        Сообщить("Возможно, MS Excel не установлен на этом компьютере.");

        Возврат;

    КонецПопытки;

    

    //Создание рабочей книги

 

    WorkBook=Application.WorkBooks.Add();

    //Получение окна

 

    Window=WorkBook.Windows(1);

    //Установка невидимости окна для убыстрения вывода

 

    Window.Visible=0;

    //Обеспечение наличия у рабочей книги единственного листа

 

    Если WorkBook.Worksheets.Count=0 Тогда

        WorkBook.Worksheets.Add();

    Иначе

        Application.DisplayAlerts=0;//не выдавать предупреждений

 

        Пока WorkBook.Worksheets.Count>1 Цикл

            WorkBook.Worksheets(1).Delete();

        КонецЦикла;

        Application.DisplayAlerts=-1;//восстановление флага выдачи предупреждений

 

    КонецЕсли;

    //Получение рабочего листа

 

    Worksheet=WorkBook.Worksheets(1);

    //Задание имени рабочего листа

 

    Worksheet.Name="Пример вывода";

    

    //Заголовок документа

 

    Worksheet.Range("A1").Value="Пример вывода из 1С:Предприятия в MS Excel";

    Worksheet.Range("A2").Value="сегодня "+ТекущаяДата();

    Worksheet.Range("A1:A2").Font.Size=14;//размер шрифта

 

    Worksheet.Range("A1:A2").Font.Bold=-1;//жирный шрифт

 

    

    //Задание ширины колонок

 

    Worksheet.Columns(1).ColumnWidth=60;

    Worksheet.Columns(2).ColumnWidth=15;

    Worksheet.Columns(3).ColumnWidth=15;

    

    //Шапка документа

 

    Worksheet.Range("A4").Value="Первая колонка";

    Для ы=7 по 10 Цикл//рамки

 

        Worksheet.Range("A4").Borders(ы).LineStyle=1;

        Worksheet.Range("A4").Borders(ы).Weight=-4138;//xlMedium

 

    КонецЦикла;

    Worksheet.Range("A4").Interior.ColorIndex=15;//заливка серым

 

    Worksheet.Range("A4").HorizontalAlignment=-4108;//выравнивание текста по центру

 

    

    Worksheet.Range("B4").Value="Вторая";

    Для ы=7 по 10 Цикл

        Worksheet.Range("B4").Borders(ы).LineStyle=1;

        Worksheet.Range("B4").Borders(ы).Weight=-4138;

    КонецЦикла;

    Worksheet.Range("B4").Interior.ColorIndex=15;

    Worksheet.Range("B4").HorizontalAlignment=-4108;

    

    Worksheet.Range("C4").Value="Третья";

    Для ы=7 по 10 Цикл

        Worksheet.Range("C4").Borders(ы).LineStyle=1;

        Worksheet.Range("C4").Borders(ы).Weight=-4138;

    КонецЦикла;

    Worksheet.Range("C4").Interior.ColorIndex=15;

    Worksheet.Range("C4").HorizontalAlignment=-4108;

    

    //Для группировки строк:

     Worksheet.Outline.SummaryRow=0;//"итоговые" строки отображать сверху (если снизу, то 1)

     

    //Вывод строк

     Worksheet.Range("A5").Value="Объект аналитики";

    Worksheet.Range("A5").Font.ColorIndex=5;//цвет шрифта - синий

 

    Worksheet.Range("B5").Value=123.45;

    Worksheet.Range("B5").Font.ColorIndex=5;

    Worksheet.Range("C5").Value=678.9;

    Worksheet.Range("C5").Font.ColorIndex=5;

    

    Worksheet.Range("A6").Value="Объект аналитики";

    Worksheet.Range("A6").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B6").Value=123.45;

    Worksheet.Range("B6").Font.ColorIndex=3;

    Worksheet.Range("C6").Value=678.9;

    Worksheet.Range("C6").Font.ColorIndex=3;

    

    Worksheet.Range("A7").Value="Объект аналитики";

    Worksheet.Range("B7").Value=123.45;

    Worksheet.Range("C7").Value=678.9;

    

    Worksheet.Range("A8").Value="Объект аналитики";

    Worksheet.Range("B8").Value=123.45;

    Worksheet.Range("C8").Value=678.9;

    

    Worksheet.Range("A9").Value="Объект аналитики";

    Worksheet.Range("A9").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B9").Value=123.45;

    Worksheet.Range("B9").Font.ColorIndex=3;

    Worksheet.Range("C9").Value=678.9;

    Worksheet.Range("C9").Font.ColorIndex=3;

    

    Worksheet.Range("A10").Value="Объект аналитики";

    Worksheet.Range("B10").Value=123.45;

    Worksheet.Range("C10").Value=678.9;

    

    Worksheet.Range("A11").Value="Объект аналитики";

    Worksheet.Range("B11").Value=123.45;

    Worksheet.Range("C11").Value=678.9;

    

    Worksheet.Range("A12").Value="Объект аналитики";

    Worksheet.Range("A12").Font.ColorIndex=5;//цвет шрифта - синий

 

    Worksheet.Range("B12").Value=123.45;

    Worksheet.Range("B12").Font.ColorIndex=5;

    Worksheet.Range("C12").Value=678.9;

    Worksheet.Range("C12").Font.ColorIndex=5;

    

    Worksheet.Range("A13").Value="Объект аналитики";

    Worksheet.Range("A13").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B13").Value=123.45;

    Worksheet.Range("B13").Font.ColorIndex=3;

    Worksheet.Range("C13").Value=678.9;

    Worksheet.Range("C13").Font.ColorIndex=3;

    

    Worksheet.Range("A14").Value="Объект аналитики";

    Worksheet.Range("B14").Value=123.45;

    Worksheet.Range("C14").Value=678.9;

    

    Worksheet.Range("A15").Value="Объект аналитики";

    Worksheet.Range("B15").Value=123.45;

    Worksheet.Range("C15").Value=678.9;

    

    Worksheet.Range("A16").Value="Объект аналитики";

    Worksheet.Range("A16").Font.ColorIndex=3;//цвет шрифта - красный

 

    Worksheet.Range("B16").Value=123.45;

    Worksheet.Range("B16").Font.ColorIndex=3;

    Worksheet.Range("C16").Value=678.9;

    Worksheet.Range("C16").Font.ColorIndex=3;

    

    Worksheet.Range("A17").Value="Объект аналитики";

    Worksheet.Range("B17").Value=123.45;

    Worksheet.Range("C17").Value=678.9;

    

    Worksheet.Range("A18").Value="Объект аналитики";

    Worksheet.Range("B18").Value=123.45;

    Worksheet.Range("C18").Value=678.9;

    

    //Установка рамок

 

    Для НомСтр=5 по 18 Цикл

        Для ы=7 по 10 Цикл

            Worksheet.Range("A"+НомСтр).Borders(ы).LineStyle=1;

            Worksheet.Range("B"+НомСтр).Borders(ы).LineStyle=1;

            Worksheet.Range("C"+НомСтр).Borders(ы).LineStyle=1;

        КонецЦикла;

    КонецЦикла;

    

    //Группировка строк

 

    Worksheet.Range("7:8").Rows.Group();

    Worksheet.Range("10:11").Rows.Group();

    Worksheet.Range("14:15").Rows.Group();

    Worksheet.Range("17:18").Rows.Group();

    Worksheet.Range("6:11").Rows.Group();

    Worksheet.Range("13:18").Rows.Group();

    

    //Свёртка группировок до первого уровня

 

    Worksheet.Outline.ShowLevels(1);

    

    //Установка числового формата

 

    Попытка

        Worksheet.Range("B5:C18").NumberFormat="# ##0.00";

 

    Исключение

        Попытка

            Worksheet.Range("B5:C18").NumberFormat="# ##0,00";

 

        Исключение

        КонецПопытки;

    КонецПопытки;

    

    //Установка видимости приложения и его окна 

 

    Application.Visible=-1;

    Window.Visible=-1;

    

    //Закрепление области

 

    Worksheet.Range("A5").S_elect();

    Window.FreezePanes = -1;

КонецПроцедуры //Вывод

Категория: Работа с Microsoft Office и OpenOffice

Создание документа Excel по имеющемуся шаблону, оформлению.

Код 1C v 8.х

 Попытка

    // Создать объект. 

    Excel = Новый COMОбъект("Excel.Application"); 

Исключение    

    Сообщить("Не удалось инициализировать Excel");    

    Возврат;    

КонецПопытки;    



Попытка

    // Если при отработке следующего фрагмента кода произойдет ошибка

    // объект "Excel.Application" будет закрыт.



    // Открыть книгу, содержащую шаблон оформления.

    Excel.Workbooks.Open("c:\doc.xls");



    НомерКниги = Excel.Workbooks.Count;

    Книга        = Excel.Workbooks.Item(НомерКниги);

    Лист        = Excel.ActiveSheet;



    // Создать новую книгу (в нее будем записывать данные).

     Excel.Application.Workbooks.Add(1);

    

    НомерКниги = Excel.Workbooks.Count;

    КнигаНовая = Excel.Workbooks.Item(НомерКниги);

    ЛистНовый  = Excel.ActiveSheet;



    // Установить ширину колонки в новой книге.

     ЛистНовый.Columns("B").ColumnWidth = 40;

    

    // Копировать область из книги-шаблона в новую книгу.

     Лист.Range("Шапка").Copy(ЛистНовый.Range("A1:E3")); 

    ЛистНовый.Cells(1, 1).Value = "Наименование контрагента";

    

    // Считаем, что в нашем случае необходимо сформировать только

 

    // две строки табличной части

     Для НомерСтроки = 1 По 2 Цикл

        Лист.Range("Строка").Copy(ЛистНовый.Range(ЛистНовый.Cells(3 + НомерСтроки,1), ЛистНовый.Cells(3 + НомерСтроки, 5)));



        // Записать значение в ячейку листа новой таблицы    

         // в реальном примере данные будут браться из информационной базы

         ЛистНовый.Cells(3 + НомерСтроки, 1).Value = НомерСтроки;

        ЛистНовый.Cells(3 + НомерСтроки, 2).Value =    "Наименование номенклатурной позиции " + Строка(НомерСтроки);

        ЛистНовый.Cells(3 + НомерСтроки, 3).Value = НомерСтроки;

        ЛистНовый.Cells(3 + НомерСтроки, 4).Value = НомерСтроки;

        ЛистНовый.Cells(3 + НомерСтроки, 5).Value = НомерСтроки;

    КонецЦикла;



    Excel.Visible = Истина;



Исключение    

    Сообщить(ОписаниеОшибки());

    Excel.Quit();    

КонецПопытки;

Категория: Работа с Microsoft Office и OpenOffice

Регистры подсистемы учета НДС в 1С:Бухгалтерии 8 ред 1.6

Учет налога на добавленную стоимость сложен, и правила бухгалтерского учета не предусматривают регистрации ряда событий, важных для расчетов по НДС. Поэтому конфигурация «1С:Бухгалтерия предприятия» все события, имеющие отношение к НДС, учитывает на регистрах.
title

Остановимся подробнее на некоторых элементах из списка регистра накопления подсистемы учета НДС:

- Регистр «НДС начисленный» предназначен для хранения информации о суммах НДС, начисленных к уплате в бюджет.

- Регистр «НДС предъявленный» предназначен для хранения информации о суммах НДС, предъявленных поставщиками приобретенных ценностей.

- Регистр «НДС расчеты с покупателями» предназначен для хранения информации о расчетах с покупателями для целей учета НДС. По сравнению со счетами учета расчетов с покупателями, содержит более подробную информацию о том, какие поступления оплат от покупателей относятся к конкретным документам реализации товаров (работ, услуг), а какие еще «не привязаны» к документам реализации.

- Регистр «НДС расчеты с поставщиками» предназначен для хранения информации о расчетах с поставщиками для целей учета НДС. По сравнению со счетами бухгалтерского учета расчетов с поставщиками, содержит более подробную информацию о том, какие оплаты поставщикам относятся к конкретным документам поступления товаров (работ, услуг).

- Регистр «НДС продажи» предназначен для хранения информации о записях книги продаж. По данным этого регистра строится отчет «Книга продаж» без всякой дополнительной обработки данных.

- Регистр «НДС покупки» предназначен для хранения информации о записях книги покупок. По данным этого регистра строится отчет «Книга покупок» без дополнительной обработки данных.

- Регистр «НДС с авансов» предназначен для хранения информации о суммах НДС, начисленного с полученных и выданных авансов и предоплат.

Проверять НДС можно (и нужно) не только с помощью стандартных бухгалтерских отчетов, но и универсальными отчетами «Остатки и обороты», «Список/кросс-таблица» (меню «Отчеты» - «Прочие»).

Рассмотрим несколько проверок:

1. Регистр «НДС начисленный» - Отчет «Остатки и обороты». Если есть остатки, то эти суммы не попали в книгу продаж и в декларацию по НДС. Такие суммы могут относиться только к операциям реализации, осуществленным до 01.01.2006, при условии, что налоговая база по НДС до 01.01.2006 определялась по оплате. В этом случае остаток по регистру и остаток по сч. 76.Н «Расчеты по НДС, отложенному для уплаты в бюджет» должны совпадать.
2. Регистр «НДС предъявленный» - Отчет «Остатки и обороты». Остатки должны совпадать с остатками по сч. 19 «НДС по приобретенным ценностям». Обороты по расходу в регистре должны совпадать с оборотом по кредиту 19 сч., по приходу – с оборотом по дебету 19 сч.
3. Регистр «НДС с авансов» - Отчет «Остатки и обороты» по виду ценности «Авансы полученные». Остатки должны совпадать с остатками на счете 76.АВ «НДС по авансам и предоплатам».
4. Регистр «НДС покупки» - Отчет «Список/кросс-таблица». Должно соблюдаться соответствие оборотов по дебету сч. 68.02 «Налог на добавленную стоимость» в корреспонденции со сч. 19.
5. Регистр «НДС расчеты с покупателями» - Отчет «Остатки и обороты». Остаток по регистру должен совпадать с остатком по сч. 62 «Расчеты с покупателями и заказчиками».

Разумеется, приведенный перечень проверок далеко не полный, его можно расширять в соответствии с необходимостью организаций.

Возникает вопрос, по каким причинам возможны расхождения между счетами бухгалтерского учета и регистрами подсистемы учета НДС? Одна из самых распространенных – формирование проводок по НДС или по взаиморасчетам с контрагентами за реализованные/приобретенные ценности с помощью ручных операций. Результатом таких действий станет некорректное автоматическое заполнение регламентных документов учета НДС, таких как «Регистрация оплаты поставщику для НДС», «Регистрация оплаты от покупателей для НДС», «Формирование записей книги покупок», «Формирование записей книги продаж». Для корректного отражения в регистрах учета НДС для таких операций в систему существуют соответствующие документы, например «Корректировка долга», «Списание НДС».

Также встречаются ситуации, когда в документы реализации или поступления, платежные поручения вносятся изменения после формирования регламентных документов по учету НДС.

Если подобные ошибки произошли в текущем периоде, поправить ситуацию можно, перезаполнив регламентные документы по НДС.

Для исправления ошибок, допущенных в прошлом периоде, можно использовать документ «Корректировка записей регистров».

Допустим, что организацией были приобретены ТМЦ (в программе поступление отражено документом «Поступление товаров и услуг»), НДС по которым не может быть принят к вычету, и с помощью ручной операции был отнесен в дебет сч. 91. В этом случае в регистре «НДС предъявленный» останется остаток. При заполнении документа «Формирование записей книги покупок» в него будет попадать НДС по вышеуказанному поступлению, и если не удалить вручную этот НДС из документа, при проведении сформируется проводка по возмещению НДС, и на сч. 19 образуется кредитовый остаток. Поправить ситуацию можно с помощью документа «Корректировка записей регистров» (меню «Операции» – «Документы» – «Корректировка записей регистров»).
title

В документе необходимо перейти на закладку «Регистры накопления», нажать кнопку «Настройка состава регистров», в открывшемся окне проставить галочку у регистра «НДС предъявленный». В таблице добавить строку с видом движения «Расход» и заполнить остальные поля в соответствии с документом оприходования ТМЦ.

С помощью данного документа можно корректировать любые регистры. Документ рекомендуется использовать очень осторожно, в случае некорректного его заполнения в регистрах может возникнуть еще большее несоответствие с данными бухгалтерского учета.

Александр Ильичев, источник.

Категория: 1С Бухгалтерия 2.0

Установка полей и масштаба документа при сохранении из 1С

MS Excel

Код 1C v 8.х

 Попытка

    Excel = Новый COMОбъект("Excel.Application");

Исключение

    Сообщить("ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа!

    | - " + ОписаниеОшибки(), СтатусСообщения.ОченьВажное);

    Возврат;

КонецПопытки;



ТабДокумент = ПечатьЦенника(ВидЦенника);

ИмяФайла = ПутьДляСохранения+"\"+ТабДокумент.ИспользуемоеИмяФайла+".xls";

ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

   

МакетОформления = Неопределено;

// Откроем табличный документ



Excel.Workbooks.Open(ИмяФайла);

КнигаExcel = Excel.Workbooks.Item(Excel.Workbooks.Count);



ЛистExcel = КнигаExcel.WorkSheets.Item(1);



КнигаExcel.Activate();

ЛистExcel.Activate();



//Установка полей

//Значение - points. Придется делать пересчет (100 points = 3.8 inches)

ЛистExcel.PageSetup.LeftMargin   = 28;

ЛистExcel.PageSetup.RightMargin  = 28;

ЛистExcel.PageSetup.TopMargin    = 25;

ЛистExcel.PageSetup.BottomMargin = 25;



//Установка ориентации

Если ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт Тогда

    ЛистExcel.PageSetup.Orientation = 2;

Иначе

    ЛистExcel.PageSetup.Orientation = 1;

КонецЕсли;

   

//Установка масштаба печати

ЛистExcel.PageSetup.Zoom = ТабДокумент.МасштабПечати;



//Сохранение в Мои документы

КнигаExcel.Save();

   

//Покажем книгу на экран

Excel.Visible = 1;

   

//Отключаем COM - соединение

Excel.Quit();

OpenOffice Calc

Код 1C v 8.х

 Попытка

   СервисМанагер = Новый  COMОбъект("Com.Sun.Star.ServiceManager");

Исключение

   Сообщить("Не могу создать объект Open Office!

   | - " + ОписаниеОшибки(), СтатусСообщения.ОченьВажное);   

   Возврат;

КонецПопытки;

   

ТабДокумент = ПечатьЦенника(ВидЦенника);



ИмяФайла = ПутьДляСохранения+"\"+ТабДокумент.ИспользуемоеИмяФайла+".xls";

ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

      

МакетОформления = Неопределено;

// Откроем табличный документ

Скрипт = новый COMОбъект("MSScriptControl.ScriptControl");

   Скрипт.language = "javascript";

   Скрипт.eval("Massiv=new Array()");             

   Массив = Скрипт.eval("Massiv");

   Скрипт.AddObject("СервисМанагер",СервисМанагер);

   Скрипт.eval("Massiv[0]=СервисМанагер.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");

   Скрипт.eval("Massiv[0].Name='Hidden'");

   Скрипт.eval("Massiv[0].Value=true");

Стол = СервисМанагер.createInstance("com.sun.star.frame.Desktop");

ВремПуть = СтрЗаменить(ПутьДляСохранения, "\", "/");

ВремПуть = СтрЗаменить(ВремПуть, " ", "%20");

УРЛ = "file:///"+ВремПуть+"/"+ТабДокумент.ИспользуемоеИмяФайла+".xls";



Документ = Стол.LoadComponentFromURL(УРЛ,"_blank",0,Массив);

Документ.lockControllers();

Документ.addActionLock();



Листы=Документ.getSheets();

ЛистДанные=Листы.getByIndex(0);



СтилиСтраницы=Документ.StyleFamilies.getByName("PageStyles");

ПараметрыСтраницы=СтилиСтраницы.getByName(ЛистДанные.PageStyle);



//Установка полей

ПараметрыСтраницы.LeftMargin   = ТабДокумент.ПолеСлева  * 100;

ПараметрыСтраницы.RightMargin  = ТабДокумент.ПолеСправа * 100;

ПараметрыСтраницы.TopMargin    = ТабДокумент.ПолеСверху * 100;

ПараметрыСтраницы.BottomMargin = ТабДокумент.ПолеСнизу  * 100;



//Установка ориентации

Если ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт Тогда

   ПараметрыСтраницы.IsLandscape = Истина;

   ПараметрыСтраницы.Width  = 29700;

   ПараметрыСтраницы.Height = 21000;

Иначе

   ПараметрыСтраницы.IsLandscape = Ложь;

   ПараметрыСтраницы.Width  = 21000;

   ПараметрыСтраницы.Height = 29700;

КонецЕсли;



//Установка масштаба печати

ПараметрыСтраницы.PageScale = ТабДокумент.МасштабПечати;



//Сохранение документа

Документ.unlockControllers();

Документ.removeActionLock();

Документ.store();

Документ.Close(Истина);



//Отключаем COM - соединение

Стол.terminate();

Категория: Работа с Microsoft Office и OpenOffice

Как из 1С написать формулу в Excel

Объяснить мне сразу трудно - поэтому давайте "на пальцах"
Свежий простой пример :
вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "

первое на что хочу обратить внимание
те функции которые Вы видите визуально в ячейке MS EXCEL для 1С "слегка не знакомы", ей лучше озвучить имя функции на VBA

откуда Вы знаете как это функция на VBA называется ???

я Вам расскажу, немного терпения:
1. открываем новую книгу MS EXCEL
2. идем в меню Сервис - Макрос - Начать запись - Ок (появится маленькое окошко с квадратной кнопкой - его не кое случае не закрывать)
3. кликаем ячейку "С1" и пишем в ней формулу =СЦЕПИТЬ(E1;C7)
4. после этого нажимаем на квадратную кнопочку (Мы только что с Вами записали макрос на языке VBA)
5.посмотрим что получилось
идем в меню Сервис - Макрос - Макросы - (там будет в новой книге по умолчанию Макрос1) - выбираем его и нажимаем кнопку "Войти"

Поздравляю - мы попали во встроенный редактор VBA (аналог конфигурартора 1С)

и что мы видим

Код

Sub Макрос1()

Range("C1").S_elect
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"
Range("C2").S_elect

End Sub

теоритически нам нужно только

Код

Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"

это и будет для 1С =

Код 1C v 7.x

 Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "

Проверим, напишем код на любимом 1С:

Код 1C v 7.x

 Процедура Сформировать()

Перем Кат,Шаб;



Ехсел=СоздатьОбъект("Excel.Application");

Книга=Ехсел.Workbooks;

Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда

     Книга.Open(Шаб+Кат);  

     Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";  

     Книга.Close();

     Ехсел="";  

КонецЕсли;

КонецПроцедуры

все работает.

немного подумав, Вы поймете, что

Код 1C v 7.x

 Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";

можно заменить на

Код 1C v 7.x

 Ехсел.Cells(1, 3).FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";

и результат не изменится, а возможностей прибавится.
В MS EXCEL только амлет нельзя пожарить - возможности его одурманивают.

Tatitutu

Категория: Работа с Microsoft Office и OpenOffice

Функция открывает таблицу в MS Excel

Код 1C v 7.x

 Код

//Функция открывает таблицу в MS Excel

//Таблица         - печатная форма 1С

//ИмяЛиста         - имя, которое будет присвоено листу книги MS Excel (если не задано, то остается "Sheet1")

//ОтображатьЯрлычки   - показывать/скрыть ярлычки листов в MS Excel

//ОтображатьСетку   - показывать/скрыть линии сетки в MS Excel

//УдалитьСтроки      - позволяет удалить указанное количество верхних строк таблицы

//УдалитьСтроки      - позволяет удалить указанное количество левых столбцов таблицы

Функция глОткрытьТаблицуВExcel(Таблица, ИмяЛиста = "", ОтображатьЯрлычки = 1, ОтображатьСетку = 1, УдалитьСтроки = 0, УдалитьСтолбцы = 0) Экспорт

   Перем Excel, ExcelWB, ExcelSh, ExcelPS, ИмяФайла, Рез, Зн, Зн1;

   

   Если ТипЗначенияСтр(Таблица) <> "Таблица" Тогда

      Возврат 0;

   КонецЕсли;    

   

   Попытка

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

   Исключение

      Сообщить("Не удалось открыть MS Excel","!");

      Возврат 0;

   КонецПопытки;

   

   Пока 1=1 Цикл

      //Подберем уникальное имя для временного файла

      ИмяФайла = КаталогВременныхФайлов() + "1c" + СтрЗаменить(ТекущееВремя(), ":", "");

      Если (ФС.СуществуетФайл(ИмяФайла+".tmp") = 1) или (ФС.СуществуетФайл(ИмяФайла+".xls") = 1) Тогда

         ФС.УдалитьФайл(ИмяФайла+".tmp");

         ФС.УдалитьФайл(ИмяФайла+".xls")

      Иначе

         Прервать;

      КонецЕсли

   КонецЦикла;

   

   Таблица.Записать(ИмяФайла+".tmp", "XLS");

   

   Если ФС.СуществуетФайл(ИмяФайла+".tmp") = 0 Тогда

      Сообщить("Ошибка записи файла """ + ИмяФайла + "tmp""","!");

      Excel = "";

      Возврат 0;

   КонецЕсли;    

   

   Рез = 1;

   

   Попытка

      ExcelWB = Excel.Workbooks.Add(ИмяФайла+".tmp");   //Откроем временный файл в Excel в режиме шаблона (чтобы не блокировать файл)

      Попытка                                 //Если на клиентской машине не установлен принтер, обращение к настройкам страницы вызывает ошибку. Поэтому работаем в "Попытка ... КонецПопытки"

         ExcelPS = ExcelWB.Sheets(1).PageSetup;      //Исправим спецсимволы в колонтитулах

         Зн = ExcelPS.LeftHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.LeftHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.CenterHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.CenterHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.RightHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.RightHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.LeftFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.LeftFooter   = Зн1 КонецЕсли;

         Зн = ExcelPS.CenterFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.CenterFooter   = Зн1 КонецЕсли;

         Зн = ExcelPS.RightFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.RightFooter   = Зн1 КонецЕсли;

      Исключение

      КонецПопытки;

      

      ExcelWB.SaveAs(ИмяФайла+".xls", -4143);         //Сохраним, чтобы обновить формат файла до текущего (xlNormal = -4143)

      ExcelWB.Close(0);                        //Закроем книгу ...

      ExcelWB = Excel.Workbooks.Add(ИмяФайла+".xls");   //... и вновь откроем в режиме шаблона

      

      Попытка

         ExcelSh = ExcelWB.Sheets(1);

         

         Если ПустаяСтрока(ИмяЛиста) = 0 Тогда         //Зададим имя ярлычка

            ExcelSh.Name = ИмяЛиста

         КонецЕсли;

         

         Если ОтображатьЯрлычки = 1 Тогда            //Сделаем видимыми ярлычки листов

             ExcelWB.Windows(1).DisplayWorkbookTabs = 1;

            ExcelWB.Windows(1).TabRatio = 0.6         //... и отодвинем горизонтальную полосу прокрутки от левого края

         КонецЕсли;

         

         Если ОтображатьСетку = 0 Тогда               //Скроем линии сетки

            ExcelWB.Windows(1).DisplayGridlines = 0

         КонецЕсли;

      

         Если УдалитьСтроки > 0 Тогда               //Удалим верхние строки

            ExcelSh.Range(ExcelSh.Rows(1), ExcelSh.Rows(УдалитьСтроки)).Delete()

         КонецЕсли;

         

         Если УдалитьСтолбцы > 0 Тогда               //Удалим левые столбцы

            ExcelSh.Range(ExcelSh.Columns(1), ExcelSh.Columns(УдалитьСтолбцы)).Delete()

         КонецЕсли;

      Исключение

      КонецПопытки;

      

      ExcelWB.Saved = 0;

   Исключение

      Сообщить("Ошибка открытия файла в MS Excel","!"); Рез = 0

   КонецПопытки;

   

   Попытка

      Excel.Visible = 1

   Исключение

   КонецПопытки;  

   

   ExcelWB = ""; ExcelSh = ""; ExcelPS = ""; Excel = "";

   ФС.УдалитьФайл(ИмяФайла+".tmp");

   ФС.УдалитьФайл(ИмяФайла+".xls");

   Возврат Рез

КонецФункции //глОткрытьТаблицуВExcel

Автор неизвестен, если код ваш, напишите в комментариях

Категория: Работа с Microsoft Office и OpenOffice

Подключение к EXCEL и чтение данных из листа Excel

Код 1C v 8.х

 Ex = Новый COMObject("Excel.Application");

   Ex.Workbooks.Open(Путь);

   Ex.Visible = 1;    

   ТекЛист=Ex.WorkSheets(1);        

   Для Ячейка = 1 по 400 цикл

       Если НЕ  ТекЛист.Cells(Ячейка,1).Value  = Неопределено тогда

           Сообщить(Строка(ТекЛист.Cells(Ячейка,1).Value));    

           Карта = Справочники.Номенклатура.НайтиПоКоду(ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));    

           Если Карта.Пустая() тогда        

               Сообщить(" Пустой элемент "  + ТекЛист.Cells(Ячейка,1));

           иначе

               Объект = Карта.ПолучитьОбъект();

               Объект.ОсновнойПоставщик = ОсновнойКлиент;

               Объект.Записать();

               конецесли;    

       конецесли;

   конеццикла;

Примеры процедур для чтения данных из EXCEL

Код 1C v 8.х

 

// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл - Имя файла

//   пЛист - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_ADO(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0) Экспорт



    #Если Клиент Тогда

    Состояние("Установка соединения с Excel");

    #КонецЕсли



    //ЗаголовкиВСтроке1 = "HDR=YES;"

    ЗаголовкиВСтроке1 = "HDR=NO;";



    СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + СокрЛП(пФайл) +" ;Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";



    Connection = Новый COMОбъект("ADODB.Connection");

    Connection.ConnectionString =  СтрокаСоединения;



    Попытка

        Connection.Open();

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    RS = Новый COMОбъект("ADODB.Recordset");



    ТекстЗапроса =

    "S_elect

    |    Лист.*

    |FROM

    |    [" + пЛист + "$] as Лист";



    Попытка

        RS.Open(ТекстЗапроса, Connection);

    Исключение

        Сообщить ("Проблемы с выполнением запроса");

        Возврат Неопределено;

    КонецПопытки;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По RS.Fields.Count Цикл

            Поле = RS.Fields.Item(Счетчик - 1);

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НомерСтроки = 0;

    КолвоСтрок  = RS.RecordCount;



    Пока RS.EOF() = 0 Цикл



        НомерСтроки = НомерСтроки + 1;



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        Если НомерСтроки < НачСтрока Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;



        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда

            Прервать;

        КонецЕсли;



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для Счетчик = 1 По RS.Fields.Count Цикл



                Поле = RS.Fields.Item(Счетчик - 1);

                НоваяСтрока["К" + Счетчик] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



        // Обработка других полей

        RS.MoveNext();



    КонецЦикла;



    // Завершение работы



    RS.Close();

    Connection.Close();



    Возврат Таблица;



КонецФункции



// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



    #Если Клиент Тогда

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    Для НомерСтроки = НачСтрока По КонСтрока Цикл



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КонСтрока));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, НомерКолонки);

                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



КонецФункции



// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COMArray(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



    #Если Клиент Тогда

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        МаксимальныйНомерКолонки = 0;

        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

            МаксимальныйНомерКолонки = Макс(МаксимальныйНомерКолонки, КлючИЗначение.Значение);

        КонецЦикла;



        КолвоКолонок = Мин(КолвоКолонок, МаксимальныйНомерКолонки);



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    // Массив типа COMSafeArray

    Массив = Лист.Range(Лист.Cells(НачСтрока, 1), Лист.Cells(КонСтрока, КолвоКолонок)).Value;

    КолвоСтрок   = Массив.GetUpperBound(1);



    Для НомерСтроки = 1 По КолвоСтрок Цикл



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Массив.GetValue(НомерКолонки, НомерСтроки);



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                НоваяСтрока[КлючИЗначение.Ключ] = Массив.GetValue(КлючИЗначение.Значение, НомерСтроки);



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



КонецФункции



// Функция получает список листов Excel

//

// Параметры:

//   пФайл - Имя файла

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   СписокЗначений

//

Функция Excel_ПолучитьСписокЛистов(пФайл, XLSОбъект = Неопределено) Экспорт



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Возврат Новый СписокЗначений;

    КонецПопытки;



    СписокЛистов = Новый СписокЗначений;

    Для каждого Лист Из XLSОбъект.Sheets Цикл

        СписокЛистов.Добавить(Лист.Name);

    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат СписокЛистов;



КонецФункции

Код 1C v 7.x

 Попытка

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

 Исключение

  Сообщить(ОписаниеОшибки()+"; программа Excel не установлена на данном компьютере!");

     Возврат;

 КонецПопытки;

РабочиеКниги=Excel.WorkBooks;  // создаем рабочую книгу



 Попытка // открываем файл

  Отчет=РабочиеКниги.Open(Каталог+ИмяФайла); 

 Исключение 

  Сообщить(ОписаниеОшибки()+"; фаил с макросом не найден!");

  Возврат;

 КонецПопытки;



// заносим в таблицу какие-либо данные



 Лист = Отчет.Worksheets(1);



 Для Ном=1 По 20 Цикл

      Ячейка = Лист .Cells(ном,1); Ячейка.Value;

      Сообщить(Ячейка );

 КонецЦикла; 



Excel.Visible=1;



Попытка

      Отчет.Save();

Исключение

     Сообщить(ОписаниеОшибки()+"; не могу сохранить отчет!");

  Возврат;

 КонецПопытки;

Категория: Работа с Microsoft Office и OpenOffice