OpenOffice BASIC IsNumber

Я должен перенести документ из 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 другой способ проверить формат ввода? Спасибо

Источник

2 ответа

Решение

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

Источник

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

Источник
Другие вопросы по тегам