OpenOffice Basic isNumber

Question

Je dois migrer le document de MS Excel à l'ouverture avec des macros. Tout fonctionne bien sauf cette fonction

 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

Il s'agit de vérifier les valeurs insérées par l'utilisateur. Mais je n'obtiens que cette erreur:

La variable d'erreur d'exécution de base de l'objet n'est pas définie

J'ai donc vérifié mon document, si la cellule E12 n'est pas vide, mais elle a été remplie. Existe-t-il dans Open Office une manière différente de vérifier le format d'entrée? Merci

Answer 1

Le nombre dans Excel Visual Basic est différent comme dans OO. Essayez d'utiliser getCellByName ("E12"). Valeur Cette fonction vous renvoie

Answer 2

Si la ligne If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then Échoue de dire object not set, et vous avez vérifié que Cells(12, 5) Renvoie une valeur aa, alors les seules possibilités auxquelles je peux penser Application ou Application.WorksheetFunction est Nothing.