Ayuda sobre Palette "Servers"

[marcoszorrilla]

Se me olvido poner un ejemplo:

incluye Comobj en el Uses de tu formulario.


procedure TForm1.Button1Click(Sender: TObject);
var
excel:Variant;
fila,columna:Integer;
Data : TDataSet;
begin
try
excel:=CreateOleObject('Excel.Application');
except
ShowMessage('Excel no se pudo iniciar.');
exit;
end;
excel.Visible:=true;

Data:=DBGRID1.DataSource.DataSet;
Data.First;
fila:=1;
columna:=1;
excel.Workbooks.Add;

while not(Data.eof) do
begin

for columna := 0 to dbgrid1.Columns.Count-1
do
begin

excel.Cells[fila,columna + 1].Value:=Data.FieldByName(DBGrid1.Columns[columna].FieldName).asString;
end;

Data.Next;
fila:= fila + 1;
end;


excel.Cells[fila,1].Value:='=SUM(a1:a3)'


end;

Un Saludo.