|
|
|
|
Выгрузка в 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
|
ошибку нашел)) спасибо просто забыл путь прописать
|
|
Программист всегда исправляет последнюю ошибку.