OpenOffice BASIC IsNumber

Question

Мне нужно перенести документ из MS Excel в Open Office с макросами. Все отлично работает, кроме этой функции

 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

Это проверка значений, вставленных пользователем. Но я получаю только эту ошибку:

ОСНОВНАЯ ошибка во время выполнения Переменная объекта не установлена ​​

Итак, я дважды проверил свой документ, если ячейка E12 не пуста, но она была заполнена. Есть ли в Open Office другой способ проверить формат ввода? Спасибо

Answer 1

Число в Excel Visual Basic отличается от числа в oo.попробуйте использовать getCellByName ("E12"). Значение, которое эта функция возвращает вам Число

Answer 2

Если в строке If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then не написано object not set, и вы убедились, что Cells(12, 5) возвращает значение, то я могу думать только о том, что Application или Application.WorksheetFunction - это Nothing.