Ver Mensaje Individual
  #1  
Antiguo 11-08-2010
Avatar de DarkBlue
DarkBlue DarkBlue is offline
Miembro
 
Registrado: jun 2010
Posts: 105
Reputación: 14
DarkBlue Va por buen camino
ayuda urgente con funcion y excel

hola que tal estaba usando excel y delphi y necesitaba validar los datos... de alguna manera traer el resultado a delphi compararlo y modificar el valor de la hoja de excel bueno aqui les dejo mi codigo pero no me funciona al 100% el problema es que me sigue trayendo el mismo valor... siempre es true y aunque deba de dar false no cambia el resultado de la funcion


Código Delphi [-]
for X:=0 to npiezas-1 do //recorro el numero de items que tiene la hoja de excel
begin


    c:=X+fila;//comienzo siempre desde la fila 2
    A:='A'+inttostr(c);
    B:='B'+inttostr(c);
    F:='=ISBLANK(R[-4]'+'C[-'+inttostr(x+1)+'])';//creo una formula
    F2:='=ISTEXT(R[-4]'+'C[-'+inttostr(x+1)+'])';//otra formula

    formulaString2:=F2;//le asigo el valor de la formula
    XLS.Range['F1','F1'].select;//selecciono ese rango
    XLS.Selection.ClearContents;//borro lo que pueda haber

    XLS.Range['F1','F1'].formula:=formulastring2;//le pongo la formula


    v:=tostring(XLS.Range['F1','F1'].select);//llamo a una funcion para copiar el valor
    if  v= 'True' then XLS.Range[B,B].value:='0';     //si es texto verdadero
    
    showmessage(tostring(XLS.Range[B,B])); mostramos lo que trae la funcion
    listainserta.Items.Add(tostring(XLS.Range[B,B])); //insertamos el valor en una lista de delphi
    XLS.Range[A,A].copy;
    nombrepieza.Items.Add(tostring(XLS.Range[A,A]));//insertamos el nombre del item


end;


aqui esta la funcion que me permite copiar valores desde excel ...


Código Delphi [-]
function ToString(V: Variant): String;
begin
  Result := V;
end;

si saben por que me sigue dando siempre true... aunque en realidad el resultado de la funcion que aplico en excel da false ... ayuda urgente me queda poco tiempo y no se que hacer... :S muchas gracias y espero que este codigo le sirva a alguien =)
__________________
Todo es Relativo

Última edición por Neftali [Germán.Estévez] fecha: 11-08-2010 a las 11:34:48. Razón: EDITADO (Neftalí): Para añadir las etiquetas al código
Responder Con Cita