Creacion de mas hojas en Excel

[Osvaldo Carlos]

Estoy trabajando en D6 y necesito enviar datos a excel pero en un numero mayor de hojas de calculo que te presenta el Excel,(solo 3), estoy usando los componentes que te brinda el D6, para abrir el programa Excel y trasladar de la base de datos a las hojas de Excel, tal vez alguien puede disipar la duda que tengo.

[Anabel]

Hola Osvaldo!!!

Espero te sirva lo siguiente:

Necesitas de Delphi:
-TForm (obvio!!)
-TQuery
-SaveDialog
-TExcelapplication

var
LCID, LineNumber, h, s: Integer;
LineString :String; //
WorkBk : _WorkBook; // Define a WorkBook
WorkSheet : _WorkSheet; // Define a WorkSheet
IIndex : OleVariant;
begin
With SaveDialog1 do
begin
FileName:= '';
Filter:='Excel files|*.XLS;All Files|*.*';
DefaultExt := 'XLS';
Title:= 'Exportando a Excel';
IIndex := 1;
if execute then
begin
//Empieza el codigo para crear reporte en Excel
LCID := GetUserDefaultLCID;
With ExcelApplication1 do
begin
connect;
try
visible[LCID]:= True;
Workbooks.Add(EmptyParam,LCID); //Creamos el libro
WorkBk := WorkBooks.Item[IIndex];//Asignamos un Indice al libro
StandardFontSize[LCID] := 8;
StandardFont[LCID] := 'Arial';
h := 0; s := 0;
With qry do
begin
//aqui abres tu query
While not Eof do
begin
s := s + 1;
if h < 3 then // puedes también usar un FOR, yo aproveche el While de qry, ya que queria que cad registro cayera en una hoja diferente de Excel
begin
h := h+1;
WorkSheet := WorkBk.WorkSheets.Get_Item(h) as _WorkSheet;//Seleccionamos una hoja del libro seleccionado
end
else
begin
WorkBk.Worksheets.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam,LCID);
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;//Seleccionamos una hoja del libro seleccionado
end;
Next;
end
end;
ActiveWorkbook.SaveAs(FileName,xlNormal,'','',false,false,xlNochange,xlUserResolution,False,EmptyPar am,EmptyParam,LCID);
//Quit;
finally
disconnect;
end; //try
end;//ExcelApplication1
end; //execute
end;//SaveDialog1

Bye!!!

[mak8888]

Una duda con respecto a ese código. Dónde insertas datos en Excel? Es decir, lees datos del qry para insertarlos en la hoja de excel, no? Xo donde haces esa parte, pq no la veo.
Recorres los registros del query y te posicionas en una u otra hoja, no? Donde me pierdo es donde se supone que haces la inserción de los datos del query. Puedes aclararme esta duda por favor.
Gracias de antemano.