Экспорт в Excel

koder++

Есть отчёт с котором одно из полей номер телефона
экспортирую отчёт в Excel, а он мне эти поля пишет в экпоненциальном виде.
8,91+E12. Можно ли как-нить с этим справиться? Версия 3.10.

AlexTZ

В настройках экспорта есть флажок As text, включите его.

Markus

Александр, этот флажок ведёт себя я бы сказал довольно выборочно. Я вам уже высылал файл fp3, из которого если сделать экспорт в excel сразу видно, что большие числа он всёравно выдаёт как число в экспотенциальном виде. С другой стороны в старых версиях экспорт работал, нормльно но раньше судя по исходникам был немного другой принцип работы с результирующим массивом. Спасает только экспорт через XML, но он нормально обрабатывается только Excel XP/2003, что ни есть хорошо, либо правкой исходников:

unit frxExportXLS;
.............
{$IFDEF Delphi6}
            CurValIsFloat := TryStrToFloat(s, conv);
            if CurValIsFloat then
             if not FAsText then
              ArrData^[y + FMatrix.Height * (x - 1)] := conv
             else
              ArrData^[y + FMatrix.Height * (x - 1)] := ''''+s {вот это помогает}
            else
{$ENDIF}
              ArrData^[y + FMatrix.Height * (x - 1)] := s;
............

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

Если надо могу ещё раз выслать fp3.

koder++

Markus прав, этот флажок не срабатывает,
Markus спасибо за совет!

Alex_Gol

Markus написал:

unit frxExportXLS;
.............
{$IFDEF Delphi6}
            CurValIsFloat := TryStrToFloat(s, conv);
            if CurValIsFloat then
             if not FAsText then
              ArrData^[y + FMatrix.Height * (x - 1)] := conv
             else
              ArrData^[y + FMatrix.Height * (x - 1)] := ''''+s {вот это помогает}
            else
{$ENDIF}
              ArrData^[y + FMatrix.Height * (x - 1)] := s;
............

Чтобы, напимер, номера документов типа 00234 выводились при экспорте отчета с ведущими нулями можно немного доработать твое предложение (хотя тоже не идеал и есть некоторые ограничения...):

unit frxExportXLS;
.............
{$IFDEF Delphi6}
            CurValIsFloat := TryStrToFloat(s, conv);
            if CurValIsFloat then
              if not AsText and (Obj.DisplayFormat.Kind = fkNumeric) then
                ArrData^[y + FMatrix.Height * (x - 1)] := conv
              else
                ArrData^[y + FMatrix.Height * (x - 1)] := ''''+s
            else
{$ENDIF}
              ArrData^[y + FMatrix.Height * (x - 1)] := s;
............