Экспорт в Excel

Комментарии

• AlexTZ

  March 2005 отредактировано 21:21

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

  March 2005 отредактировано 21:21

  Александр, этот флажок ведёт себя я бы сказал довольно выборочно. Я вам уже высылал файл 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++

  March 2005 отредактировано 21:21

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

  March 2005 отредактировано 21:21

  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;
  ............