Экспорт в Excel

[Gregor]

Добрый день. Использую базу данных FB. Из нее делаю выборку и пытаюсь запихнуть в Excel. Выяснил что если в поле попадается русские буквы то Excel выдает ошибку содержимого при открытии. Как побороть это, поможите советом.

[Stilet]

А код перетягивания данных покажешь?

[Serge_Bliznykov]

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

[Gregor]

constructor TExportToExcel.Create;
begin
  FExportFile := TXLSExportFile.Create(nil);
end;

procedure TExportToExcel.ExportToExcel(aRecordSet: TIBSQL; aFiltredList: TStringList);
var
  zSheet: TSheet;
  zFileName: string;
  zRow, zCol: integer;
  i: integer;
begin
  if not Assigned(aRecordSet) then Exit;
  zSheet := InitNewSheet('NewSheet', aFiltredList);
  zRow := 1;
  while not aRecordSet.Eof do
  begin
    zCol := 0;
    for i := 0 to aRecordSet.FieldCount - 1 do
    begin
      if aFiltredList.Values[aRecordSet.Fields[i].Name] <> '' then
      begin
        zSheet.Cells[zRow, zCol].Value := aRecordSet.Fields[i].AsString;
        Inc(zCol);
      end
    end;
    inc(zRow);
    aRecordSet.Next;
  end;
  zFileName := 'd:\test.xls';
  FExportFile.SaveToFile(zFileName);
  ShellExecute(0, 'open', PChar(zFileName), nil, nil, SW_SHOW);
end;

function TExportToExcel.InitNewSheet(aName: string; aColumnNames: TStringList): TSheet;
var
  i: integer;
begin
  FExportFile.Workbook.Sheets.Add(_(aName));
  Result := FExportFile.WorkBook.Sheets[FExportFile.WorkBook.Sheets.Count - 1];
  for i := 0 to aColumnNames.Count - 1 do
  begin
    Result.Cells[0, i].FillPattern := xlPatternSolid;
    Result.Cells[0, i].FillPatternBGColorIndex := 15;
    Result.Cells[0, i].Value := aColumnNames.ValueFromIndex[i];
  end
end;
//-----------------------------------

[Serge_Bliznykov]

судя по имени, Вы используете компонент xlsexport (с) SM Software

тогда я ничем не могу помочь, я этот компонент впервые вижу.
Если Вы его купили (компонент судя по всему платный) - обратитесь к разработчиками и/или на их форум.

[Gregor]

думаете проблема в нем? Если сделать через CreateOleObject('Excel.Application' ) поможет? Попробую.

[Serge_Bliznykov]

Сообщение от Gregor

думаете проблема в нем?

на 90% уверен, что в нём.
оставшиеся 10% - другие причины.
Возможно, что глюки компонента можно решить обходным путём (ну, например, русские буквы нужно переводить перед записью в какую-то кодировку, возможно unicode).

попробуйте действительно через OLE. Этот вариант, конечно, имеет свои недостатки, зато и достоинства тоже есть.

[Stilet]

Если сделать через CreateOleObject('Excel.Application' ) поможет?

Скажем так сколько я уже пользуюсь CreateOleObject ниразу не было проблем ни с 2003-м ни с 2007-м ни с другими версиями оффиса.

[Gregor]

да, с CreateOleObject('Excel.Application' ) выгружает нормально. спасибо!

[Gregor]

по производительности конечно второй метод уступает . на 9 тыс записей 15 секунд против 3,5 минут