Workbooks open неизвестная ошибка

При открытии (сохранении) отчета, сформированного в Альфа-Авто, в Excel 2010 стала появляться Неизвестная ошибка:

{ОбщаяФорма.Отчет.Форма(962)}: Ошибка при вызове метода контекста (Open)

    Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

по причине:

Неизвестная ошибка

Вроде на форуме 1С-Рарус нашел решение подобной проблемы https://rarus.ru/forum/messages/forum7/topic10978/message62444/#message62444, но замена расширения у файла tmpxls.xls на xlsx мне не помогла:

Произошла исключительная ситуация (Microsoft Excel): Не удается открыть файл «tmpxls.xlsx», так как формат или расширение этого файла являются недопустимыми. Убедитесь, что файл не поврежден и расширение его имени соответствует его формату

    Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xlsx»);    //+МВ 14.02.2019 xls дает Неизвестная ошибка

по причине:

Произошла исключительная ситуация (Microsoft Excel): Не удается открыть файл «tmpxls.xlsx», так как формат или расширение этого файла являются недопустимыми. Убедитесь, что файл не поврежден и расширение его имени соответствует его формату

А настройках безопасности Excel затрудняюсь… Дело в том, что КаталогВременныхФайлов(), в который пишется tmpxls.xls, находится D:UsersmvAppDataLocalTemp3. Не знаю, как его назначает система? А пытаюсь добавить его в Надежное расположение, и не дает, говорит не является допустимым!? https://jpegshare.net/e7/32/e7329ffaad896b0109bb8f5689f1e368.jpg.html

Как побороть проблему?

>стала появляться Неизвестная ошибка

Признавайтесь что меняли что стала ошибка появляться? Одмины с правами на сервере не игрались?

(8) Ты понимаешь что сервер 1С запускается от другого юзера не от того что клиент 1С ?

Или у вас там файловая база?

(9) Рабочая база SQL, а отлаживаю в файловой копии — одна и та же ошибка:

{ОбщаяФорма.Отчет.Форма(963)}: Ошибка при вызове метода контекста (Open)

        Excel.Workbooks.Open(КаталогВременныхФайловExcel);

по причине:

Неизвестная ошибка

и для расширения xls, и для xlsx.

Где в системе назначается КаталогВременныхФайлов()? Хочу ее поменять, хотя бы под собой для проверки.

(10) попробуй тогда

Excel.Workbooks.Open(КаталогВременныхФайловExcel + «tmpxls.xlsx»);

или

Excel.Workbooks.Open(КаталогВременныхФайловExcel + «tmpxls.xlsx»);

(16) Одна из функций (самая короткая) без каких либо изменений (всего их 4):

// Открыть отчет в формате Excel

Процедура ОткрытьВExcelТабличныйДокумент(Excel, ДокументРезультат) Экспорт

        
        ДокументРезультат.Записать(КаталогВременныхФайлов() + «tmpxls.xls», ТипФайлаТабличногоДокумента.HTML);

        Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

        tmpBook = Excel.Workbooks.Item(Excel.Workbooks.Count);

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

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

        КнигаExcel.Colors = tmpBook.Colors;

        tmpBook.Sheets(1).Cells.Copy(ЛистExcel.Cells);

        tmpBook.Close();         

        КнигаExcel.Activate();

        ЛистExcel.Activate();

        Excel.Visible = 1;

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

(18) Другая, чуть подлиннее:

// Процедура открывает в MS Excel табличный документ или сводную таблицу

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

    Попытка

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

    Исключение

        Сообщить(«ОШИБКА! Приложение MS Excel отсутствует или недостаточно прав доступа!

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

        Возврат;

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

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

    ЭлементыФормы.ТабличныйДокумент.Записать(КаталогВременныхФайлов() + «tmpxls.xls», ТипФайлаТабличногоДокумента.XLS);

    Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

    tmpBook = Excel.Workbooks.Item(Excel.Workbooks.Count);

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

    КнигаExcel.Colors = tmpBook.Colors;

    tmpBook.Sheets(1).Copy(КнигаExcel.WorkSheets(1));

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

    //tmpBook.Sheets(1).Cells.Copy(ЛистExcel.Cells);

    tmpBook.Close();

    //ЛистExcel.Name=ЭтаФорма.ОбъектПредставление;

    Если ЭлементыФормы.ТабличныйДокумент.ОриентацияСтраницы=ОриентацияСтраницы.Портрет Тогда

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

    Иначе

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

    КонецЕсли;

    ПолеСлева=ЭлементыФормы.ТабличныйДокумент.ПолеСлева/25.4;

    ПолеСправа=ЭлементыФормы.ТабличныйДокумент.ПолеСправа/25.4;

    ПолеСверху=ЭлементыФормы.ТабличныйДокумент.ПолеСверху/25.4;

    ПолеСнизу=ЭлементыФормы.ТабличныйДокумент.ПолеСнизу/25.4;

    ЛистExcel.PageSetup.LeftMargin = Excel.Application.InchesToPoints(ПолеСлева);

    ЛистExcel.PageSetup.RightMargin = Excel.Application.InchesToPoints(ПолеСправа);

    ЛистExcel.PageSetup.TopMargin = Excel.Application.InchesToPoints(ПолеСверху);

    ЛистExcel.PageSetup.BottomMargin = Excel.Application.InchesToPoints(ПолеСнизу);

    КнигаExcel.Activate();

    ЛистExcel.Activate();

    Excel.Visible = 1;

    Excel = «»;

КонецПроцедуры    //    ДействияФормыОткрытьВExcel()

(17) здесь уберите HTML

      ДокументРезультат.Записать(КаталогВременныхФайлов() + «tmpxls.xls», ТипФайлаТабличногоДокумента.HTML);

давайте эти эксперименты на потом.

Внес изменения в (19):

// Процедура открывает в MS Excel табличный документ или сводную таблицу

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

    Попытка

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

    Исключение

        Сообщить(«ОШИБКА! Приложение MS Excel отсутствует или недостаточно прав доступа!

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

        Возврат;

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

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

    ЭлементыФормы.ТабличныйДокумент.Записать(КаталогВременныхФайлов() + «tmpxls.xls», ТипФайлаТабличногоДокумента.XLS);

    ОшибкаОткрытия = Ложь;    //+МВ 18.02.2019

    Попытка

        Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

    Исключение

        Сообщить(«Ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                 |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

        ОшибкаОткрытия = Истина;

    КонецПопытки;    //-МВ

    tmpBook = Excel.Workbooks.Item(Excel.Workbooks.Count);

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

    КнигаExcel.Colors = tmpBook.Colors;

    tmpBook.Sheets(1).Copy(КнигаExcel.WorkSheets(1));

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

    //tmpBook.Sheets(1).Cells.Copy(ЛистExcel.Cells);

    tmpBook.Close();

    //ЛистExcel.Name=ЭтаФорма.ОбъектПредставление;

    Если ЭлементыФормы.ТабличныйДокумент.ОриентацияСтраницы=ОриентацияСтраницы.Портрет Тогда

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

    Иначе

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

    КонецЕсли;

    ПолеСлева=ЭлементыФормы.ТабличныйДокумент.ПолеСлева/25.4;

    ПолеСправа=ЭлементыФормы.ТабличныйДокумент.ПолеСправа/25.4;

    ПолеСверху=ЭлементыФормы.ТабличныйДокумент.ПолеСверху/25.4;

    ПолеСнизу=ЭлементыФормы.ТабличныйДокумент.ПолеСнизу/25.4;

    ЛистExcel.PageSetup.LeftMargin = Excel.Application.InchesToPoints(ПолеСлева);

    ЛистExcel.PageSetup.RightMargin = Excel.Application.InchesToPoints(ПолеСправа);

    ЛистExcel.PageSetup.TopMargin = Excel.Application.InchesToPoints(ПолеСверху);

    ЛистExcel.PageSetup.BottomMargin = Excel.Application.InchesToPoints(ПолеСнизу);

    КнигаExcel.Activate();

    ЛистExcel.Activate();

    Excel.Visible = 1;

    Если ОшибкаОткрытия Тогда    //+МВ 18.02.2019

        Попытка

            Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

        Исключение

            Сообщить(«Повторная ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                     |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

            ЗапуститьПриложение(«explorer » + КаталогВременныхФайлов());

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

    КонецЕсли;    //-МВ

    Excel = «»;

КонецПроцедуры    //    ДействияФормыОткрытьВExcel()

Теперь открываются 2 Excel одинаковых файла: Книга1 и tmpxls [Режим совместимости]! При этом 1 ошибка: Ошибка открытия Excel файла: D:UsersmvAppDataLocalTemp2tmpxls.xls

    — {ОбщаяФорма.ПечатнаяФормаДокументов.Форма(46)}: Ошибка при вызове метода контекста (Open): Неизвестная ошибка

Получается, что при 1-й попытке файл tmpxls не готов к открытию (исполнению Excel.Workbooks.Open)? Когда его можно открывать, после какой команды?

Попытка

            Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

если это не работает, тогда в исключение

Исключение

            Сообщить(«Повторная ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                     |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

            ЗапуститьПриложение(«explorer » + КаталогВременныхФайлов());

Первый раз не получилось открыть, ну и пусть. Откроем второй раз. Зачем?

Попытка

        Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

    Исключение

        Сообщить(«Ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                 |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

        ОшибкаОткрытия = Истина;

    КонецПопытки;    //-МВ

………………..

Попытка

            Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

        Исключение

            Сообщить(«Повторная ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                     |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

            ЗапуститьПриложение(«explorer » + КаталогВременныхФайлов());

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

ОшибкаОткрытия = Ложь;    //+МВ 18.02.2019

    Попытка

        Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

    Исключение

        Сообщить(«Ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                 |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

        Excel = Неопределено;

        Возврат;//ОшибкаОткрытия = Истина;

    КонецПопытки;    //-МВ

И ещё надо глянуть запущены ли процессы Эксель на сервере. Возможно оин заняли ваш файл «tmpxls»

2 открытых файла: tmpxls.xls [Режим совместимости] и Книга1 не нужны. Нужен только Книга1. После ее создания следует команда: tmpBook.Close(); но она в моем случае не действует, поскольку команда Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»); в первой попытке не сработала. Решил ее вставить во 2-ю попытку:

    Если ОшибкаОткрытия Тогда    //+МВ 18.02.2019

        Попытка

            Excel.Workbooks.Open(КаталогВременныхФайлов() + «tmpxls.xls»);

            tmpBook.Close();    // Закрывает объект

        Исключение

            Сообщить(«Повторная ошибка открытия Excel файла: » + КаталогВременныхФайлов() + «tmpxls.xls

                     |    — » + ОписаниеОшибки(), СтатусСообщения.Внимание);

            ЗапуститьПриложение(«explorer » + КаталогВременныхФайлов());

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

    КонецЕсли;    //-МВ

Дало ошибку: Повторная ошибка открытия Excel файла: D:UsersmvAppDataLocalTemp2tmpxls.xls

    — {ОбщаяФорма.ПечатнаяФормаДокументов.Форма(87)}: Ошибка при вызове метода контекста (Close): Неизвестная ошибка

Как мне открыть Книга1 (не записана в файл) без файла tmpxls.xls?

Mikhail Volkov

31 — 04.03.19 — 15:17

1. Доброе время суток.
   Проблема заключается в следующем внешняя обработка загрузки из Эксель на личном компьютере работает нормально, но на РДП выдает ошибку «ошибка при вызове метода контекста (open)» там и там база файловая.Переделал все что нашел в инете
   — создал папку C:WindowsSysWOW64configsystemprofileDesktop ;
   — Настройки DCOM добавил пользователя;
   — И проделал «А решается это так:
   на сервере убиваем excel (taskkill /im excel.exe /f)
   открываем оснастку «Службы компонентов» (Пуск->Администрирование->Службы компонентов)
   в ней раскрываем ветку Службы компонентов->Компьютеры->Мой компьютер->Настройка DCOM
   справа в списке находим Microsoft Excel Application, открываем Свойства, вкладка Удостоверение, выбираем «Текущий пользователь», ОК.
   Готово»
   И все равно выскакиваю по ошибке.
   Есть у кого то предложение что можно сделать еще.

2. 
   

   Online

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.889

   Симпатии:

   1.029

   Баллы:

   204

   покпжите текст ошибки полностью.
   из всего там нужно только последнее действие.

   что будет, если интерактивно запустить эксель и открыть этот же файл?

3. {ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (Open)
   КНИГА = Excel.WorkBooks.Open(ИмяФайла);
   по причине:
   Неизвестная ошибка

4. Запустил интерактивно и все равно ошибка
   Опечатки нет пере набрал Open раз 10

5. 
   

   Online

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.889

   Симпатии:

   1.029

   Баллы:

   204

   при интерактивном открытии файла, что говорит?

6. Доброго,
   Клиент какой запускается на RDP, 32/64 бит ?

7. Добрый день.При интерактивном открытии ничего не пишет.
   RDP клиент запускается 64 и офис 64

8. Похожая проблема вылечилась использованием 32 битного клиента (мы можем это себе позволить),
   еще, как вариант, я делал через формирование файла на сервере и передачу его на клиента
   С.П.- : «ПоместитьВоВременноеХранилище», «ПолучитьФайлы», «ОписаниеПередаваемогоФайла»
   1.На сервере получаю макет, передаю его на клиента через «ПоместитьВоВременноеХранилище»/»ПолучитьФайлы»
   2. На клиенте формируется документ через COM : «Новый COMОбъект(«Word.Application»)»
   3. На клиенте заполняется макет, тем или иным способом

10. 
    

    Offline

    ExtreMe
    Опытный в 1С

    Регистрация:

    13 сен 2014

    Сообщения:

    89

    Симпатии:

    8

    Баллы:

    29

    мой набор: win8.1 64x, Excel 2016 64х, 1c 8.3.13.1513 64х и текст обработки

        Путь    = Объект.ИмяФайла; // тип Строка
    
        Попытка
            ОбъектExcel = Новый COMОбъект("Excel.Application");
        Исключение
            Возврат "Ошибка открытия MS Excel";
        КонецПопытки;
    
        Попытка
            ОбъектExcel.WorkBooks.Open(Путь);
        Исключение
            ОбъектExcel.DisplayAlerts = 0;
            ОбъектExcel.Quit();
            ОбъектExcel.DisplayAlerts = 1;
            ОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
            Возврат ОписаниеОшибки;
        КонецПопытки;
    

    проверил Службы компонентов->Компьютеры->Мой компьютер->Настройка DCOM->Microsoft Excel Application->Свойства->Удостоверение
    Выбран «Текущий пользователь»

    Создал папку Desktop по обоим путям C:WindowsSysWOW64configsystemprofileDesktop и C:WindowsSystem32configsystemprofileDesktop

    И хренасдва. всё равно выдаёт ошибку на стройке ОбъектExcel.WorkBooks.Open(Путь); и уходит в исключение

    {ВнешняяОбработка.ЗагрузкаИзExcel.Форма.Форма.Форма(53)}: Ошибка при вызове метода контекста (Open)
            ОбъектExcel.WorkBooks.Open(Путь);
    по причине:
    Неизвестная ошибка
    

    — Объединение сообщений, 17 янв 2019 —

    попробовал под 1c 8.3.13.1513 86х, то же самое
    после каждого запуска обработки в диспетчере остаётся висеть процесс Excel’я, я его каждый раз завершаю

    Последнее редактирование: 17 янв 2019
11. 
    

    Offline

    ExtreMe
    Опытный в 1С

    Регистрация:

    13 сен 2014

    Сообщения:

    89

    Симпатии:

    8

    Баллы:

    29

    одинаковая ситуация с тонким и толстым клиентом

12. 
    

    Offline

    ExtreMe
    Опытный в 1С

    Регистрация:

    13 сен 2014

    Сообщения:

    89

    Симпатии:

    8

    Баллы:

    29

    пока решение нашёл в таком варианте:
    открыть файл Excel
    сделать поправки в коде

        Путь    = Объект.ИмяФайла; 
       
        Попытка
            //ОбъектExcel = Новый COMОбъект("Excel.Application");
            ОбъектExcel = ПолучитьCOMОбъект(, "Excel.Application");
        Исключение
            ОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
            Возврат ОписаниеОшибки;
        КонецПопытки;
       
        //Попытка
        //    ОбъектExcel.WorkBooks.Open(Путь);
        //Исключение
        //    ОбъектExcel.DisplayAlerts = 0; 
        //    ОбъектExcel.Quit();
        //    ОбъектExcel.DisplayAlerts = 1;
        //    ОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
        //    Возврат ОписаниеОшибки;
        //КонецПопытки;
    

    так открытый файл подхватываться и нормально все работает, но хотелось ты без этих танцев с бубном…

    — Объединение сообщений, 17 янв 2019 —

    не совсем понял настройки безопасности
    Службы компонентов->Компьютеры->Мой компьютер->Настройка DCOM->Microsoft Excel Application->Свойства->Безопасность
    добавляя там пользователя, у меня то проходило чтение то нет
    стабильной работы обработки при первом варианте кода не дало

    Последнее редактирование: 17 янв 2019
13. 
    

    Offline

    ExtreMe
    Опытный в 1С

    Регистрация:

    13 сен 2014

    Сообщения:

    89

    Симпатии:

    8

    Баллы:

    29

    Последнее редактирование: 20 янв 2019
14. 
    

    Offline

    evgkup

    Регистрация:

    9 авг 2019

    Сообщения:

    1

    Симпатии:

    0

    Баллы:

    1

    Была аналогичная проблема на сервере
    Помогло следующее (отображение открывающегося приложения excel)
    Попытка
    лпИмяФайла = «c:tmp1.xls»;
    лпExcel = Новый COMОбъект(«Excel.Application»);
    лпExcel.Visible = 1;
    лпExcel.DisplayAlerts = 0;
    лпExcel.WorkBooks.Open(лпИмяФайла);
    Исключение
    лпExcel.Quit();
    Сообщить(ОписаниеОшибки());
    Возврат;
    КонецПопытки;
    …набор действий

    Последнее редактирование: 9 авг 2019