Grid & Excel

← →
Mark_kms © (2002-11-27 15:07) [0]

Подскажите пожалуйста как из Грида экспортировать данные в эксель.

← →
Uran © (2002-11-27 15:36) [1]

есть замечательная компонента Ehlib, там и сам DBGrid намного функционального стандартного и есть возможность экспорта в эксель..

uses
registry, OleServer, Excel2000, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
WorkSheet : Variant;
regData: TRegistry;
i,j:integer ;
Excel : Variant;
begin
{---------конектимся к ексель файлу---------------------}
if OpenDialog1.Execute then
begin
Excel := "Excel.Application";
regData := TRegistry.Create;
regData.RootKey := HKEY_CLASSES_ROOT;
try
if regData.OpenKey("\Excel.Application\CurVer", False) then
begin
Excel:= regData.ReadString("");
regData.CloseKey;
end
finally
regData.Free;
end;
Excel := CreateOleObject(Excel);
Excel.Visible := false;
Excel.Workbooks.Open( OpenDialog1.FileName );
WorkSheet := Excel.Workbooks[1].WorkSheets[1];
{--экспортируем данные---------------------------}
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.RowCount do
WorkSheet.Cells[i,j]:=StringGrid1.Cells[i,j];
Excel.Visible := true;
end;

можна сделать примерно так. пробовал - работает.

Grid & Excel Найти похожие ветки