Caso curioso exportando a excel desde una rejilla.

[roman]

Usé Delphi 7, y éste es el ejemplo:

Código Delphi [-]
var
  Excel: OleVariant;
  Libro: OleVariant;
  Hoja: OleVariant;

begin
  Excel := ComObj.CreateOleObject('Excel.Application');

  Libro := Excel.Workbooks.Add();
  Hoja := Libro.WorkSheets[1];

  Hoja.Cells[1, 1] := 'id';
  Hoja.Cells[1, 2] := 'nombre';

  Hoja.Cells[2, 1] := '1';
  Hoja.Cells[2, 2] := 'hugo';

  Hoja.Cells[3, 1] := '2';
  Hoja.Cells[3, 2] := 'paco';

  Hoja.Cells[4, 1] := '3';
  Hoja.Cells[4, 2] := 'luis';

  Excel.Visible := true;
end;

Claro que aquí no tengo un dataset, pero esto ya sería los de menos ¿no?

// Saludos

[[fjcg02]]

FUNCIONA !!
Gracias por la aportación, he probado y me funciona. Hay unos cuantos hilos preguntando lo mismo, y parece que hay una pequeña diferencia.

El código que yo tengo y no funciona tiene unas pequeñas diferencias:
- Las variables son VARIANT en lugar de OLEVARIANT
- Cuando creo el objeto pongo Excel:= CreateObject('Excel.application')
- Lo demás es exactamente igual,...
- pero el resultado no es el mismo.

El código de roman funciona estupendamente tras probarlo.

Gracias y un saludo

[roman]

Pues acabo de probar nuevamente usando Variant en lugar de OleVariant y sigue funcionando . Lo que no he podido probar es lo de CreateObject pues no sé a qué función te refieres. ¿En qué unidad está?

// Saludos

[[fjcg02]]

Creo que me equivoqué por hacer ezcrito de memoria.
Realmente quería decir CreateOleObject('Excel.Application'); y no CreateObject('Excel.Application');
Mañana la noche te responderé y copiaré el código exacto. Hoy no puedo , JUEGA EL ATHLETIC la semifinal de copa contra el Sevilla.

Saludos

[roman]

Pero entonces la única diferencia está sólo en el prefijo ComObj, pero eso sólo indica la unidad, no debería afectar, a menos que estés usando un CreateOleObject de otra unidad, aunque desconozco cuál podría ser.

Empezado por fjcg02

JUEGA EL ATHLETIC

Quizá la primera vez que probaste la exportación a Excel 2007 también jugaba el Athletic

// Saludos

[[fjcg02]]

Bueno, como el athletic ha ganado, os pongo el código que no me funcionaba en un principio. Funcionaba para excel 2000 y 2003 pero no para excel 2007.

Código Delphi [-]
procedure ....
    Excel: variant; Libro: variant; Hoja: variant; // Hoja de cálculo
begin
with SaveDialog1 do
begin
  FileName :=DirectoryListBox1.Directory+'\'+trim(QPresupuestosSERIE.AsString)+'-'+trim(QPresupuestosNUMERO.AsString)+'.xls';
  Filter:= 'Ficheros Excel|*.XLS;Todos los Ficheros|*.*';
  DefaultExt := 'XLS';
  Title := 'Exportando a Excel';
  if execute then
  begin
  try
      fichero:= SAveDialog1.FileName;
      try
        QLineasPres.Filtered:= False;
        contRow:= 2; SheetsCont:= 0;
        Excel := CreateOleObject( 'Excel.Application');
        try
          Excel.visible := False;
          // Creamos un nuevo libro de trabajo
          Excel.SheetsInNewWorkbook := 1;
          xlt:= parametro('PRES_HOJAXLT');
          if xlt<> '' then Libro := Excel.WorkBooks.Add();
          Hoja := Libro.WorkSheets.Add;
          Hoja := Libro.WorkSheets[1];
etc...

Pues eso, la diferencia está en el tipo de variable, que en este caso era variant y en el caso de roman olevariant.

Si hay algún gurú que pueda encontrar una respuesta, pues que nos la cuente si no es molestia.

Saludos

http://www.elcorreodigital.com/vizcaya/

Aupa Athletic !!