доброго всем! задача: взять файл ексель с клиента, кинуть на сервер и там сохранить, затем отбработать.
на клиенте получил, в двоичные данные преобразовал, на сервер передал, там получил двоичные данные, вопрос как сохранить его на сервере?
функция КаталогВременныхФайлов() получает каталог временных файлов у клиента, хотя и используется в процедуре НаСервере. Подскажите как это осуществить?

Если на сервера не будет Экселя, что тогда?

скажем админам поставить)

(1) Тогда можно вспомнить, что 1С файлы Excel читает.
(0) На файловой базе разработку ведем, да? Ну и зачем тебе каталог, когда можно сразу имя временного файла получить?

Одна из черепашек... обманывает.

И не надо пользоваться КаталогВременныхФайлов. Представь себе, что твою кучку кода запустят одновременно несколько сеансов. Пользуйся ПолучитьИмяВременногоФайла, она для этого и предназначена.

(4) балин сама функция и сформирует адрес на сервере?

(5) Гимли, она формирует путь там, где запущена.

(6) т.е. если я ее запущу в процедуре НаСервере, то и будет она сформирована на сервере?

(7) Ну не на сайте 1С же

спасибо, вроде получилось создал файлик в папке userv82 чет такое, т.е. не под моим пользаком, все доброй ночи

(9) Файл создаётся в темпе того пользователя, под которым работает сервер 1с

извиняюсь за дебильный вопрос: а как узнать на каком сервере выполняется код если у меня 5 серверов в кластере?

по этому все, что тут предлагали - это не верные советы...

почитайте рекомендации 1с на эту тему (на ИТС)

(11) ПолучитьИмяВременногоФайла - не верный совет?
Ну просвяти же нас, о гуру, светом правды-истины!

(11) http://its.1c.ru/db/v8std#content:2149184191:hdoc
Тебе, пожалуй, тоже полезно будет

(12) правильно

ПоместитьВоВременноеХранилище
ПолучитьИзВременногоХранилища

(14) + ПолучитьИмяВременногоФайла  нужно использовать только в рамках одного серверного вызова,

в рамках нескольких серверных вызовов контекст уже протухнет

(14) При чем тут вообще временное хранилище?
Поместил ты туда двоичные данные, получил, все гуд. Дальше твои действия какие?

(14) Тогда уж правильно - НачатьПомещениеФайла

(16) Он придумал за ТС себе проблему, что у него несколько серверных вызовов и героически с ней борется.

(16) дальше в рамках одной серверной процедуры можно запустить ексель, а вот получишь ли ты обратно этот файл из следующего серверного вызова будет зависить от контекста выполнения. По этому сабж должен или ждать внутри серверного вызова завершение чужеродного потока (что плохо), либо работать как-то по другому.

(17) нет, просто этот вопрос - классический завал в билетах 1с :)

(18) Я рекомендую тебе отдохнуть. Выпей кружечку хорошего пива, что ли.

(20) 2 недели на новой работе, может уже пора в отпуск?

(21) Пора-пора. Речь про пути к временным файлам, а ты про временное хранилище и серверные вызовы втираешь.

(14) не поможет. объект файл не передается, а двоичные данные да я получу, и ? надо ексель сохранить о чем собственно и вопрос

(23) Это слишком сложно для нас, прости.

(24) не прощаю! подскажи)

(25) Что именно? Как обработать - знаешь только ты. Для передачи надо на клиенте начать помещение файла с параметром - путем, получишь адрес в хранилище. С этим адресом идешь на сервер, извлекаешь по нему двоичные данные и сбрасываешь на диск. Дальше твои ёксельные фантазии.

(26) . С этим адресом идешь на сервер, извлекаешь по нему двоичные данные и сбрасываешь на диск.

вот в этом и вопрос, куда сохранить? всмысле как бы получить временную папку там на сервере, точно зная что будет доступна и т.д. и исходя из этого сохранить уже файл, дальше все понятно что мои фантазии. Как сгенерировать ПУТЬ для сохранения на сервере?

(27) Ты точно тему читаешь? Они тебе угрожают оружием?

ПолучитьИмяВременногоФайла  
не помогло(

(29) Чем мотивировало?

(30) {Форма.Форма.Форма(209)}: Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft Excel): Приложению Microsoft Excel не удается получить доступ к файлу "C:\Users\USR1CV82\AppData\Local\Temp\v8_CC39_28.xslx". Это может быть вызвано одной из следующих причин.

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

(31) Ставлю на вариант №1

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

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

Права в дком на сервере поменять еще нужно.

Это удачно я зашел. У меня нет опыта управляемых форм и с файловой системой я тоже до этого не работал, а тут поставили задачу сделать возможность прикрепления к документу реализация товаров и услуг в УТ 11, файлов pdf. Файлы должны храниться на общем диске. Хорошо хоть сроков не стоит, есть время разобраться...

Вопрос: переносить файл в сетевой каталог обязательно использую серверные методы? Или есть возможность на клиенте все сделать, читать сам файл в 1с от меня не требуется. Просто дать информацию, есть у этого документа файлы или нет...

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

(35) ок, с сохранением передачей разобрался, теперь просто не открывает, может быть из-за этого?

(1) Обычный таб док умеет читать ексель

В свое время делал загрузку данных из xls правда опять же на обычных формах. Использовал ADODB. Очень понравилось, что не требует установки excel на сервер, да и в инете оч много информации о методах.
Использовал функцию из инета для получения данных в тз.


Функция ЗагрузитьМетодом_MSADODB(Знач ФайлEXCEL, Знач ИмяЛиста, Знач СтрокаЗаголовка = 2, НачСтрока = 3, КонСтрока = 0,  
Знач ПодключениеADODB = "MicrosoftJetOLEDB40") Экспорт
     //ПустоеПодразделение = Справочники.Подразделения.ПустаяСсылка();
    Если ПодключениеADODB = "MicrosoftACEOLEDB12" Тогда
        СonnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + СокрЛП(ФайлEXCEL) + ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;""";
    Иначе
        СonnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "  + СокрЛП(ФайлEXCEL) + ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;""";
    КонецЕсли;
    Попытка
        ADODBConnection = Новый COMОбъект("ADODB.Connection");
        ADODBConnection.ConnectionString =  СonnectionString;
        ADODBConnection.Open();
        ADODBConnection.CursorLocation = 3;
    Исключение
        Сообщить(НСтр("ru = '"+ОписаниеОшибки()+"'"), СтатусСообщения.Внимание);
        Возврат Новый ТаблицаЗначений;     КонецПопытки;
    ТекстЗапроса = "SELECT * FROM [" + ИмяЛиста + "$]";
    Попытка
        ADODBRecordset = Новый COMОбъект("ADODB.Recordset");
        ADODBRecordset.Open(ТекстЗапроса, ADODBConnection);
        Если (ADODBRecordset.EOF ИЛИ ADODBRecordset.BOF) Тогда
            КолвоСтрокExcel = 0;
            Сообщить(НСтр("ru = '" + ИмяЛиста + ": не содержит данных.'"), СтатусСообщения.Внимание);
            ADODBRecordset.Close();
            ADODBConnection.Close();
            ADODBRecordset   = Неопределено;
            ADODBConnection = Неопределено;
            
            Возврат Новый ТаблицаЗначений;
        КонецЕсли;
        ADODBRecordset.AbsolutePage     = 1;
        ADODBRecordset.AbsolutePosition = 1;
    Исключение
        Сообщить(НСтр("ru = '"+ОписаниеОшибки()+"'"), СтатусСообщения.Внимание);
        Возврат Новый ТаблицаЗначений;  
    КонецПопытки;
    КолвоСтрокExcel = ADODBRecordset.RecordCount + 1;    
    КолвоКолонокExcel = ADODBRecordset.Fields.Count;
     Если КолвоСтрокExcel <= 2 Тогда
        КолвоСтрокExcel = 0;
        Сообщить(НСтр("ru = '" + ИмяЛиста + ": не содержит данных.'"), СтатусСообщения.Внимание);
        ADODBRecordset.Close();
        ADODBConnection.Close();
        ADODBRecordset   = Неопределено;
        ADODBConnection = Неопределено;
        Возврат Новый ТаблицаЗначений;    
    КонецЕсли;
    ТаблицаРезультат = Новый ТаблицаЗначений;
    ТаблицаРезультат.Колонки.Добавить("НомерСтроки", Новый ОписаниеТипов("Число"), "№", 4);
    ТаблицаРезультат.Колонки.Добавить("Сопоставлено", Новый ОписаниеТипов("Булево"), "Сопоставлено", 1);
    Для ит = 1 ПО КолвоКолонокExcel Цикл
        Поле = ADODBRecordset.Fields.Item(ит - 1);
        ИмяКолонки = "К_" + ит;
        Если ИмяКолонки = "К_1" Тогда
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки,Новый ОписаниеТипов("Число") , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        ИначеЕсли ИмяКолонки = "К_2" Тогда
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки,Новый ОписаниеТипов("Дата") , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        ИначеЕсли ИмяКолонки = "К_3" Тогда
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки,Новый ОписаниеТипов("Строка") , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        ИначеЕсли ИмяКолонки = "К_5" Тогда
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки,Новый ОписаниеТипов("Строка") , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        ИначеЕсли ИмяКолонки = "К_6" Тогда
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки,Новый ОписаниеТипов("Число") , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        ИначеЕсли ИмяКолонки = "К_7" Тогда
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки,Новый ОписаниеТипов("Число") , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        Иначе
            Колонка = ТаблицаРезультат.Колонки.Добавить(ИмяКолонки, , СокрЛП(СтрЗаменить(Поле.Name, "#", ".")));
        КонецЕсли;
        
    КонецЦикла;
    НоваяСтрока = ТаблицаРезультат.Добавить();
    НоваяСтрока.НомерСтроки = 1;
    Для ит = 1 ПО КолвоКолонокExcel Цикл
        ИмяКолонки = "К_" + ит;
        Колонка = ТаблицаРезультат.Колонки.Найти(ИмяКолонки);
        НоваяСтрока[ИмяКолонки] = Колонка.Заголовок;
    КонецЦикла;
    НомерСтроки = 1;
    Пока ADODBRecordset.EOF() = 0 Цикл
        НомерСтроки = НомерСтроки + 1;
        Если НомерСтроки < НачСтрока Тогда    
            ADODBRecordset.MoveNext();            
            Продолжить;
        КонецЕсли;
        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда
            Прервать;
        КонецЕсли;
        НоваяСтрока = ТаблицаРезультат.Добавить();
        НоваяСтрока.НомерСтроки = НомерСтроки;
        Для ит = 1 ПО КолвоКолонокExcel Цикл
            Поле = ADODBRecordset.Fields.Item(ит - 1);
            Если Поле.ActualSize = 0 Тогда    
                Продолжить;
            КонецЕсли;
            ЗначениеЯчейки = Поле.Value;      
            ИмяКолонки = "К_" + ит;
            НоваяСтрока[ИмяКолонки] = ЗначениеЯчейки;
            ШиринаКолонки = ТаблицаРезультат.Колонки[ИмяКолонки].Ширина;
            ДлинаСтроки      = СтрДлина(СокрЛП(ЗначениеЯчейки));
            ТаблицаРезультат.Колонки[ИмяКолонки].Ширина = ?(ШиринаКолонки < ДлинаСтроки, ДлинаСтроки, ШиринаКолонки);
            
                
        КонецЦикла;
        ADODBRecordset.MoveNext();
    КонецЦикла;
    ADODBRecordset.Close();
    ADODBConnection.Close();
    ADODBRecordset   = Неопределено;
    ADODBConnection = Неопределено;
    ТаблицаРезультат.Удалить(ТаблицаРезультат[0]);
    Возврат ТаблицаРезультат;
    
КонецФункции

Вот так список листов вычислял, и передавал нужный лист в ту функцию.


Процедура ФайлExcelПолучитьСписокЛистов(Знач ФайлEXCEL, Знач ПодключениеADODB = "MicrosoftJetOLEDB40")
    СписокЛистов = Новый СписокЗначений;
    Файл = Новый Файл(ФайлEXCEL);
    Если ВРег(Файл.Расширение) = ".XLS" ИЛИ ВРег(Файл.Расширение) = ".XLSX" Тогда        
        Если ПодключениеADODB = "MicrosoftACEOLEDB12" Тогда
            СonnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + СокрЛП(ФайлEXCEL) + ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;""";
        Иначе
            СonnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "  + СокрЛП(ФайлEXCEL) + ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;""";
        КонецЕсли;
        
        Попытка
            ADODBConnection = Новый COMОбъект("ADODB.Connection");      
            ADODBConnection.Open(СonnectionString);                                    
            
            ADOXCatalog = Новый COMОбъект ("ADOX.Catalog");
            ADOXCatalog.ActiveConnection = ADODBConnection;
            МассивЛистов = ADOXCatalog.Tables;
            Для Каждого ЛистМассива ИЗ МассивЛистов Цикл
                пИмяЛиста = ЛистМассива.Name;
                Если пИмяЛиста = "Excel_BuiltIn_Database" Тогда                    
                    Продолжить;
                КонецЕсли;
                Если Прав(пИмяЛиста,1) = "$" Тогда
                    ЭлементыФормы.ИмяЛиста.СписокВыбора.Добавить(Лев(пИмяЛиста, СтрДлина(пИмяЛиста)-1));
                Иначе
                    Продолжить;
                КонецЕсли;
                
                    
            КонецЦикла;
            ADOXCatalog = Неопределено;
            ADODBConnection.Close();
            ADODBConnection = Неопределено;
        Исключение
            Сообщить(НСтр("ru = '"+ОписаниеОшибки()+"'"), СтатусСообщения.Внимание);
        КонецПопытки;
    КонецЕсли;
КонецПроцедуры

Добрый день. Не хочу плодить тему, поэтому задам свой вопрос тут. У меня при попытке создания каталога выдает ошибку.

{ВнешняяОбработка.РаботаСФайлами.Форма.Форма.Форма(58)}: Ошибка при вызове метода контекста (СоздатьКаталог): Ошибка создания каталога: Ошибка доступа к файлу 'Файл'. 5(0x00000005): Отказано в доступе.

Функция вот такая:
&НаКлиенте
Функция ПроверитьСуществованиеКаталогаДома(Дом, КаталогАрхива)
    КаталогДома = КаталогАрхива+"\"+Дом;
    ПапкаДома = Новый Файл(КаталогДома);
    Если Не ПапкаДома.Существует() Тогда
        Ответ = Вопрос("Папка: "+Дом+" не существует в каталоге: "+КаталогАрхива+"\"+" создать ее?",РежимДиалогаВопрос.ОКОтмена);
        Если Ответ = КодВозвратаДиалога.ОК Тогда
            Попытка
                СоздатьКаталог(ПапкаДома);
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
            Возврат Истина;
        Иначе
            Возврат Ложь;
        КонецЕсли;
    Иначе
        Возврат Истина;
    КонецЕсли;
КонецФункции


Я лично думаю, раз функция клиентская, то наверное она для создания каталога использует права пользователя, от которого у меня запущена 1С. У этого пользователя как не странно полные права, админ домена. В чем прикол? Может есть какой-нибудь способ в 1С задать учетку под которой будет производиться создание каталога?

Забыл дописать, база запускается локально с моего компа, мой комп в домене, сервер 1с на другом компе, который не в домене, база sql на третьем компе, который в домене... =)

Я тут подумал, пожалуй лучше разместить каталог архива на терминальном сервере, там не потребуются права доменные.