Lectura hoja Excel con ADO
 

Hola amigos.
Me ha salido un problema que no se por donde cogerlo y necesito vuestra ayuda.
Estoy leyendo un fichero Excel mediante los componentes ADO con el código siguiente:

Código Delphi [-]
procedure TfrmImportExcel.ObrirFixerADO;
var
  NomFixer: string;
begin
  NomFixer := 'G:\Manteniment preus\FixersImportats\Feliu Boet 9-2015.xls';
  with FxEx.conADO do begin
    Close;
    LoginPrompt := False;
    ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + NomFixer +
      ';Extended Properties=Excel 8.0';
    Connected := True;
  end;
end;

procedure TfrmImportExcel.LeerRegistros:
begin
 with FxEx.dsFulla do begin
    if not Active then
      Open;
    First;
    while not Eof do begin
      gn := grdLlista.Rows.Add;
      gn.Value[1] := FieldByName('Referencia').asstring;//Fields.FieldByNumber(3).AsString;
      gn.Value[2]:=  Fields.FieldByNumber(4).AsString;
      Next;
    end;
end;

Para mayor comprensión adjunto capturas de pantalla.
Lo que ocurre es que tal como se puede ver, si el registro 'referencia' tiene un carácter que no sea numérico me deja el campo en blanco.
He cambiado el formato de la columna de Excel a texto, pero sigue igual.
Sabe alguien porque?.
Gracias por la molestia.

Como esta grabado el excel? El formato es el xls o xlsx?

Yo he tenido problemas con el ultimo, por eso siempre los grabo como xls

Proba acceder al campo usando .Value

Evalua el valor de la propiedad DataType del objeto TField


En este enlace hay mas ConnectionStrings con los que podes jugar

Por ejemplo, esta para el proveedor ACE o esta para el proveedor JET

Muchas gracias Agusti.
La hoja de Excel es .xls pero con ACE se solucionó el problema.
La cadena de conexión queda asi y funciona correctamente:

Código Delphi [-]
ConectionString :='Provifer=Microsoft.Ace.OLEDB.12.0; Data Source = FullaExcel.xls;Extended Properties=Excel 8.0';

En los enlaces que me indicas queda perfectamrnte explicado, pero sin utilizar HDR=Yes, ya que si lo utilizas tira un error.