Viendo varios ejemplo de pasar una colsulta a un doc. de excel encontre lo siguiente: es que de una consulta que muestro en mi DBgris lo quiero pasar a Excel
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i, j:Integer;
Str:String;
TS:TStrings;
begin
Str := '';
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do begin
if (i <> StringGrid1.Selection.Top) then begin
Str := Str + #13#10;
end;
for j := 0 to (StringGrid1.Rows[i].Count - 1) do begin
if (j <> 0) then begin
Str := Str + #9;
end;
Str := Str + StringGrid1.Rows[i].Strings[j];
end;
Clipboard.AsText := Str;
TS := TStringList.CReate();
TS.Text := Str;
TS.SAveToFile('c:\salida.csv');
TS.Free;
end;
end;