2011-02-11 49 views
1

我必须将文档从MS Excel迁移到带有宏的Open Office。一切正常,除了这个功能OpenOffice BASIC IsNumber

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中有不同的方式来检查输入格式吗? 感谢

+0

检查一些预制文档,你可以看到excel用于A1-1,1和oo 0,0 – Csabi 2011-02-11 11:31:34

回答

1

Excel Visual Basic中的数字与oo中的数字不同。尝试使用getCellByName(“E12”)。该函数返回值

0

如果线路If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then失败说object not set,和您确认Cells(12, 5)返回一个值,那么唯一的,我能想到的是,要么ApplicationApplication.WorksheetFunctionNothing可能性。