Problemas con ADO y Excel
 

Hola a todos, tengo un problema y necesito si me pueden ayudar:

Estoy abriendo una Hoja Excel con ADO(ADOConnection y ADODataSet) y me recupera todas las filas y columnas como string, utlizando el parámetro IMEX=1.

El problema está en que hay algunas celdas que son numéricas y con datos decimales, pero que tienen formato de celda sin Decimal. El Dataset me recupera estas celdas con el valor que muestra con formato y no el valor real que tiene la celda, es decir, si la celda tiene el valor 1234,28 (con formato muestra 1234) y es este último valor el que recupera la lectura.

He realizado un monton de pruebas y buscado en internet, pero aún no logro solucionar mi problema.

Agradeceré cualquier ayuda al respecto.

Este es el ConnectionString que utilizo:

Código Delphi [-]
Conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source='+ Trim(edtArchOrigen.Text) + ';'+
'Extended Properties="Excel 8.0;HDR=NO;IMEX=1";' +
'Persist Security Info=False';

y en la captura de las celdas:

Código Delphi [-]
try
Grilla.Cells[i,RecNo-1] := FormatFloat('0.000000',Fields[i].Value)
except
Grilla.Cells[i,RecNo-1] := Trim(Fields[i].AsString);
end;