Процедура Сформировать()
Если ПустаяСтрока(СокрЛП(ФайлПуть))=0 Тогда
Попытка
ЯчМС=СоздатьОбъект("Excel.Application");
Исключение
Предупреждение("Невозможно создать объект Excel. Вероятно у вас не истановлен MS EXCEL!");
Возврат;
КонецПопытки;
Попытка
ЯчМС.WorkBooks.Open(СокрЛП(ФайлПуть));
СпрТов=СоздатьОбъект("Справочник.ТОВАРЫ");
СпрНДС=СоздатьОбъект("Справочник.НДС");
Док=СоздатьОбъект("Документ.ПриходнаяНакл");
док.АвтоВремяТекущее();
Док.Новый();
Док.УстановитьНовыйНомер();
///обрабатываем ячейки, и вытягиваем из выйла значения

док.Товар = Спр.ТекущийЭлемент();
док.Количество = Кол;
док.ЦенаИзг = Цен;
док.НаценкаПост = нацп;
док.ВхСумма = ст;
док.СуммаКОплате = СН;
док.Наценка = ТПр;
док.НДСРозн = СпрНДС.ТекущийЭлемент();
док.СуммаНДСРозн = НС;
док.СуммаНал = НПС;
док.Цена = РЦ;
док.Сумма = РС;
КонецЦикла;
Док.ВидПрихода = Перечисление.ВидПрихода.ПриходОтПоставщика;
Док.Записать();
Сообщить("Ок2"); !!!!-не сообщает
дПН=СоздатьОбъект("Документ.ПриходнаяНакл");
дПН.НайтиДокумент(Док.ТекущийДокумент());
спКонт=СоздатьОбъект("СписокЗначений");
спКонт.ДобавитьЗначение("ПересчетСтрок");
спКонт.Установить("ур",3);
ОткрытьФорму(дПН.ТекущийДокумент(),спКонт,0);
Сообщить("Ок3");
дПН=СоздатьОбъект("Документ.ПриходнаяНакл");
дПН.НайтиДокумент(Док.ТекущийДокумент());
дпн.ВыбратьСтроки();
Пока дпн.ПолучитьСтроку() = 1 Цикл
дпн.Наценка=ТС;
КонецЦикла;
дпн.Записать();
спКонт=СоздатьОбъект("СписокЗначений");
спКонт.ДобавитьЗначение("ПересчетСтрок");
спКонт.Установить("ур",10);
ОткрытьФорму(дПН.ТекущийДокумент(),спКонт,0);
Сообщить("Ок4");
спспсп="";
ОткрытьФорму(дПН.ТекущийДокумент(),спспсп,0);
спспсп.форма.обновить();
Сообщить("Ок5");
ЯчМС.Workbooks(ИмяФайла).Close();
Исключение
ЯчМС.Workbooks.Close();
ЯчМС.quit();
КонецПопытки;
КонецЕсли;
КонецПроцедуры

млин, не красиво получилось :)
после пустой строки в 16-той :)

Господин ПЖ, тут и так его половина...
получилось нечитабельно...

тут вот...
до этой строки все выполняется...
и не выдает никаких ошибок

1с в 7.7

Господин ПЖКонецЦикла;

в середке - он вообще откуда?
там пропущено строк 40...

bot67re_qas,

ну так чтобы вылетело с ошибкой - убери Попытку. Или в обработку исключения добавь ОписаниеОшибки() чтобы понять что случилось..
туплю... нашел...
там номер дока автомотически не проставлялся :)

re_qas
там номер дока автомотически не проставлялся :)