Resaltar celda de excel

[voldemmor]

hola amigos del foro espero que podais ayudar.

Código Delphi [-]
procedure TfrmActas.Button1Click(Sender: TObject);
var
i,j:Integer;
excel:Variant;
begin
  try
   Excel := CreateOleObject('Excel.Application');
   except
     Excel.Quit;
     showmessage('No se pudo crear el Objecto Excel o se produjo algún error.');
     raise;
     end;
//***** Asignamos el archivo a abrir *****//
    Excel.Workbooks.Open('c:\ejemplo.xls'); 
    excel.cells[1,3].value:='Listado de Alumnos '+ AnioActual;//renglon 5 columna 1
     excel.cells[2,3].value:='Especialidad :'+cbxEspecialidades.Text;
     excel.cells[3,3].value:='Curso :'+cbxCursos.Text;
     excel.cells[6,2].value:='Codigo';
     excel.cells[6,3].value:='Nombre y Apellido del Alumno';
     excel.rows[6].font.bold := true;
     with DataSource1.DataSet do
     begin
       First;
       j:= 7;
       while not Eof do
       begin
          if Fields[0].Visible then
          begin
          excel.cells[j,2].value := Fields[0].AsString;
          excel.cells[j,3].value := fields[1].AsString +' '+ Fields[2].AsString;
          inc(j);
          end;
          Next;
       end;
       excel.cells[4,3].value:='Total de alumnos :'+IntToStr(j-7);
     end;
     excel.cells.columns.autofit;
     excel.visible:=true;
  end;

con este codigo paso datos a un documento excel que lo tengo externamente, aun no he podido crear uno nuevo desde delphi, cada vez que lo requiero.

La duda

Quiero resaltar y remarcar los bordes de una celda de este documento excel, dado ciertas condiciones, claro esta, espero me podais orientar con esta duda, Si es posible con las instrucciones o que me digan donde puedo encontrar algun manual sobre esto, porque no lo he podido hallar


Gracias de antemano

[ContraVeneno]

Código Delphi [-]
Uses Excel2000
....

var
  Excel, Libro: Variant;
...

  Excel:=CreateOleObject('Excel.Application');
  Excel.Visible := False;
  Excel.DisplayAlerts:= False;
  Excel.WorkBooks.Add;
  Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte';
  Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];
  Libro.Cells[1,1]:='Reporte';
.....
    Libro.Cells[i,4].Font.Bold:=True;
    Libro.Range['A'+inttostr(i-1), 'E'+inttostr(i-1)].Merge;
    Libro.Range['A'+inttostr(i-1), 'E'+inttostr(i-1)].Borders[xlBottom].weight := xlMedium;
    Libro.Range['A'+inttostr(i+1), 'E'+inttostr(i+1)].Merge;
    Libro.Range['A'+inttostr(i+1), 'E'+inttostr(i+1)].Borders[xlTop].weight := xlMedium;

  Excel.Visible:=true;

  //Excel.Quit;
  Libro:=Unassigned;
  Excel := Unassigned;

Con eso creas un archivo de excel nuevo y ahí viene el ejemplo de como poner bordes.

[voldemmor]

Gracias contraveneno. Lo pruebo y te aviso.

Otra duda. Me podrias decir como puedo activar la vista previa de excel, directamente desde mi codigo en delphi

[[BlueSteel]]

Empezado por voldemmor

Gracias contraveneno. Lo pruebo y te aviso.

Otra duda. Me podrias decir como puedo activar la vista previa de excel, directamente desde mi codigo en delphi

Hola, y lo que necesitas es que te abra el archivo una vez creado o verlo en una ventana de tu aplicación....

Para visualizar un archivo dentro de mi aplicación he utilizado el componente TWebBrowser (no me acuerdo de que paleta lo saque..)

y para pasar el archivo solo tienes que usar esto

Código Delphi [-]
   WebBrowser.Navigate(Ruta_del_archivo_y_nombre_de_archivo);

Salu2

[ContraVeneno]

Bueno, eso haría que vieras el archivo dentro de tu aplicación. Pero con la instrucción "Excel.Visible" ya muestras el archivo, no dentro de tu aplicación, pero ya se muestra.

Y para lanzar la vista previa de excel, pues no se como se haga. Aunque debo decir que no veo la necesidad de hacer eso. Ya le muestras el archivo al usuario, si el lo quiere imprimir, que lo haga, si no, simplemente cierra excel.

[voldemmor]

Tienes razon , en parte, ya que le muestro el archivo de excel y el puede hacer lo que requira.

Pero: Ay de usuarios a usuarios, y creo yo que seria una buena obcion el activar excel en en vista previa.

PD: y despues de todo no es malo aprender algo nuevo.