Табличный документ в Excel

11.01.11

✎

17:58

Как наиболее просто сохранить Табличный документ в Эксель на сервере?
На клиенте понятно

ТабДок.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLS);

, а как на сервере?

1 Andr10K

11.01.11

✎

18:03

Опять...

2 Andr10K

11.01.11

✎

18:03

Релиз платформы какой?

3 Andr10K

11.01.11

✎

18:06

Процедура ЗаписатьТД(ИмяФайлаБезРасш, ТабличныйДокумент)
ТабличныйДокумент.Вывод = ИспользованиеВывода.Разрешить;

Попытка
ИмяФайла = ИмяФайлаБезРасш +".XLS";
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
Исключение
Попытка
ИмяФайла = ИмяФайлаБезРасш +".XLS";
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);
Исключение
Попытка
ИмяФайла = ИмяФайлаБезРасш +".XLSX";
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLSX);
Исключение
ИмяФайла = ИмяФайлаБезРасш +".mxl";
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.MXL);
КонецПопытки;
КонецПопытки;
КонецПопытки;

КонецПроцедуры

4 Aston

11.01.11

✎

18:09

(2) 8.1.15.14
на сервере не сохраняет xls и xls97. xlsx - нельзя

5 Andr10K

11.01.11

✎

18:18

8.1 да, не сохраняет. Я делал так: создал пустую конфигу, при начале работы системы передаю параметр, открываю ее:

//Финт ушами
V8 = Новый COMОбъект("V81.Application");
Соединение = V8.Connect("File=""E:\1C_BASE\ConvtoExcel""; Usr=""Convertor""; Pwd="""";");
ИмяФайлаДляКонв = ИмяФайла;
Результат = V8.ВыполнитьКонвертацию(ИмяФайлаДляКонв);
V8 = Неопределено;

А в ней:

Процедура ПередНачаломРаботыСистемы(Отказ)

ИмяФайла = "E:\ssh\1C\Report"+СокрЛП(Строка(НачалоДня(ТекущаяДата())));
ИмяФайла = СтрЗаменить(ИмяФайла,".","_");
ИмяФайла = СтрЗаменить(ИмяФайла," 0:00:00","");
ИмяФайла = ИмяФайла +".mxl";

ТабличныйДокументБУ = Новый ТабличныйДокумент;
ТабличныйДокументБУ.Прочитать(ИмяФайла);
ТабличныйДокументБУ.Вывод = ИспользованиеВывода.Разрешить;
ИмяФайла = СтрЗаменить(ИмяФайла,".mxl",".xls");
ТабличныйДокументБУ.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);

КонецПроцедуры

6 Andr10K

11.01.11

✎

18:22

Вернее так:
в пустой конфиге общий модуль "Конвертация"

Функция ВыполнитьКонвертацию(ИмяФайла) Экспорт

Если ЗначениеЗаполнено(ИмяФайла) Тогда
ТабличныйДокументБУ = Новый ТабличныйДокумент;
ТабличныйДокументБУ.Прочитать(ИмяФайла);
ТабличныйДокументБУ.Вывод = ИспользованиеВывода.Разрешить;
ИмяФайла = СтрЗаменить(ИмяФайла,".mxl",".xls");
ТабличныйДокументБУ.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
Возврат "ОК";
КонецЕсли;
Возврат "Не-а";

КонецФункции