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; 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.