Como importar datos desde Excel?

[[felipe88]]

Empezado por Caro

Hola Felipe88, ADO utiliza MDAC, que viene instalado en el sistema operativo (Windows XP, Millenium, 2000), pero si es Windows 95 y 98, si necesitas redistribuir e instalar MDAC.

Mas caritas

Saluditos

Gracias Caro, eso me tranquiliza mas...

[*Caro*]

Hola a todos, estoy leyendo todas las hojas de mi documento de excel, pero si encuentra una hoja vacía me sale un Access Violation al intentar leer la primera celda, como puedo verificar si una hoja esta vacía y asi no leerla, muchísimas gracias por adelantado.

Axrafael, para que no sea muy estatico, puedes obtener también las filas y columnas de tu rango y quedaria asi.

Código Delphi [-]
var
 .....
 CantRowRango, CantColRango, i, j : Integer;
 RangoMatriz: Variant;
 Rango : OleVariant;
begin
  ......................

  CantRow := Excel.ActiveCell.Row;
  CantCol := Excel.ActiveCell.Column;

  Rango := Excel.Range['F13', 'Q39'];
 
  RangoMatriz := Rango.Value;
 
  CantRowRango := Rango.Rows.Row;
  CantColRango := Rango.Columns.Column;

  for i:=1 to (CantRow-CantRowRango)+1 do
   begin
    for j:=1 to (CantCol-CantColRango)+1 do
     begin
      //
     end;
   end;//for

Saluditos

[roman]

Empezado por Caro

Hola a todos, estoy leyendo todas las hojas de mi documento de excel, pero si encuentra una hoja vacía me sale un Access Violation al intentar leer la primera celda, como puedo verificar si una hoja esta vacía y asi no leerla, muchísimas gracias por adelantado.

Es raro. Con este código

Código Delphi [-]
var
  ExcelApp, Workbook: OleVariant;
  I: Integer;

begin
  ExcelApp := ComObj.CreateOleObject('Excel.Application');
  Workbook := ExcelApp.Workbooks.Open('C:\ruta\al\documento.xls');

  for I := 1 to WorkBook.Worksheets.Count do
    Memo1.Lines.Add(Workbook.Worksheets[i].Cells[1, 1]);

  ExcelApp.Visible := true;
end;

puedo acceder a la primera celda de cada hoja aun estando vacías.

// Saludos