............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Error definido por la aplicación u el objeto, depuro y me deja continuar

Ver el tema anterior Ver el tema siguiente Ir abajo

Error definido por la aplicación u el objeto, depuro y me deja continuar

Mensaje por manmuno el Mar Feb 26, 2013 8:27 am

Hola buenas,

Formulo la siguiente pregunta. Como ya se ha visto en el título ese el error que me salta en el siguinete fragmento de código:

For i = 0 To rs.RecordCount - 1
For j = 0 To rs.Fields.Count - 1
If IsNumeric(rs(j)) Then
If obj_hoja.Cells(1, j + 1) Like "*%*" Then
obj_hoja.Cells(i + 3, j + 1) = rs(j) & "%"
obj_hoja.Cells.HorizontalAlignment = xlHAlignRight
Else
obj_hoja.Cells(i + 3, j + 1) = rs(j)
End If
ElseIf (IsDate(rs(j))) Then
obj_hoja.Cells(i + 3, j + 1) = CDate(Format(rs(j), "short date"))
Else
obj_hoja.Cells(i + 3, j + 1) = Replace(rs(j), "_", " ")
End If
Next j
rs.MoveNext
Next i

Siempre que se da, se da en la línea en rojo. Aquí el problema: no se da siempre, de hecho calculo que una de cada 100 veces como mucho. Da el error, depuro, pulso F5 y sigue la ejecución sin problemas. Si creeis que es relevante que ponga la función entera la pongo. Es un código ajeno a mí que estoy modificando y éste es el único error que me da.

Alguien tiene idea de por qué?

Gracias por adelantado.

manmuno

Masculino Cantidad de envíos : 1
Edad : 32
Ciudad - Pais : Madrid - España
Version de Excel : 2010
Fecha de inscripción : 26/02/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.