3 replies to this topic

[egostar]

Hola

Estoy creando una clase para interactuar con el componente TExcelApplication y necesito saber que parámetro se requiere para agregar una hoja y enviarla al final ya que con lo que estoy haciendo la crea al inicio.

Hoja4, Hoja1, Hoja2, Hoja3

delphi

// Count = Cuantas hojas quiero agregar
procedure Tbd2xl.New_Sheet(const Count: integer);
begin
  FXLApp.Sheets.Add(EmptyParam,EmptyParam,Count,EmptyParam,FLCID);
  //FXLApp.Sheets.Add(EmptyParam,3,Count,EmptyParam,FLCID); After indice 3
  //FXLApp.Sheets.Add(EmptyParam,'Hoja3',Count,EmptyParam,FLCID); After 'Hoja3'
end;

Los dos primeros parámetros son Before and After, he intentado colocar el número de indice (3) o el nombre de la hoja ('Hoja3') pero en ambas produce un bello error OLE.

Lo que quiero es que la agregue al final del libro y no al inicio como lo está haciendo.

Hoja1, Hoja2, Hoja3, Hoja4

Salud OS

[Caral]

Hola
Nunca lo he hecho, pero si el count es integer, no lo estas repitiendo?.

delphi

procedure Tbd2xl.New_Sheet(const Count: integer);
begin
FXLApp.Sheets.Add(EmptyParam,EmptyParam,3,EmptyParam,FLCID); 
end;

Otra cosa seria darle el valor a count antes en un ciclo wile.
No se, digo....
Saludos

[egostar]

Hola
Nunca lo he hecho, pero si el count es integer, no lo estas repitiendo?.

Otra cosa seria darle el valor a count antes en un ciclo wile.
No se, digo....
Saludos

El Count como lo mencioné, es la cantidad de hojas que quiero agregar, en este caso solo es 1, pero pueden ser mas de una y las coloca al inicio y no al final, lo que necesito es que las agregue al final.

Salud OS

[egostar]

Hola

Después de comer y un descanso obligado, encontré la solución a mi problema. Se los documento para futuras consultas.

delphi

procedure Tbd2xl.New_Sheet(const Count: integer);
begin
  // Sheets.Add(Before: OLEVariant, After: OLEVariant, Count: OLEVariant, LCID: OLEVariant)
  FXLApp.Sheets.Add(EmptyParam, FXLApp.Sheets[FXLApp.Sheets.Count], Count, EmptyParam, FLCID);
end;

• Agregamos las hojas que se desean en la variable Count
• Movemos la hoja al final con la función FXLApp.Sheets[FXLApp.Sheets.Count]

Resultado:

Hoja1, Hoja2, Hoja3, Hoja4

Salud OS