... ccognoms := "zzz" nRow := 1 While AllTrim( ccognoms ) <> "" nRow ++ Msgnowait( AMPAarra, "Atención!" , "Leyendo e importando datos." + ; " Espere unos momentos por favor...." ) cCCC := OleGetProperty( OleGetProperty( oHoja, "Cells", nRow, 2 ), "Value" ) If Valtype( ...