Экспорт из DBGrid в Excel

[Oleg Romanchuk]

Добрый день форумчани! Нужна Ваша помощь.
Из БД в Excel выгрузка получилась, все замечательно, но при включении фильтрации в таблице DBGrid остается несколько записей, и вот тут то и начинаются проблемы! Пробую выгружать данные вот так:

index:=3;
MainModule.GeneralTab1.First;
  with MainGrid.DataSource.DataSet do
 begin
 MainModule.GeneralTab1.DisableControls;
 for i:=0 to MainGrid.SelectedRows.Count-1 do
  begin
  GotoBookmark(pointer(MainGrid.SelectedRows.Items[i]));
   Sheet.Cells[index,1]:=MainModule.GeneralTab1FIO.AsString;
   Sheet.Cells[index,2]:=MainModule.GeneralTab1KeyCard.AsString;
   Inc(index);
  MainModule.GeneralTab1.Next;
  end;
  end;
  MainModule.GeneralTab1.EnableControls;

Эксел открывается, но данных там ни каких нет!
Подскажите где может быть ошибка?(
Или, есть способ из ADOTable с включенным фильтром, выгрузить данные только те, которые находятся в фильтре!
Спасибо!!!

[Serge_Bliznykov]

мне кажется, Вы ищите проблемы там, где их нет...

обычный банальный перебор при включённом фильтре будет перебирать именно ОТФИЛЬТРОВАННЫЕ записи!

примерно так:

index:=3;
MainModule.GeneralTab1.First;
MainModule.GeneralTab1.DisableControls;
while Not MainModule.GeneralTab1.EOF do begin
   Sheet.Cells[index,1]:=MainModule.GeneralTab1FIO.AsString;
   Sheet.Cells[index,2]:=MainModule.GeneralTab1KeyCard.AsString;
   Inc(index);
   MainModule.GeneralTab1.Next;
end;
MainModule.GeneralTab1.EnableControls;

[Oleg Romanchuk]

Спасибо большое, в понидельник попробую... )