&НаСервереБезКонтекста
Процедура ЗагрузитьИзФайлаНаСервере(АдресХранилища)
   
   ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
   
   ИмяФайла = ПолучитьИмяВременногоФайла("xlsx");
   
   ДвоичныеДанные.Записать(ИмяФайла);
   
   ЗагрузитьФайл(ИмяФайла);
   
   
   УдалитьФайлы(ИмяФайла);
   
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗагрузитьФайл(ИмяФайла)
   
   Ексель = Новый COMОбъект("Excel.Application");
   
   Ексель.Workbooks.Open(ИмяФайла);


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

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

что еще может быть?

Открой диспетчер задач и поубивай все эксели.

убито все

Яб кэш почистил навсякий)

до выполнения     Ексель = Новый COMОбъект("Excel.Application");
екселей нет в процессах

(3) как и где?

Книга=ПолучитьCOMОбъект(ИмяФайла,"Excel.Application");

ИмяФайла - что возвращает ?

может
ИмяФайла = ПолучитьИмяВременногоФайла(".xlsx");

Значит, не делай через временный файл, делай через постоянный :)

делаю через постоянный - одна фигня
(6) эта конструкция просто висит - и ничего не выводит

   Ексель = Новый COMОбъект("Excel.Application");
   
   Ексель.Workbooks.Open(ИмяФайла);

- эта хотя бы ошибку

(7) не понял  ... что может? - возвращает имя НОВОГО временного файла куда пиштся файл, а потом оттуда же и открывается

а сервер имеет право на все это ?

&НаСервереБезКонтекста
Процедура ЗагрузитьИзФайлаНаСервере(АдресХранилища)
   
   ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
   
   ИмяФайла = ПолучитьИмяВременногоФайла("xlsx");
   ИмяФайла = "C:\ФайлТаблицы.xls";
   
   ДвоичныеДанные.Записать(ИмяФайла);
   
   ЗагрузитьФайл(ИмяФайла);
   
   
   УдалитьФайлы(ИмяФайла);
   
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗагрузитьФайл(ИмяФайла)
   
   Ексель = Новый COMОбъект("Excel.Application");
   
   Ексель.Workbooks.Open(ИмяФайла);


один фиг

сервер запущет из под моей учетки

т.е. конфигурация

SQL на другой машине
сервре 1С на рабочей - где и запускаю все это дело

8.2.14.540

ИмяФайла = ПолучитьИмяВременногоФайла("xlsx");
ИмяФайла = "C:\ФайлТаблицы.xls";

Тут нет ошибки? там есть икс, а там нет?

Попробуй закомментить строку с удалением файла

Хочешь, я скину тебе рабочий вариант на 100%

(15) это уже поиски, было и "х" - один фиг
на серваке установлен 2007 офис
исходный сделан на 2007 ... но пробовал уже и 2003
(16) - до неё не доходит .... ошибка внутри процедуры ЗагрузитьФайл

(17) давай ...

НачСтрока=1;
   
   ОбъектExcel    =Неопределено;
   РабочаяКнига=Неопределено;
   Листы        =Неопределено;
   СписокЛистов= Новый СписокЗначений();
   ФС = Новый Файл(ФайлВыгрузки);
   Если ФС.Существует()=Истина Тогда
       Попытка
           ОбъектExcel= Новый COMОбъект("Excel.Application");    
       Исключение
           Предупреждение("Похоже, Excel не установлен на компьютере, ничего сделать не могу!!!");
       КонецПопытки;    
       
       ОбъектExcel.Workbooks.Open(СокрЛП(ФайлВыгрузки));
       КнигаExcel = ОбъектExcel.ActiveWorkbook;
       ЛистExcel = КнигаExcel.Worksheets(1);
       КоличествоСтрок = ЛистExcel.Cells.CurrentRegion.Rows.Count;
       
       НачСтрока=1;
       КонСтрока=КоличествоСтрок;    
       
       сообщить(КоличествоСтрок);
       
       Сообщить("Начало загрузки таблицы - "+Формат(ТекущаяДата(), "ДЛФ=DT"));
       ЭлементыФормы.ИндикаторСостояния.МинимальноеЗначение=(НачСтрока+1);
       ЭлементыФормы.ИндикаторСостояния.МаксимальноеЗначение=КонСтрока-1;
       
       ЭлементыФормы.ИндикаторСостояния.МинимальноеЗначение=(НачСтрока+1);
       ЭлементыФормы.ИндикаторСостояния.МаксимальноеЗначение=КонСтрока;
       Состояние("Открытие Excel-файла...");
       
       НашлиТМЦ=0;        
       
       БылДок=0;
       Для ии=НачСтрока по КонСтрока-1 Цикл
           
           ИндикаторСостояния=ии;    
           //сообщить(ии);
           Попытка     ///------- потому, что в некоторых экселях по числам, а в других по буквам типа
               ЭтоСклад=ЛистExcel.Range("R8" + "C"+Формат(ии,"ЧГ=0")).Value;
               Код=ЛистExcel.Range("R9" + "C"+Формат(ии,"ЧГ=0")).Value;
               Имя=ЛистExcel.Range("R1" + "C"+Формат(ии,"ЧГ=0")).Value;
               Кво=ЛистExcel.Range("R3" + "C"+Формат(ии,"ЧГ=0")).Value;
               Цена=ЛистExcel.Range("R6" + "C"+Формат(ии,"ЧГ=0")).Value;
               
           
           Исключение
               ЭтоСклад=ЛистExcel.Range("H"+Формат(ии,"ЧГ=0")).Value;
               Код=ЛистExcel.Range("I"+Формат(ии,"ЧГ=0")).Value;
               Имя=ЛистExcel.Range("A"+Формат(ии,"ЧГ=0")).Value;
               Кво=ЛистExcel.Range("C"+Формат(ии,"ЧГ=0")).Value;
               Цена=ЛистExcel.Range("F"+Формат(ии,"ЧГ=0")).Value;
           
           КонецПопытки;

(20) и чем он отличается от (0)?
       Попытка
           ОбъектExcel= Новый COMОбъект("Excel.Application");    
       Исключение
           Предупреждение("Похоже, Excel не установлен на компьютере, ничего сделать не могу!!!");
       КонецПопытки;    
       
       ОбъектExcel.Workbooks.Open(СокрЛП(ФайлВыгрузки));

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

Это у меня работает, 100%.
ФайлВыгрузки - поле ввода на форме.

хрен с ним - загружу через макет
(22) а у меня не работает

{Справочник.ВредныеПроизводственныеФакторыИРаботы.Форма.ФормаЗагрузкиСправочника.Форма(42)}: Ошибка при вызове метода контекста (Open)
   Ексель.Workbooks.Open(СокрЛП(ИмяФайла));
по причине:
Произошла исключительная ситуация (Microsoft Office Excel): Нет доступа к файлу 'C:\ФайлТаблицы.xls'. Это может быть вызвано одной из следующих причин.

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


(21) Отличается тем, что выдаёт диагностические сообщения, не?
:)

(24) где?
еще раз у меня ком объект создается

(23)  Я бы копал в сторону прав доступа к файлу.
Серьёзно.

падает тут:
ОбъектExcel.Workbooks.Open(СокрЛП(ФайлВыгрузки));

Нет доступа к файлу

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

точка останова на

ОбъектExcel.Workbooks.Open(СокрЛП(ФайлВыгрузки));

файл есть и я его могу открыть интерактивно

с какой стороны нет доступа?

Смотри свойства файла. Расшарь его для всех и попробуй.

Файл не удаляй. Дай доступ для всех и всё у тебя получится.

Сначала сделай, чтобы он загрузился, а потом уже с удалением можно что-то придумать. Он удаляется не раньше, чем нужно?

Ексель = Новый COMОбъект("Excel.Application");    
Книги = Ексель.Workbooks;
Если Книги.Count = 0 Тогда
   Книги.Add();
КонецЕсли;
Книга = Книги.Open(СокрЛП(ФайлВыгрузки));

http://www.dropmocks.com/mBJ8eI

(33) в условие заходит, но не помогает (совсем)

(35) уже лучче

(34) Правой кнопкой по файлу - свойства - безопасность.
И полные права для учетки, под которой крутится 1с, не?

Ексель = Новый COMОбъект("Excel.Application");
Ексель.Visible = -1;

Ф = Новый Файл(ФайлВыгрузки);
Если  Ф.Существует() Тогда
....Open

зайдет в Open?

может задержку попробовать? может не успевает записаться до открытия.

(37) ты читаешь что я пишу - 1С крутиться под моей же учеткой - см (34)
(39) а ничего что я его вижу - и если файл не грузить - он нормально удалается?

(40) - а точка останова на что?

добавил права на файл - всем - (на точке останова) - один фиг

(38) это что даст?

(38) не понял нафига это - и программа тоже

чисто позырить, просто сделай и все тут

Ексель.Visible = Истина;

ок делаем так:

&НаСервереБезКонтекста
Процедура ЗагрузитьИзФайлаНаСервере(АдресХранилища)
   
   //ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
   //
   //ИмяФайла = ПолучитьИмяВременногоФайла("xlsx");
   ИмяФайла = "C:\ФайлТаблицы.xls";
   
   ДвоичныеДанные.Записать(ИмяФайла);
   
   ЗагрузитьФайл(ИмяФайла);
   
   
   //УдалитьФайлы(ИмяФайла);
   
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗагрузитьФайл(ИмяФайла)
   
   Ексель = Новый COMОбъект("Excel.Application");
   
   Ексель.Visible = -1;

   Книги = Ексель.Workbooks;
   Если Книги.Count = 0 Тогда
       Книги.Add();
   КонецЕсли;        
   Ексель.Workbooks.Open(СокрЛП(ИмяФайла));
   

т.е. ничего не создаем и не удалаем - файл есть
(45) сделал - где че смотреть-то?

т.е.

&НаСервереБезКонтекста
Процедура ЗагрузитьИзФайлаНаСервере(АдресХранилища)
   
   //ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
   //
   //ИмяФайла = ПолучитьИмяВременногоФайла("xlsx");
   ИмяФайла = "C:\ФайлТаблицы.xls";
   
   //ДвоичныеДанные.Записать(ИмяФайла);
   
   ЗагрузитьФайл(ИмяФайла);
   
   
   //УдалитьФайлы(ИмяФайла);
   
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗагрузитьФайл(ИмяФайла)
   
   Ексель = Новый COMОбъект("Excel.Application");
   
   Ексель.Visible = Истина;

   Книги = Ексель.Workbooks;
   Если Книги.Count = 0 Тогда
       Книги.Add();
   КонецЕсли;        
   Ексель.Workbooks.Open(СокрЛП(ИмяФайла));

если оно под твоей учеткой, то и окно екселя обязано появиться

Ексель.Workbooks.Open(СокрЛП(ИмяФайла));
на
Книга = Книги.Open(СокрЛП(ИмяФайла));

(почти одно, но второе более политически верное)

под этой же учеткой интерактивно в виндузе находишься ?
(это по поводу отображения екселя)

(50) не
(51) да

и файл так понимаю нормально в екселе интерактивно открывается ?

(46) про визибл так и не понял - ничего не меняет в плане отображания

да

тогда х.з. все это
восьмерку не знаю, особенно связанную с сервером адинес

Я думаю, тут есть несколько вариантов:

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

:)

Система же говорит, ЧТО ей не нравится.
Екселевский файл, кстати, кто создаёт? Программно создаётся?
Если да, то его нужно отпустить, не?