Помогите сделать обработку по загрузке данных из Excel c созданием документа пересчета.

Добрый день. Текст модуля следующий:


&НаКлиенте
Процедура Загрузить(Команда)
    
     ЗагрузкаExcel();
    
КонецПроцедуры

Процедура ЗагрузкаExcel()
    // Попытка открытия файла Excel
    Попытка
        Excel = Новый COMОбъект("Excel.Application");
        Excel.WorkBooks.Open(Объект.ФайлExcel);
    Исключение
        Сообщить("При открытии файла произошла ошибка! Операция прервана!");
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    // Попытка выбрать первый лист
    // Можно указать любой другой
    Попытка
        Excel.Sheets(1).Select();    
    Исключение
        // Закрытие файла в том случае, если первый лист не найден
        Excel.ActiveWorkbook.Close();     
        Excel = 0;
        Сообщить("Первый лист не найден!");
        ОтменитьТранзакцию();
        Возврат;
    КонецПопытки;
    
    // Вычисление количества строк и колонок в зависимости от версии Excel
    vExcel = Лев(Excel.Version, Найти(Excel.Version,".")-1);
    Если vExcel = "8" тогда
        КоличествоСтрок = Excel.Cells.CurrentRegion.Rows.Count;
        КоличествоКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
    Иначе
        КоличествоСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
        КоличествоКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
    Конецесли;
    
    // Проверка корректности заполнения колонок
    // Имена колонок в Excel файле должны совпадать с именами реквизитов табличной части, в которую загружаются данные
    // Переменная МассивКолонок содержит список номеров колонок, которые будут перегружаться
    
    МассивКолонок = Новый ТаблицаЗначений;
    МассивКолонок.Колонки.Добавить("НомерКолонки");
    МассивКолонок.Колонки.Добавить("НазваниеКолонки");
    
    Для КолонкаОтсчета = 1 по КоличествоКолонок Цикл
        ИмяКолонки = Excel.Cells(1, КолонкаОтсчета).Text;
        
        // Удаление лишних пробелов из имен колонок
        ИмяБезПробелов = СтрЗаменить(ИмяКолонки," ","");
        
        // Проверка наличия реквизитов табличной части "Товары" в документе "УстановкаЦен"
        Если НЕ НаличиеРеквизитаТЧ(ИмяБезПробелов, Метаданные.Документы.ПересчетТоваров, "Товары") Тогда
            
            Сообщить("Не найден реквизит с именем " + ИмяБезПробелов + "! Колонка не будет загружена!");
            
        Иначе
            
            НовСтрока = МассивКолонок.Добавить();
            НовСтрока.НомерКолонки = КолонкаОтсчета;
            НовСтрока.НазваниеКолонки = ИмяБезПробелов;
            
        КонецЕсли;
        
    КонецЦикла;
    //
    //Если есть колонки для загрузки
    // и есть колонка "Номенклатура, которая является обязательным к заполнению реквизитом
    
    Если МассивКолонок.Количество() <> 0 и МассивКолонок.НайтиСтроки(Новый Структура("НазваниеКолонки", "Номенклатура")).Количество() <> 0 Тогда
        
        // Создание документа и заполнение реквизитов шапки
        НовыйДокумент = Документы.ПересчетТоваров.СоздатьДокумент();
        НовыйДокумент.Дата = ТекущаяДата();
        НовыйДокумент.Ответственный = ПараметрыСеанса.ТекущийПользователь;
        НовыйДокумент.Комментарий = "Загружено из файла " + Объект.ФайлExcel;
        
        // Заполнение табличной части "Товары"
        // Переменная СтрокаОтсчета - номер строки в Excel, с которой начинается заполнение
        Для СтрокаОтсчета = 2 по КоличествоСтрок Цикл
            
            НСтр = НовыйДокумент.Товары.Добавить();
            
            Для каждого СтрокаМассив из МассивКолонок Цикл
                
                ТекущееЗначение = Excel.Cells(СтрокаОтсчета, СтрокаМассив.НомерКолонки).Text;
                
                // Получение имени колонки
                ИмяКолонки = Excel.Cells(1, СтрокаМассив.НомерКолонки).Text;
                
                // Заполнение строки данными
                Если ИмяКолонки = "Номенклатура" Тогда
                    
                    НСтр.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекущееЗначение, Истина);
                    
                ИначеЕсли ИмяКолонки = "КоличествоФакт" Тогда
                    
                    НСтр.КоличествоФакт = ТекущееЗначение;
                    
                КонецЕсли;
                
            КонецЦикла;
            
        КонецЦикла;
        
        // Запись и проведение документа
        НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
        Сообщить("Создан и заполнен документ " + Строка(НовыйДокумент));
        
    Иначе
        
        Сообщить("В Excel файле не достаточно данных для заполнения документа!");
        
    КонецЕсли;
    
    Excel.DisplayAlerts = 0;
    Excel.Quit();
    Excel.DisplayAlerts = 1;
    
    //Элементы.ЗагружаемыйФайл.Прочитать(Объект.ФайлExcel);

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

&НаСервере
Функция НаличиеРеквизитаТЧ(ИмяРекв, МетаданныеДок, ИмяТЧ)
    
    // Проверка наличия ТЧ
    ТЧ = МетаданныеДок.ТабличныеЧасти.Найти(ИмяТЧ);
    
    Если ТЧ = Неопределено Тогда // Нет такой таб. части в документе
        Возврат Ложь;
    Иначе
        Возврат НЕ (ТЧ.Реквизиты.Найти(ИмяРекв) = Неопределено);
    КонецЕсли;
    
КонецФункции

&НаКлиенте
Процедура ФайлExcelНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Заголовок = "Выберите Excel - файл";
    Диалог.ПолноеИмяФайла = "c:\";
    Диалог.Фильтр = "Таблицы (*.xls,*.xlsx)|*.xls;*.xlsx;|Microsoft Excel 97/2000/XP/2003 (*.xls)|*.xls|Microsoft Excel 2007/2010 (*.xlsx)|*.xlsx";
    
    Если Диалог.Выбрать() Тогда
        Объект.ФайлExcel = Диалог.ПолноеИмяФайла;
    КонецЕсли;
    
    ТабличныйДокументПолучить();
    
КонецПроцедуры

&НаСервере
Процедура ТабличныйДокументПолучить()

    ЗагружаемыйФайл.Прочитать(Объект.ФайлExcel);

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

И в итоге возникает Ошибка пи вызове метода контекста(Оpen): Произошла исключительная ситуация (Microsoft Excel): Приложению  не удается получить доступ к файлу "путь файла". Это можеть быть вызвано одной из следующих причин: - не существующий файл, - файл используется другой программой, - имя книги совпадает с именем другой, открытой в данный момент.
Если это связано с директивами компиляции, то они типовые внопка на клиенте, все действия и таблица значений на сервере выполняются. ограничений к файлу нет вроде бы. Да, база клиент-серверная но я и на сервере это пытался делать и на своем компе, ни в какую.

В процессах нет Excel

B и такое прям с первого захода.

"Может использовать не Quit(), а Close() потом Quit()? " Не помогает :( Может у меня код кривой. С интернета скачал там все 1 в 1.

Я все перепробывал, ничего не работает(

помогитееее с обработкой загрузки данных из ексель, если ли у вас другая обработка по аналогии работающая как эта?

пробовал убрать все лишнее но ошибка не уходит.


правильно понял)

Произошла исключительная ситуация (Microsoft Excel): Приложению Microsoft Excel не удается получить доступ к файлу "C:\Users\\Desktop\TER\text1.xls". Это может быть вызвано одной из следующих причин.

• Указан несуществующий файл или путь.
• Файл используется другой программой.
• Имя книги, которую вы пытаетесь сохранить, совпадает с именем другой книги, открытой в данный момент.

{ВнешняяОбработка.ЗагрузкаИзExcel.Форма.Форма.Форма(14)}:        Excel.WorkBooks.Open("C:\Users\\Desktop\TER\text1.xls");
{ВнешняяОбработка.ЗагрузкаИзExcel.Форма.Форма.Форма(5)}:     ЗагрузкаExcel();

по причине:
Произошла исключительная ситуация (Microsoft Excel): Приложению Microsoft Excel не удается получить доступ к файлу "C:\Users\\Desktop\TER\text1.xls". Это может быть вызвано одной из следующих причин.

• Указан несуществующий файл или путь.
• Файл используется другой программой.
• Имя книги, которую вы пытаетесь сохранить, совпадает с именем другой книги, открытой в данный момент.

все также

"гугл программисты" есть такое (

в пути убрал свою фамилию)) чтобы не узнали такого олуха как я который пишет такие обработки)

Произошла исключительная ситуация (Microsoft Excel): К сожалению, нам не удалось найти файл D:\TER\text1.xls. Возможно, он был перемещен, переименован или удален?

{ВнешняяОбработка.ЗагрузкаИзExcel.Форма.Форма.Форма(14)}:        Excel.WorkBooks.Open("D:\TER\text1.xls");
{ВнешняяОбработка.ЗагрузкаИзExcel.Форма.Форма.Форма(5)}:     ЗагрузкаExcel();

по причине:

Произошла исключительная ситуация (Microsoft Excel): К сожалению, нам не удалось найти файл D:\TER\text1.xls. Возможно, он был перемещен, переименован или удален?

забыл дописать &НаСервере там стоит. И как мне известно если директива не стоит то по умолчанию используется НаСервере:) верно?

Пробовал создавать в Excel 2007, то есть .xlsx но все также файл не найден)

создвал и на сервере и на своем компе, но все в никакую ХД. МИСТика

жаль) я  думаю тут ничего не изменить. я Сдаюсь(

Всем откликнувшимся большое спасибо. Пойду искать обработки по загрузке из Excel! Увы и ах.