OpenOffice BASIC esNumber
-
12-11-2019 - |
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
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
.