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

检查用户插入的值。但我只得到这个错误：

BASIC运行时错误 未设置对象变量

所以我仔细检查了我的文件，如果单元格E12不是空的，但它已被填满。 在Open Office中有不同的方式来检查输入格式吗？ 感谢

Answer 1

Excel Visual Basic中的数字与oo中的数字不同。尝试使用getCellByName（“E12”）。值此函数返回Number

Answer 2

如果第If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then行未能说出object not set，并且您已经确认Cells(12, 5)返回了一个值，那么我能想到的唯一可能是{{1}或Application是Application.WorksheetFunction。