Hojas de Excel...

[Jose Roman]

Hola a todos...
Me gustaria saber como puedo cargar en un ListBox las hojas que tiene un archivo de excel, tengo Delphi 7.
Gracias de antemano por la colaboracion.

[*Caro*]

Hola Jose, lo puedes hacer de esta forma:

Código Delphi [-]
var
 WorkBook: OleVariant;
begin 
 for Ind := 1 to WorkBook.Worksheets.Count do
    ListBox1.Items.Add(WorkBook.Worksheets[Ind].Name);

Saluditos

[Jose Roman]

Gracias por responder...
Tengo este procedimiento:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  ApXls : Variant;
  Libro : Variant;
  Hoja  : Variant;
begin
  try
    ApXls := CreateOleObject('Excel.Application');
    try
      ApXls.Visible := False;
      Libro := ApXls.WorkBooks.Add;
      Libro.Open('C:\Documents and Settings\LABORATORIO.FPINTO\Escritorio\COBRO.xls');
      ShowMessage(IntToStr(ApXls.WorkBooks.Worksheets.Count));
    finally
      ApXls.Quit;
      ApXls.Free;
    end;
  except

  end;
end;

Al tratar de saber cuantas hojas posee el libro de Excel abierto, me arroja este error:

EOleError with message 'Method 'Worksheets' not supported by automation object'.

No estoy utilizando componentes para abrir Excel solo las unidades ComObj y Excel2000.

[*Caro*]

Hola de nuevo, debes hacerlo de esta forma :

Código Delphi [-]
  try
    ApXls := CreateOleObject('Excel.Application');
    try
      ApXls.Visible := False;
      Libro := ApXls.Workbooks.Open('C:\Documents and Settings\LABORATORIO.FPINTO\Escritorio\COBRO.xls');
      ShowMessage(IntToStr(Libro.Worksheets.Count));
    finally
      ApXls.Quit;
    end;
  ..............

Pruebalo y nos dices si te funciona.

Saluditos

[Jose Roman]

Gracias eso era lo correcto...

[Jose Roman]

Que pena molestar tanto, pero sabes como hago para realizar un cilo for para las filas que posean datos, es decir de la columna A fila 1 hasta fila X leer dato.

[*Caro*]

Empezado por Jose Roman

Que pena molestar tanto, pero sabes como hago para realizar un cilo for para las filas que posean datos, es decir de la columna A fila 1 hasta fila X leer dato.

Hola de nuevo, debes añadir lo siguiente:

Código Delphi [-]
var
 .............
 .............
 Rows, Cols : Integer;
 Rango: Variant;
begin
 .......................
  Hoja := ApXls.Workbooks['COBRO.xls'].WorkSheets[1];
  Hoja.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
 
  Rows := ApXls.ActiveCell.Row;
  Cols := ApXls.ActiveCell.Column;
 
  Rango := ApXls.Range['A1', ApXls.Cells.Item[Rows, Cols]].Value;
  for i:=1 to Rows do
   begin
    for j:=1 to Cols do
     begin
      Showmessage(Rango[i,j]);
     end;
   end;
 ........................

Saluditos

[Ernesto Storch]

Hola,

He estado utilizando en una aplicación antigua (delphi 6) los templates de Excel de AfalinaSoft XL REPORT 4.2 (VCL) pero no encuentro ninguna versión nueva que pudiera servir para poder migrar la aplicación a Delphi Studio 2007 - win32.

Conoceis algún componente o programa similar que pudiera servir para no tener que volver a reestructurar más de 35 templates desarrollados?.

Muchas gracias!.
Un Saludo,

Ernesto Storch

[Ernesto Storch]

Hola,

Logré modificar y compilar las units que viene en el Source del xl report 4.2 (vcl - Afalina 2001) en delphi 2007 pero no logro registrar el componente en DELPHI STUDIO 2007. El error es que no encuentra el RTL70.BPL ( No logra crearlo!). Alguién que sepa de programación de componentes me podría ayudar?. Envío los fuentes...
Gracias!, Saludos.

Ernesto.

Empezado por Ernesto Storch

Hola,

He estado utilizando en una aplicación antigua (delphi 6) los templates de Excel de AfalinaSoft XL REPORT 4.2 (VCL) pero no encuentro ninguna versión nueva que pudiera servir para poder migrar la aplicación a Delphi Studio 2007 - win32.

Conoceis algún componente o programa similar que pudiera servir para no tener que volver a reestructurar más de 35 templates desarrollados?.

Muchas gracias!.
Un Saludo,

Ernesto Storch

[Tejares]

Si no te encuentra RTL70.BPL es porque están creados con Delphi 7 y lo intentas compilar con 2007, sustituye RTL70.BPL por la versión del fichero correspondiente de Delphi 2007.

De todas formas, componentes creados para versiones antiguas de Delphi, no son necesariamente compatibles en las últimas, a menos que sepas adaptar el código fuente.

[Ernesto Storch]

Hola,

Parece que el fabricante (AfalinaSoft) ha discontinuado el desarrollo de este producto. por lo tanto no hay Bpl para 2007.

Seguiré buscando una solución.

Gracias por tu respuesta.
Saludos

[Tejares]

RTL es un fichero de Delphi, que cambia de nombre con cada versión.
Por lo tanto en tu Delphi 2007 lo tienes.

Empezado por Ernesto Storch

Hola,

Parece que el fabricante (AfalinaSoft) ha discontinuado el desarrollo de este producto. por lo tanto no hay Bpl para 2007.

Seguiré buscando una solución.

Gracias por tu respuesta.
Saludos

[Ernesto Storch]

ok, de acuerdo.
Gracias!