Здравствуйте, после повторного импорта выходит сообщение о конфликте имен. Как это исправить, подскажите пожалуйста?
Процедура КнопкаВыполнитьНажатие(Кнопка)
Попытка
МойЭксель = Новый COMОбъект("Excel.Application")
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Книга = МойЭксель.WorkBooks.Open("C:\test.xlsx");
Лист = Книга.WorkSheets(7);
ВсегоКолонок = 2;
ВсегоСтрок = 5;
для Строки = 2 по ВсегоСтрок цикл
Спр = Справочники.Инвент.СоздатьЭлемент();
Значение = СокрЛП(Лист.CellsСтроки,ВсегоКолонок).Value);
Спр.НаименованиеОС = Значение;
Спр.Записать();
Всё просто. Временный файл после первого прогона в папке не закрыт и не удален, поэтому не может записать второй временный файл. Если код верный - закройте сесию винды и зайдите заново и всё будет ОК.
Процедура КнопкаВыполнитьНажатие(Кнопка)
Попытка
МойЭксель = Новый COMОбъект("Excel.Application")
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
МойЭксель.displayalerts = 0;
Книга = МойЭксель.WorkBooks.Open("C:\test.xlsx");
Лист = Книга.WorkSheets(7);
ВсегоКолонок = 2;
ВсегоСтрок = 5;
для Строки = 2 по ВсегоСтрок цикл
Спр = Справочники.Инвент.СоздатьЭлемент();
Значение = СокрЛП(Лист.CellsСтроки,ВсегоКолонок).Value);
Спр.НаименованиеОС = Значение;
Спр.Записать();
КонецЦикла;
Лист = "";
Книга.Close(Ложь);
Книга = "";
МойЭксель = "";
КонецПроцедуры
-------------
ну и прибей все excel в диспетчере задач в твоем сеансе
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой