me podriasmandar informacion sobre como pasas a excel con el componente ScExcelExport
te agradeceria mucho

Responder

Re: Re: Re: Re: Re: Re: Como enviar datos a excel

Enviado por axtrik el día 17 de enero de 2006

scExcelExport: me podrias mandar todo loque tengas sobre este componente.
gracias seria de mucha ayuda

 

Responder

Viejo por favor enviame ese componente para enviar datos a excel es esta direcion

Responder

Re: por favor enviame eso

Enviado por Ravelli el día 7 de marzo de 2005

Viejo en C++ Builder 5 Professional ya está ese componente

 

Responder

procedure TForma1.SpeedButton1Click(Sender: TObject);
var
desde, hasta, Tarea : string;
DocsXMin, MINUTOS, DocsXH : Real;
LineNumber, LCID, sumall, Valor : Integer;
LineString : string;
begin
Desde := dateTostr(D.Date);
Hasta := DateTostr(H.Date);
Tarea := CBtas.Text;
query1.Close;
Query1.Parameters.ParamByName('TasName').Value:=Tarea;
query1.Parameters.ParamByName('DateFrom').Value := Desde;
query1.Parameters.ParamByName('DateTo').Value := Hasta;
query1.Open;
with SaveDialog1 do
begin
FileName :='';
Filter:= 'Excel files|*.XLS;All Files|*.*';
DefaultExt := 'XLS';
Title := 'Exporting to Excel';
if execute then
begin
query1.Open;
LCID := GetUserDefaultLCID;
with ExcelApplication1 do
begin
connect;
try
visible[LCID] := true;
Workbooks.Add(EmptyParam,LCID);
// paso 1
//Encabezado de los Datos a Insertar
Range['A1','F1'].Value := VarArrayOf(['USER ID',
'TimeMinutesOnDocs',Tarea, 'TotalDocuments','Docs X Min',
'Docs X Horas', 'TAREA']);
//paso 2
// Formato de la primera fila de la Hoja XLS
with Range['A1','F1']do
begin
HorizontalAlignment := xlcenter;
VerticalAlignment := xlBottom;
Wraptext := false;
Orientation := 0;
ShrinkTofit := false;
MergeCells := false;
Font.Bold := true;
end;
Query1.First;
LineNumber := 1;
//paso 3, Inter-Actuacion entre la data del Query Y Excel
While not query1.Eof do
begin
Valor := 0;
sumall :=0;
DocsXMin := 0;
Inc(lineNumber);
LineString := IntToStr(LineNumber);
sumall := sumall + query1.Fieldbyname(tarea).AsInteger;
Minutos := Round(Query1TimeMinutesOnDocs.Value);
If (minutos = 0) or (minutos < 0) then
minutos := 1;
DocsXmin := sumall/minutos;
DocsXH :=(DocsXmin * 60);
Range['A'+LineString, 'F'+LineString].Value :=
VarArrayof([Query1User_ID.value, MINUTOS,
query1.Fieldbyname(tarea).AsInteger, Sumall, DocsXMin, DocsXH]);
Query1.Next;
end;
Range['E2','F'+LineString].NumberFormat := '#,##0.00';
LineString := IntToStr(LineNumber);
Range['A1','F1'+LineString].AutoFormat(xlRangeAutoFormatlist1, true,
true,true,true,true,true);
Range['A1','F1'+LineString].Columns.AutoFit;
ActiveWorkbook.SaveAs(FileName,xlNormal, '', '', false, false,
xlNochange,xlUserResolution,False,EmptyParam,EmptyParam,
LCID);
Quit;
finally
disconnect;
end; //try
end; //with Excelapplication1
end; //if execute
end; //with Savedialog1
end;

Responder

Funcionara para el word???

Enviado por Jimmy el día 5 de septiembre de 2005

Hola, mi problema es similar deseo exportar o guardar un reporte en formato doc.
si pudieras ayudarme???

 

Responder

Hola yo tambien necesito ese objeto para exportar los datos a excel.
Si podrian pasarmelo se los agradecere muchisimo

Responder

me puedes ayudar necesito pasar datos desde delphi a una planilla excel

Responder

Hola Ana por favor podria enviame un ejemplo utilizando ese componente . Puedes enviarme tu correo por favor es urgente.

Responder

Disculpa me podrias ayudar a mandar los datos de un query a excel es que en delphi si tengo el componente pero en C++ builder nop

Responder

Re: Re: Re: Re: Re: Re: Como enviar datos a excel

Enviado por Fermin el día 25 de julio de 2004

Mandame un correo y te mando un ejemplo de como
pasar datos a Excel (una tabla completa) utilizando
una variable OleVariant.

Un saludo.

 

Responder

Re: Re: Re: Re: Re: Re: Re: Como enviar datos a excel

Enviado por Jimmy el día 5 de septiembre de 2005

Para cualquier persona...--> deseo exportar o guardar en formato doc (word) un reporte de delphi, mi correro es jimmymirandaz@gmail.com

 

Responder

Hola Ana,
Vi tu comentario respecto al scExcelExport y quisiera tener mayor informacion para poder utilizar ese componente, por favor podrias escribirme al mail?, muchas gracias,
Jose Luis

Responder

Como funciona?

Responder

Hola , me puedes explicar como funciona

Responder