lo único que he encontrado para darle la vuelta es ponerle desde excel una fórmula=TEXTO(B2,0)
el archivo está en formato 97-2003,
no sé si es por que mi lap tiene instalado el 2007
Gracias
anexo el código
// string tomado de este foro
String1 := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Users\Usuario\Documents\FIMS\03 CONSTRUCCION\BASE GRAL EXPEDIENTES_NUEVO.xls;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB
atabase Password="";Jet OLEDB:Engine Type=35;Jet OLEDB
atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB
on't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;'
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := String1;
ADOConnection1.Connected := True;
// conectar y obtener datos
ADOTable_Registros.Close;
ADOTable_Registros.Active := False;
ADOTable_Registros.TableName := ECarpeta.Text;
ADOTable_Registros.Active := True;
ADOTable_Registros.Open;
Max := ADOTable_Registros.RecordCount;
Min := 0;
aqui leo los datos
Min := 1;
Max := ADOTable_Registros.RecordCount;
ADOTable_Registros.First;
MemoSalida.Clear;
For I := Min to Max do
Begin
Position := I;
Campo_Llave := ADOTable_Registros.FieldByName('Campo_Llave').AsString;
No_Prestamo_Abanks := ADOTable_Registros.FieldByName('No_Prestamo_Abanks').AsString;
Credito := ADOTable_Registros.FieldByName('Credito').AsString;
// poniendo la forma com "AS TEXT"
así se ve el campo del adotable
object ADOTable_RegistrosNO_PRESTAMO_ABANKS: TWideStringField
FieldName = 'NO_PRESTAMO_ABANKS'
Size = 255
end