如何从像IsEmpty()的VBA标准库中重载函数？

Question

我想IsEmpty()在这样的类中创建一个本地版本:

Public Dict As Dictionary

Public Function isEmpty(columnName As Variant) As Boolean
isEmpty = IsEmpty(Dict(columnName))
End Function

这是为了隐藏信息,以便我可以打电话

classInstance.isEmpty("someField")

代替

isEmpty(classInstance.Dict("someField"))

因此不会暴露类的内部数据结构.

但问题是isEmpty()我声明的版本似乎覆盖了对VBA库版本的任何引用IsEmpty(),因为它生成Out of stack错误并导致Excel崩溃.我假设这是因为isEmpty = IsEmpty(...)调用导致无限递归.

有没有办法可以明确地引用IsEmpty()我想在这里调用的标准版本？

Answer 1

是.明确引用标准库.

VBA.IsEmpty()

奖励:
IsEmpty实际上属于Information对象.一个完全显式调用看起来是这样的.

bool = VBA.Information.IsEmpty(var)