Pregunta

Tengo que migrar un documento de MS Excel a Open Office con macros.Todo funciona bien excepto esta función.

 If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then
   MsgBox "Nesprávne zadané číslo účtu alebo kód banky!", vbCritical
   ActiveSheet.Protect Password:="****", DrawingObjects:=True, Contents:=True, Scenarios:=True
   Exit Sub
 End If

Es una verificación de los valores insertados por el usuario.Pero solo me sale este error:

Error de tiempo de ejecución básico La variable de objeto no está establecida

Entonces revisé dos veces mi documento, si la celda E12 no está vacía, pero sí estaba llena.¿Existe en Open Office una forma diferente de comprobar el formato de entrada?Gracias

¿Fue útil?

Solución

El número en Excel Visual Basic es diferente como en OO.Intente usar GetCellbyName ("E12"). Valor Esta función le devuelve el número

Otros consejos

si la linea If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then falla diciendo object not set, y lo has verificado Cells(12, 5) devuelve un valor, entonces las únicas posibilidades que se me ocurren serían que Application o Application.WorksheetFunction es Nothing.

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top