Pasar una tabla a excel 2010
 

Hola Dilfersos.

Estoy intentando pasar el contenido de un fichero a un excel que ya he predibujado anteriormente.

¿Por donde puedo empezar?
Gracias.

Deberías dar un poco más de detalles de "lo que deseas pasar".
¿Qué estructura tienen?
¿Son Datos en filas y columnas (Tabla)?
¿Son celdas sueltas?

¿Qué significa que el Excel lo has predibujado?

emeritos,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

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..

Yo he utilizado este código en alguna ocasión para el tema de colores y formatos:

Código Delphi [-]
  xls, wb, Range: OLEVariant;

  //············································································
  procedure FormatRangeColorFont(AWorkSheet:OLEVariant);
  begin
    // format de la primera columna
    Range := AWorkSheet.Range[AWorkSheet.Cells[1, 1],
                                    AWorkSheet.Cells[RowCount, 1]];
    Range.NumberFormat := '@';
    Range.Interior.Color := clGray;
    // format de la primera fila
    Range := AWorkSheet.Range[AWorkSheet.Cells[1, 1],
                                    AWorkSheet.Cells[1, ColCount]];
    Range.NumberFormat := '@';
    Range.Interior.Color := clGray;
    // format de los totales
    Range := AWorkSheet.Range[AWorkSheet.Cells[Rowcount, 1],
                                    AWorkSheet.Cells[Rowcount, ColCount]];
    Range.NumberFormat := '@';
    Range.Interior.Color := clGray;
    Range.EntireRow.Font.Bold := true;
    // format de los números
    Range := AWorkSheet.Range[AWorkSheet.Cells[2, 2],
                                    AWorkSheet.Cells[Rowcount, ColCount]];
    Range.NumberFormat := '#.##0';
  ...

Muchas gracias.

Pero donde puedo conseguir un manual para esto y seguir haciendo cositas.

Gracias.

emeritos,

:rolleyes:

Te sugiero revisar el Msg #3, allí encontraras una referencia a Embarcadero.

Nelson.