'    ActiveWorkbook.SaveAs Filename:=NewFileName _
'        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
'        ReadOnlyRecommended:=False, CreateBackup:=False
'    ActiveWorkbook.Close SaveChanges:=False 'закрытие сделанного Эксель-варианта Заказа.

Процедура КнопкаВыполнитьНажатие(Кнопка)    
   Книга = "";

   Если ЗначениеЗаполнено(Регистратор) И ЗначениеЗаполнено(Поставщик) Тогда      
            Запрос = Новый Запрос ("ВЫБРАТЬ
                                   |   ЗаказПоставщикуТовары.Номенклатура,
                                   |   ЗаказПоставщикуТовары.Количество,
                                   |   НоменклатураКонтрагентов.НомерСтрокиЭксельПрайса,
                                   |   ЗаказПоставщикуТовары.Номенклатура.Код
                                   |ИЗ
                                   |   Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
                                   |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
                                   |      ПО ЗаказПоставщикуТовары.Номенклатура = НоменклатураКонтрагентов.Номенклатура
                                   |         И ЗаказПоставщикуТовары.Ссылка.Контрагент = НоменклатураКонтрагентов.Контрагент
                                   |ГДЕ
                                   |   ЗаказПоставщикуТовары.Ссылка = &Ссылка");
      Запрос.УстановитьПараметр("Ссылка",Регистратор);
      ТЗ = Запрос.Выполнить().Выгрузить();
      Для каждого ТекСтрока Из ТЗ Цикл
         Текст = "";
         Если ТекСтрока.НомерСтрокиЭксельПрайса = 0 Тогда
            Текст = Текст + ТекСтрока.Номенклатура + "..." + ТекСтрока.Номенклатура.Код + Символы.ПС 
         КонецЕсли;    
      КонецЦикла;    
      Если Текст <> "" Тогда
         Сообщить ("Формирование Эксель-Формы ОТМЕНЕНО, т.к. среди товаров в документе есть товары, для которых НЕ заполнено поле" + Символы.ПС + "''Номер СТРОКИ Эксель-прайса'' (в регистре сведений ''Номенклатура контрагентов'')." + Символы.ПС + "Либо НЕ верно был выбран поставщик в этой форме." + Символы.ПС + "Проблемные товары:" + Символы.ПС + Текст);
      Возврат;
   КонецЕсли;
   
    //Если для всех позиций есть НомерСтрокиЭксельПрайса, то формируем Заказ. 
   Попытка
      Контрагент = Регистратор.Контрагент;
      Дистрибьютор = Регистратор.Организация;
      АдресДоставки = "Склады";
      ДатаЗаказа = Формат(ТекущаяДата(), "ДЛФ=Д"); // 01.01.2005
      ДатаДоставкиЖелаемая = ДатаЗаказа;
      КонтактноеЛицоДляПолучения = Регистратор.Ответственный;
      Телефон = "(066) 777-77-77";
      НомерДока = Регистратор.Номер;
      
      //Сообщить (Организация);
      Попытка
         Эксель = Новый COMОбъект("Excel.Application"); // для v7 код будет: Эксель = СоздатьОбъект("Excel.Application");
      Исключение
         Эксель.Quit(); //закрыли приложение.
         Сообщить(ОписаниеОшибки());
         Возврат;
      КонецПопытки;
              
      ВыбратьШаблонЗаказа(Книга,Эксель);
      Эксель.Run("Очистить");
      Лист = Книга.WorkSheets("Ф_Transit");
      //////////////Лист.Cells.ClearContents();//очищаем весь лист (содержимое).
      //ЭксельЗначение  = ЭксельОбъект.Clean(ЭксельЛист.Cells(2,2).Value); //очищаем ячейку (содержимое).
      Лист.Cells(1, 2).Value = Строка(Контрагент);
      Лист.Cells(2, 2).Value = Строка(Дистрибьютор); // Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;
      Лист.Cells(3, 2).Value = АдресДоставки;    
      Лист.Cells(4, 2).Value = Строка(ДатаЗаказа);    
      Лист.Cells(5, 2).Value = Строка(ДатаДоставкиЖелаемая); 
      Лист.Cells(6, 2).Value = Строка(КонтактноеЛицоДляПолучения); 
      Лист.Cells(7, 2).Value = Строка(Телефон);
      Лист.Cells(1, 3).Value = Строка(НомерДока);
      //Лист.Cells(8, 2).Value = Строка(Телефон);
      //Более 8-й строки нельзя (нет места). При необходимости писать в следующие колонки.
      
      i = 10; //заполняем, начиная с 10-й.
      Для Каждого Стр из ТЗ Цикл  
         Лист.Cells (i,2).Value = Строка(Стр.НомерСтрокиЭксельПрайса);
         Лист.Cells (i,3).Value = Число(Стр.Количество);
         i = i + 1;
      КонецЦикла;            

      Эксель.Visible = Истина;
      //'excel.run("testmacro.xls!SetColors",ActiveWorkbook,15,15395562);
      //Эксель.run("Вомонд_ШаблонЗаказаПоставщику_Форт.xlsb!Start",Книга,15,15395562);
      
      Эксель.Run("Start");// готовим файл-клон заказа. Если все Ок, то оба эксель-файла закрываем. 

      ФайлКлон = Книга.WorkSheets("Ф_Transit").Cells(10, 12).Value;
      Сообщить ("Эксель-вариант Заказа поставщику " + ФайлКлон + " создан.");      
      Эксель.Quit(); //закрыли приложение.
   Исключение
      Эксель.Quit(); //закрыли приложение.
      Сообщить(ОписаниеОшибки());
      Возврат;
   КонецПопытки;
Иначе
   Предупреждение("Заполните, пожалуйста, оба поля.");
   КонецЕсли
КонецПроцедуры

Процедура ВыбратьШаблонЗаказа(Книга,Эксель)
Если Поставщик = "ВОМОНД" Тогда
Книга = Эксель.WorkBooks.Open("C:\1С_Форт_ШАБЛОНЫ_Экспорт\ШаблоныПоставщиков\Вомонд_ШаблонЗаказаПоставщику_Форт.xlsb"); //ПолноеИмяФайла.
//Возврат
КонецЕсли;
КонецПроцедуры   

Set wb = ActiveSheet.Parent
    wb.SaveAs Filename:=NewFileName _
            , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
              ReadOnlyRecommended:=False, CreateBackup:=False
    wb.Close SaveChanges:=False    'закрытие сделанного Эксель-варианта Заказа.