Como utilizar TExcelApplication

[pacopenin]

Buen aporte que me había pasado desapercibido.

[PabloTech]

Hola amgios. Muy muchas gracias @Flecha por la clase, funciona de maravilla.

Yo ahora quisera saber cómo ponerle un ancho particular a una columna. Ya busqué y probé varias cosas pero siempre da error. Les muestro lo que me parece más acertado.

Código Delphi [-]
// En la clase tendría la función para cambiar el ancho de la columna... 
procedure TAplExcel.PonerAnchoColumna (Selection: Variant; Column: Variant; Width: Real);
begin
  Selection.Columns[Column].ColumnWidth := width;
end;
// Y en la implementación, debo especificar la columna y el ancho que deseo.
    Esquina1 := MyExcel.Excel.Cells[1, 1];
    Esquina2 := MyExcel.Excel.Cells[10, 18];
    Rango := MyExcel.Excel.Range[ esquina1, esquina2 ];
    MyExcel.PonerAnchoColumna (Rango, 3, 300 );

El mensaje dice: "No se puede asignar la propiedad ColumnWidth de la clase Range".


¿Me pueden ayudar con esto? Gracias de nuevo.

[manelb]

Saludos a todos ….

Pues he mirado como lo hago yo, y lo hago igual que tú, pero actuando únicamente sobre una celda, y no sobre un rango.

Código Delphi [-]

var
  .....
  celda: OleVariant;
  ..... 
begin
      ......
      CELDA:= HOJA.Cells.Item[FFILA,COLUMNA+1];
      celda.Font.Bold:=true;
      celda.Font.Size:=9;
      celda.Font.Underline:=true;
      celda.ColumnWidth:= ValorDeseado;
      ........

end;

Fíjate que concuerda bastante con el mensaje de error que obtienes.

Saludos...

[PabloTech]

Hola amigos y gracias manelb.
Ya lo descubrí y les comento cómo lo resolví. El problema en la función era el tipo de dato del argumento Width, yo había puesto Real pero debe ser Variant. Lo descubrí hacendo debuging y asignándole a

Código Delphi [-]
ColumnWidth := ColumnWidth * 2;

vi que sí funcionaba. Entonces supuse que el problema si era el tipo de dato.

Al final convertí la función en procedimiento mejor.

Código Delphi [-]
procedure TAplExcel.PonerAnchoColumna (Column: Variant; Width: Variant);
var Obj_Col: Variant;
begin
  Obj_Col := Obj_Excel.Columns[Column];
  Obj_Col.ColumnWidth := width;
end;

En la implementación, solo tengo que indicar cuál es la columna y qué tan ancho la necesito, por ejemplo 10,71.

Código Delphi [-]
    // Pone el ancho de la columnas.
    MyExcel.PonerAnchoColumna(1, 8.00);
    MyExcel.PonerAnchoColumna(2, 10.71);
    MyExcel.PonerAnchoColumna(3, 45.14);

Mil gracias.!