Kod: Tümünü seç
procedure TForm1.ExcelAt(
Qry: TDataset);
//Yazar : Hüseyin ÖZDEMİR
//Nikname : Husonet
//Tarih 14.12.2006
var
Excel, Sayfa :variant;
i :integer;
liste :TStringList;
Str :String;
Mem :TMemoryStream;
begin
liste := TStringList.Create;
screen.Cursor := crHourGlass;
try
if not Qry.IsEmpty then
begin
str := '';
Qry.DisableControls;
Qry.First;
while not Qry.Eof do
begin
for i := 0 to Qry.FieldCount - 1 do
begin
str := str + Qry.Fields[i].AsString + #9;
end;
liste.Add(Str);
str := '';
Qry.Next;
end;
liste.Add(#0);
Mem := TMemoryStream.Create;
Liste.SaveToStream(Mem);
ClipBoard.SetTextBuf(Mem.Memory);
Excel := CreateOleObject('excel.application');
Excel.visible := True;
Excel.workbooks.add;
Excel.ActiveSheet.paste;
end;
finally
qry.EnableControls;
liste.Free;
Mem.Free;
screen.Cursor := crDefault;
end;
end;