Выгрузка Grid

← →
Elena999 (2006-01-12 14:54) [0]

Где взять компонент OpToExcel для выгрузки Grid-а в Excel?
В каком это наборе RX, EhLib, Raise, AppControl ?? Мне срочно нужно для 7-ки Подскажите plizzzz...

← →
Ega23 © (2006-01-12 15:06) [1]

Есть несколько юнитов, которые экспортируют грид в экселевский файл. Если на машине ексель не установлен - просто создаёт xls файл.
Могу поделиться.
Писал не я, это шеф откуда-то притащил.
Мыло - в анекте.

У EhLib есть экспорт грида.
var
exportClass: TDBGridEhExportClass;
ext: string;
begin
// Экспорт данных грида
Screen.Cursor := crHourGlass;
try
SaveDialog.FileName := Caption;
if (ActiveGrid.Selection.SelectionType = gstNon) then
ActiveGrid.Selection.SelectAll;
if SaveDialog.Execute then
begin
case SaveDialog.FilterIndex of
1:
begin
exportClass := TDBGridEhExportAsText;
ext := "txt";
end;
2:
begin
exportClass := TDBGridEhExportAsCSV;
ext := "csv";
end;
3:
begin
exportClass := TDBGridEhExportAsHTML;
ext := "htm";
end;
4:
begin
exportClass := TDBGridEhExportAsRTF;
ext := "rtf";
end;
5:
begin
exportClass := TDBGridEhExportAsXLS;
ext := "xls";
end;
else
exportClass := nil;
ext := "";
end;
if exportClass <> nil then
begin
if UpperCase(Copy(SaveDialog.FileName, Length(SaveDialog.FileName) -
2, 3)) <> UpperCase(ext) then
SaveDialog.FileName := SaveDialog.FileName + "." + ext;
SaveDBGridEhToExportFile(exportClass, ActiveGrid,
SaveDialog.FileName, False);
end;
end;
if (ActiveGrid.Selection.SelectionType = gstAll) then
ActiveGrid.Selection.Clear;
finally
Screen.Cursor := crDefault;
end;

В uses включить DBGridEhImpExp

Выгрузка Grid - а в Excel Найти похожие ветки