Cargar desde excel
 

Buenas....

Estoy haciendo una carga desde un excel:

Código Delphi [-]
var
  sFichero : String;
  Excel: Variant;
  Hoja: OleVariant;
....
begin
    try
      Excel := GetActiveOleObject('Excel.Application');
    except
      Excel := CreateOLEObject('Excel.Application');    
    end;
    Excel.Workbooks.Open(sFichero); 
    Hoja := Excel.Worksheets.Item['Hoja1'];
    Hoja.Activate;
    repeat
      Bla....
      Bla....
      Bla....
    until Nosequé = True;
End;

Bien, el caso es que si la hoja del excel no se llama 'Hoja1' me salta un pete y como son objetos OLE y Variant, no puedo acceder a sus metodos.

Como puedo hacer para saber cual es la hoja activa del Excel usando este método?
Hay algun "Hoja := Excel.Worksheets.Item[Worksheets.ActivePage];" o algo asi?


Como puedo hacer la carga usando los componentes de la pestaña servers?
Uso Delphi2006 y OficceXP y en el uses tengo la unit ExcelXP.


Nuchas gracias.


Raulete.

Si lo que quieres es leer datos de una tabla de excel yo lo hago atraves de ado y me funciona bastante bien, haz una busqueda en los foros y entraras una explicacion que a mi en su dia me sirvio para enlazar con las tablas de excel atraves de ado. Ojo tambien puedes grabar datos. Manejarias la hoja como si fuera una tabla.

Un Saludo.

Lo probaré.
Me lo tendré que currar para que el usuario seleccione el fichero y configure el acceso a ado dinamicamente.

Muchas gracias.