Ver Mensaje Individual
  #4  
Antiguo 13-02-2015
emeritos emeritos is offline
Miembro
 
Registrado: may 2003
Posts: 314
Reputación: 24
emeritos Va por buen camino
Lo he intentado algo asi y me funciona

Código Delphi [-]
  

uses OleServer, ComObj;

const
  xlWBATWorksheet = -4167;

var
  frmcursoalumnos: Tfrmcursoalumnos;
  Excel, WorkBook, WorkSheet: Variant;
  J : integer;
  nombre: String;


  procedure Tfrmcursoalumnos.SpeedButton4Click(Sender: TObject);
begin
    // crear instancia de la aplicación Excel (requieres la unidad ComObj)
    Excel := CreateOleObject('Excel.Application');
    // evitar que nos pregunte si deseamos sobreescribir el archivo
    Excel.DisplayAlerts := false;
    // agregar libro de trabajo
    Workbook := Excel.Workbooks.Add(xlWBATWorksheet);
    // tomar una referencia a la hoja creada
    WorkSheet := WorkBook.WorkSheets[1];
    WorkSheet.Name := MQcursos['curso'];
    //Llenamos las Celdas
    WorkSheet.Cells[1, 1] := 'Nombre';
    WorkSheet.Cells[1, 2] := 'Incidencias';
    J := 2;
    MQverconvivencia.First;
    While Not MQverconvivencia.Eof do
          Begin
             WorkSheet.Cells[j, 1] := MQverconvivencia['nombre'];
             WorkSheet.Cells[j, 2] := MQverconvivencia['cantidad'];
             j := j + 1;
             MQverconvivencia.Next;
          End;
   // guardar el archivo
   nombre := 'c:\convivencia\' + MQcursos['curso'] + '.xlsx';
   WorkBook.SaveAs(nombre);
   Excel.Quit;
end;

Lo unico que no se es crear otras hojas y algunas caracteristicas como colores, fondos, etc..
Responder Con Cita