Export DBGrid ke Microsoft Excel

Berikut ini contoh coding untuk mengexport data dari DBGrid ke Microsoft Excel
Catatan : Coding ini hanya berlaku pada Excel Punya Microsoft yang di install, tidak berlaku untuk Open Office atau Office Portable.



======= CODE ======

uses VsrExcelOle;

procedure TForm1.Button1Click(Sender: TObject);
var
ex: VsrExcel;
r,i: Integer;
begin
ex:=VsrExcel.Create;
ex.Visible:=True;
ex.New;
with DBGrid1.DataSource.DataSet do
begin
DisableControls;
First;
r:=0;
while not Eof do
begin
Inc(r);
for i:=0 to Fields.Count-1 do
ex.Write(chr(65+i)+IntToStr(r),Fields[i].AsString);
Next;
end;
EnableControls;
end;
ex.Free;
end;

==== END OF CODE ======

unit VsrExcelOle.dcu (Untuk Delphi 7 & Delphi 2006) dapat didownload di http://www.box.com/s/f9c4ebde3a0ce86a1895

lalu copykan file tersebut ke

c:\program files\Borland\Delphi7\Lib


sumber : http://www.facebook.com/groups/delphi.interbase/
oleh  : http://www.facebook.com/imam.chalimi 

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI