Имя: Пароль:
1C
1С v8
Выгрузка в excel
0 denis_solyanko
 
14.10.14
10:55
Ошибка приемника потока
по причине:
Каталог не обнаружен ''
1 Fish
 
14.10.14
10:57
Показывай код.
2 denis_solyanko
 
14.10.14
10:58
Процедура ПутьКФайлуНачалоВыбора(Элемент, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    РежимДиалога = РежимДиалогаВыбораФайла.Сохранение;
    ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалога);
    ДиалогВыбораФайла.МножественныйВыбор = Ложь;
    ДиалогВыбораФайла.Заголовок = "Укажите путь выгрузки файла...";
    ДиалогВыбораФайла.ПолноеИмяФайла = ПутьКФайлу;
    ДиалогВыбораФайла.Фильтр = "Excel(2007)(*.xlsx)|*.xlsx";
    Если ДиалогВыбораФайла.Выбрать() Тогда
        ПутьКФайлу = ДиалогВыбораФайла.ПолноеИмяФайла;
    КонецЕсли;
КонецПроцедуры

Процедура ВыгрузкаВЭксельНажатие(Элемент)
    ИмяФайлаHTML4 = СтрЗаменить(ПутьКФайлу,"xlsx","htm");
    ЭлементыФормы.Результат.Записать(ИмяФайлаHTML4,ТипФайлаТабличногоДокумента.HTML4);
    
    Попытка            
        ЭксельОбъект = Новый COMОбъект("Excel.Application");
        ЭксельОбъект.Application.Visible = Ложь;
        Книга = ЭксельОбъект.Application.Workbooks.Open(ИмяФайлаHTML4);            
        Книга.Windows(1).Visible = Истина;    
        Книга.Application.DisplayAlerts = False;
        Книга.SaveAs(ПутьКФайлу,51);            
        Книга.Close();    
        ЭксельОбъект.Application.Quit();
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;

КонецПроцедуры
3 denis_solyanko
 
17.10.14
09:24
ошибку нашел)) спасибо просто забыл путь прописать