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