Exportar en excel una celda con una parte negrita y la otra normal.

[roman]

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

begin
  Excel := ComObj.CreateOleObject('Excel.Application');
  Excel.DisplayAlerts := false;
  Libro := Excel.WorkBooks.Add();
  Hoja := Libro.ActiveSheet;
  Hoja.Cells[1, 1] := 'Caso No 1: Este es un comentario';
  Excel.ActiveCell.Characters(1, 9).Font.FontStyle := 'Negrita';
  Excel.Visible := true;
end;

LineComment Saludos

[jeremiselxi]

Solamente puedo decir que excelente hermano.

Muchisimas Gracias.

Saludos desde Republica Dominicana.

[jeremiselxi]

Buenas tardes.

Realicé los ajustes de lugar para poder aplicarlo con el componente que utilizo el cual es: "TExcelApplication. ".

Adjunto el código que utilice para mostrar unos comentarios de una base de datos en el formato con que inicié mi pregunta.

Código Delphi [-]
procedure TForm_Fondos_fijos_reponibles.Button1Click(Sender: TObject);
var
 Start, Length: OleVariant;
  Libro : _WORKBOOK;
  Hoja  : _WORKSHEET;
 contar, i,colora:Integer;
Hojainicio:integer;
begin

ShowMessage('Espere un momento');
Libro := Excel.Workbooks.Add(Null, 0);
Hoja  := Libro.Sheets[1] as _WORKSHEET;


i:=0;


//Los comentarios
i:=i+3;
Hoja.Cells.Item[i,1]:='Comentarios Para el Informe.';

//Insertamos todos los registros al excel  y en dbgrid 1
  with DataModule_financiero.query_fondos_fijos_reponibles do
    begin
    first;
    contar:=0;
      while not EOF Do
        begin
        i:=i+1;
        contar:=contar+1;
        Hoja.Cells.Item[i,1]:='Caso No. ' +inttostr(contar)+ ', ' + DBGrid1.Fields[8].AsString;
        Hoja.Range['A'+ inttostr(i),'A'+ inttostr(i)].select;

        //Ponemos en negrita los 11 primeros caracteres
        Start := 1;
        Length := 11;
        Excel.ActiveCell.Characters[Start, Length].Font.FontStyle := 'Bold';

      Next;
   end;//while
end;//with

        Form_esperar.ProgressBar1.Position:= 0;
        Form_esperar.hide;

ShowMessage('Exportado con Exito!');

Excel.Visible[0] := true;

end;

y en resumen, el código utilizado para realizar poner los 11 primeros caracteres en negrita es:

Código Delphi [-]
        //Ponemos en negrita los 11 primeros caracteres
        Start := 1;
        Length := 11;
        Excel.ActiveCell.Characters[Start, Length].Font.FontStyle := 'Bold';

Ya que si utilizo el código

Código Delphi [-]
Excel.ActiveCell.Characters(1, 9).Font.FontStyle := 'Negrita';

Me da error en los paréntesis.

Muchas Gracias Roman porque sin ti no lo hubiera podido hacer.

Te debo una.

[roman]

Empezado por jeremiselxi

Muchas Gracias Roman porque sin ti no lo hubiera podido hacer.

No hay de qué. En realidad, muchas de las cosas que se pueden hacer con Excel, pueden averiguarse usando los macros de Excel: grabas un macro realizando los pasos necesarios para llevar a cabo la tarea en cuestión y luego revisas el código fuente del macro y te las ingenias para traducir el código VB a Delphi.

Esto fue lo que hice al ver tu pregunta

LineComment Saludos

[jeremiselxi]

Empezado por roman

No hay de qué. En realidad, muchas de las cosas que se pueden hacer con Excel, pueden averiguarse usando los macros de Excel: grabas un macro realizando los pasos necesarios para llevar a cabo la tarea en cuestión y luego revisas el código fuente del macro y te las ingenias para traducir el código VB a Delphi.

Esto fue lo que hice al ver tu pregunta

LineComment Saludos

Esta expresión que haré ahora se usa mucho en nuestro país, así que ahí va:

Waaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaawwwwwwwwwwwwwwwwwwwwwwwwwwwwww que gran idea.

Creo que me has dado muchas ideas de cosas que aun debo aprender.

Se te agradece mucho hermano.

Saludos.

[jgutti]

permite exportar a excel 2010 o superior
con Excel := ComObj.CreateOleObject('Excel.Application'); solo puedo exportar de excel 2000 hasta excel 2007

saludos