Экспорт в EXCEL

-Blade-

Здравствуйте!

Проблема в следующем.
Есть FastReport SE 3.17
При экспорте в EXCEL ругается, выдает "Invalid Variant Operation".
Отчетов в проекте 12 штук, а ругается только на этот.
Экспорт в остаальные форматы - все ОК.

gpi

Попробуйте на последней версии FR

-Blade-

Скачал и поставил версию 3.20
Теперь вообще на всех отчетах сообщает следующее:
EOleSysError with message 'CoInitialize has not be called'

P.S. Экспорт в HTML и RTF работает
P.P.S. В настройках проекта установлено Build With Run-Time Packages

-=Serg=-

Значит надо написать
CoInitialize;

-Blade-

Где написать?

-=Serg=-

Какая версия Delphi?
Добавь uses ActiveX, ComObj

-Blade-

Звиняюсь, версия не Delphi, а Builder'а... 6-я...
Вот токма я кажется понятно писал... Что на 3.17 версии FastReport'а работали все отчеты кроме одного (в смысле их Export). Поставил свежее (как советовали) - перестали работать все. При чем здесь включи ActiveX или еще что-то, без чего все работало? Отчет элементарный.

gpi

Перестал работать экспорт или формирование отчётов?

-Blade-

Экспорт. И именно в Excel. RTF и HTML - работает... И именно этот отчет, блин, заказчику нужен именно и только в EXCEL!!!!!!!!!!!!!!!!

gpi

Рекомендация -=Serg=- не работает?
Выложите куда-нибудь fr3 и fp3-файлы одного из отчётов

Samuray

TfrxXLSExport.FastExport := false;

Так тоже не работает? Какая версия MS Office?

-Blade-

TfrxXLSExport.FastExport := false; - не помогает.

Версия Office - 2003
Система - Win Server 2003

-Blade-

Кстати... Узнал об этой проблеме именно от заказчика. У него Win ME и офис 2000

-Blade-

Рекомендация -=Serg=- не работает.

-=Serg=-

Какая из?
Пробуй явно вызывать CoInitialize;
а в конце CoUnInitialize

Vano

Для "прямого" (без OLE-шного) экспорта в XLS для 2-ки есть полно исходников (в том числе и моих). По-моему проще адапитировать их для 3-ки, чем разбираться во всей этой OLE-шной кухне.

dron-s

написал:

Какая из?
Пробуй явно вызывать CoInitialize;
а в конце CoUnInitialize

У меня такая же трабла при экспорте в Excel!!!!
Где прописать эти CoInitialize & CoUnInitialize;
D7...

gpi

На стабильной 3.20 работает нормально. Попробуй пока на стабильной версии. Сейчас проверю на 3.20.15
Добавлено
Проверил на 3.20.15 - всё нормально.
D7+SP1, XP+SP2, MSOffice 2003

dron-s

у меня дельфи с двумя обновлениями стоит а остальное всё тоже самое... но не работает... вылетает с ошибкой что небыл произведён вызов CoInitialize...

dron-s

-Blade-
делай для экспорта в Excel вот так...

uses ActiveX;
.....
var
  NameRep:TfrxMemoView;
  frxReport: TfrxReport;
  Page: TfrxReportPage;
  frxRTFExport: TfrxRTFExport;
begin

 frxReport:=TfrxReport.Create(frmIndex);
 Page:=TfrxReportPage.Create(frxReport);
 frxRTFExport:=TfrxRTFExport.Create(frmIndex);

 Application.ProcessMessages;
 frxReport.LoadFromFile(GetEXEPath + 'fr\Region.fr3');
 NameRep := frxReport.FindObject('NameRep') as TfrxMemoView;
 NameRep.Text := cbRegion.Text;
 frxReport.PrepareReport();

 CoInitialize(nil);
 frxReport.Export(frxXLSExport1);
 CoUnInitialize;
 frxReport.Free;
 frxXLSExport1.Free;

ВСЁ РАБОТАЕТ, САМ ЛИЧНО ПРОВЕРЯЛ!!!!!!!
за помощь сделать работоспособным код, отдельно gpi... THANK YOU!!!