Como utilizar TExcelApplication

[Neftali [Germán.Estévez]]

Empezado por Flecha

No puedo evitar escribir ladrillos. Cualquier explicación me parece poca para dejarlo suficientemente claro.

Bueno, a mi más que un ladrillo, me parece una fantástica y detallada explicación.

[StartKill]

Realmente muy buen aporte.

Debo suponer que Flecha ah mejorado su clase..

A ver si te animas a subir novedades de tu clase (que ocioso que soy...)


Ss.

Your friend

Startkill
//----------

[Jose Roman]

Gracias por esa explicación y tu aporte tan grade, tengo una inquietud Flecha, cuando tengo instalado office 2007 funciona el mismo codigo???

[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.!