dudas con el excel

[raquel]

Hola:

Veran sigo con el tema de exportar a excel, no se si esto ya lo han respondido pero no lo encuentro.

El caso es que yo tengo un query, como accedo al nombre del campo de la base de datos? es decir, si tengo un campo que es 'EDAD' yo se acceder al contenido, 21 por ejemplo, pero como hago para acceder al nombre, es decir, a 'EDAD'.

Otra cosa, una vez obtenido el nombre del campo, como hago al exportarlo a excel para que el nombre de la columna sea ese? es decir, que ponga en el nombre de la columna EDAD para luego que en las filas se sepa de que son esos datos.

No se si me he explicado bien.

Gracias a todos

[marcoszorrilla]

Como en un principio hay dos posibilidades de exportación, con la paleta Servers y con CreateOleObject, convendría que dijeras de que manera estás trabajando.

Este ejemplo es con la segunda opción.
Es preceptivo incluir ComObj en el Uses

Código Delphi [-]
     //solamente hay 6 columnas pongo los nombres a mano
     excel.Cells[fila, 1].Value:='Orden';
     excel.Cells[fila, 2].Value:='Clas';
     excel.Cells[fila, 3].Value:='Licencia';

Un Saludo

[raquel]

Lo hago mediante CreateOleObject ya que lo de la paleta no se usarlos.

Mi problema es que la bd en la que lo hago tiene 200 campos asi que hacerlo a mano no puedo. no hay otra forma?
Ademas al hacerlo asi te rellena las celdas, pero yo quiero que el nombre aparezca en el nombre de columna, es decir, donde pone A,B,C,etc...
Otra cosita como pongo una celda en negrita? porque si pongo "hoja.cells[1,1].font.bold := true;" me da error en el font y si no especifico la celda si funciona pero me pone todas en negrita.

Gracias por responder

[marcoszorrilla]

Un ejemplo:

Código Delphi [-]
procedure TfrConCompras.SpExpToExcellClick(Sender: TObject);
 var
  excel:Variant;
  fila,columna:Integer;
  Data : TDataSet;
begin
  try
    excel:=CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel no se pudo iniciar.');
    exit;
  end;
  excel.Visible:=true;

    Data:=Dbgrid1.DataSource.DataSet;
         Data.First;
         fila:=1;
         columna:=1;
          excel.Workbooks.Add;

          //Poner los títulos
           for columna := 0 to Dbgrid1.Columns.Count-1 do
           begin
           excel.Cells[fila,columna + 1].Value:=Dbgrid1.Columns[columna].FieldName;
           end;

           fila:=2;
           Dmxxxx.Comp.DisableControls;
           Dmxxxx.LinComp.DisableControls;

         Try

           while not(Data.eof) do
            begin

             for columna := 0 to Dbgrid1.Columns.Count-1
             do
             begin
              if columna < 5 then
              excel.Cells[fila,columna + 1].Value:=Data.FieldByName(Dbgrid1.Columns[columna].FieldName).asString
              else
              excel.Cells[fila,columna + 1].Value:=Data.FieldByName(Dbgrid1.Columns[columna].FieldName).asFloat;
              end;

              Data.Next;
              fila:= fila + 1;
            end;
                     Except
         ShowMessage('Atención, se produjo un error en la transmisión.');
         end;
         Dmxxxx.Comp.EnableControls;
         Dmxxxx.LinComp.EnableControls;

end;

Un Saludo.