Добрый день, коллеги.
Решил автоматизировать загрузку данных от клиентов. Многие высылают в экселе, соответственно нужно читать и анализировать её. Чтобы менеджеры не заморачивались с этим, чтение экселя решил вынести в регламентное задание. Но тут возникла проблема с созданием ком-объекта Excel.Application. Почитал статьи, рекомендуют вынести вызов ком-объекта на клиент, но при выполнении регламентного задания нет никакого клиента, все выполняется сервером. Как быть? Посоветуйте

в регламентном без вариантов только сервер
или прайсы в csv перекидывать сначала и затем скармливать как текст если эксель тупить будет

"Почитал статьи, рекомендуют вынести вызов ком-объекта на клиент"

Выкинь эти статьи.

(0)ексель на сервере установлен? )

(2) Хороший совет, но а делать-то чего? ))

(4) а в чём конкретно проблема?

(3) Да, установлен

(4) На серваке EXCEL установи

(6) Тогда должно все работать

(5) создание ком объекта вызывает исключение

Сервер работает как служба. Может в этом проблема?

(10) Скинь код как ты его вызываешь?

может как xml читать.

(11) Вот код:
    Попытка
        Эксель = Новый COMОбъект("Excel.Application");
    Исключение
        СообщениеОбОшибке = НСтр("ru = 'Не удалось прочитать Excel. Убедитесь, что на компьютере установлена программа Microsoft Excel. Подробности: '")
                          + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
        ВызватьИсключение СообщениеОбОшибке;
    КонецПопытки;
    
    //Следующая команда откроет книгу:
    Книга = Эксель.WorkBooks.Open(ИмяФайла); // <-- Здесь вылетает исключение

(12) Покажи пример, пожалуйста

и какое исключение?
может файла нет?
доступа к папке откуда его тянуть?
или дальше гадать?

(13) права на папку? Что за ошибка?

Не рекомендуют на сервере наверное из-за того что по сети файл взад-назад тягать не комильфо.

Сдается мне, что нет прав у пользователя, под которым сервер 1С работает....

(14) на инфостарте есть примеры как парсить XSLX но могут возникнуть проблемы если сторонняя прога сохраняет в этот формат.

(15) Вот такое исключение:
Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft Office Excel): Невозможно получить свойство Open класса Workbooks

Файл есть. Он лежит локально на сервере. Доступ к папке есть для всех.

Тот же самый код, запущенный на клиенте выполняется без проблем.

(19) Значение имени файла в студию.

(21) D:\1C\Inomarka\_ElDoc\NaklIn\[email protected]\СФ №00021194 от 21-03-14.XLS

(22) попробуй путь с именем только из латиницы пока что

(23) Если не получиться то мож чо ещё расскажу

(19) И Для интереса, попробуй заместо Open использовать Add

(23) (25) Ни то, ни другое не помогло

(26) а просто Add без имени файла, пустой новый док добавить, и если получитьсязаписать его

(27) Метод Add прошел, но при попытке сохранить документ опять исключение:
Ошибка при вызове метода контекста (SaveAs): Произошла исключительная ситуация (Microsoft Office Excel): Метод SaveAs из класса Workbook завершен неверно Файл не сохранен!

Не помог и привелигированый режим

(28) А есть папка C:\Users\Default\Desktop ?

(30) когда оффис исполняется на сервере от службы, то он вроде использует эту папку для вр файлов

Скорее всего тут суть в том, что на сервере, на уровне платформы, запрещены файловые операции

(32) чувак у меня так везде работает, и с вордом и с экселем, попробуй (30)

(0) ADO не рассматривали?

(34) Ну если ток для чтения то покатит наверно, я просто для чтения, изменения и записи юзаю, так что мне COM нужен был

(30) Да, папка такая есть на сервере

(36) а сервер 1С скольки битный

(34) Да, пробовал.
    db = Новый COMОбъект("ADODB.Connection");
    Rs = Новый COMОбъект("ADODB.RecordSet");
    
    Попытка
        db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\1C\Inomarka\_ElDoc\NaklIn\[email protected]\00021194.XLS;Extended Properties="Excel 8.0;HDR=NO; IMEX=1;";
        db.Open();  <-- Исключение
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;

Текст исключения:
Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (ADODB.Connection): Не удается найти указанный поставщик. Вероятно, он установлен неправильно.

(37) Сервер x64

(39) ОООООООО, а попробу C:\Users\Default\Desktop64 создать

И по ADO http://www.connectionstrings.com/excel/

(40) Не помогло
(41) Там и брал строку соединения

(42) А может C:\Users\Default64\Desktop

(43) Или тогда от кого служба 1С запущена?

(44) От пользователя домена

(45) И если зайти от него то все в интерактиве получается?

(46) я имею ввиду на серваке

Нет возможности сейчас проверить.

Если код открытия вызывать на стороне клиента, то все работает.

(42) а если так?:

    dbCon = Новый COMОбъект("ADODB.Connection");
    
    Если НРег(Файл.Расширение) = ".xls" Тогда
        dbCon.Provider = "Microsoft.Jet.OLEDB.4.0";
        dbCon.Properties("Data Source").Value = Файл.ПолноеИмя;
        dbCon.Properties("Extended Properties").Value = "Excel 4.0;HDR="+?(ИменаКолонокВПервойСтроке,"Yes","No")+";IMEX=1";
    ИначеЕсли НРег(Файл.Расширение) = ".xlsx" Тогда
        dbCon.Provider = "Microsoft.ACE.OLEDB.12.0";
        dbCon.Properties("Data Source").Value = Файл.ПолноеИмя;
        dbCon.Properties("Extended Properties").Value = "Excel 12.0;HDR="+?(ИменаКолонокВПервойСтроке,"Yes","No")+";IMEX=1";
    ИначеЕсли НРег(Файл.Расширение) = ".csv" Тогда
        dbCon.Provider = "Microsoft.Jet.OLEDB.4.0";
        dbCon.Properties("Data Source").Value = Файл.Путь;
        dbCon.Properties("Extended Properties").Value = "text;HDR="+?(ИменаКолонокВПервойСтроке,"Yes","No")+";FMT=Delimited";
    КонецЕсли;
        
    Попытка
        dbCon.Open();
    Исключение
        ТекстОшибки = ИнформацияОбОшибке().Описание;
        dbCon = Неопределено;
        ВызватьИсключение("Не удалось открыть файл "+Файл.Имя+" : "+ТекстОшибки);
    КонецПопытки;


(48) Как так, ты же смотрел наличие папки, создавал новую на серваке, почему проверить не можешь?

(49) На стороне клиента на сервере?

(52) Всмсле запущеного экземпляра предпрития на сервере?

(51) Чтобы проверить, нужно авторизоваться под пользователем от которого запущен сервер 1С. Я не могу под ним авторизоваться в силу отсутствия пароля
(53) Запускаю экземпляр приложения, вызываю внешнюю обработку и там прописываю процедуру открытия с ключом &НаКлиенте

(54) ООООООООО, я походу тебя обманывал и сам забыл

(55) Попробуй эти создать))))

C:\Windows\System32\Config\Systemprofile

C:\Windows\SysWOW64\Config\Systemprofile

(56) Всмысле в этих папках папку Desktop

(56) И вроде нужно только там какой битности оффис, пофиг на 1С

(56) Вот ты добрый человек! Гений, по другому и не сказать )))

(59) Да блин ты меня заставил на сервак зайти и вспомнить чо да как))))

Единственное что осталось, это команда

    Эксель.Application.Quit();

не завершает процесс. Экселька продолжает висеть в диспетчере задач на сервере. В чем может быть дело, подскажи пожалуйста

За твои заслуги готов поддержать тебя материально. Переводом либо на телефон

(61) У тя исключение не выскакиевает при закрытии?

(61) Так сначала нужно закрыть все документы, так как иначе мы видим вопрос о необходимости что-то сохранить, только, на самом деле, мы его не видим, так как рабочий стол записи SYSTEM невидим, но, если очень хочется, там окно можно найти и даже нажать кнопку "Нет".

(63) Нет, код исполняется без исключений

(65) Ну в теории не должно ругаться если ты в доке ничо не менял (типа букву в ячейке добавил).
Ну чтобы на точняк, погугли на msdn там или используешь метод Close(0) у WorkSheet или Эксель.Application.Quit(0) (или просто Эксель.Quit(0)).
Нули как разтаки определяют закрытие документа или приложения без лишних проверок.
Я конеш хз у себя сразу писал с нулями, а вот помню когда один из первых разов таким образом с Word работал, то он у меня с исключением вылетал (я имею ввиду на сервере)

УУУ. В сказку попал человек.
Обратись ко мне. Есть решение.

Я уже все грабли протоптал с этим делом.

Есть у нас решение. Можешь даже не парится.
У нас компонента чтения эксель, нативная.
Работает во всех режимах серверных на любых осях.

Гарантируем поддержку.
Да и собственно задачу импорта решена целой подсистемой.

(66) спасибо, попробую, сейчас пока некогда

(67) Есть где почитать о решении?

Лови http://subsystems.ru/catalog/43/595/
Будут вопросы - там есть мой скайп

(71) хорошо, спасибо

Сделал вот так и все нормально стало:

    Эксель.DisplayAlerts = 0;
    Эксель.Workbooks.Close();
    Эксель.DisplayAlerts = 1;    
    
    Эксель.Application.Quit();

(56) Объясните про эти папки. Не понял :)

(74) Когда приложение оффиса (Word, Exel) запускается от сервиса винды, коем в частности является служба 1С сервера, то для временных файлов используются данные каталоги взавизимости от разрядности оффиса.

(73) а зачем Эксель.DisplayAlerts = 1?
это свойство вообще задавай после создания кома

(76) Если его не поставить, то в следующий раз, когда Excel откроется, сообщения не будут появляться.