Question

我对VBA代码还不熟悉，当我尝试在我创建的类中运行此代码时，我遇到了编译错误。

Private pWorkDate As Date

Public Property Set WorkDate(value As Date)
Set pWorkDate = value
End Property

Public Property Get WorkDate() As Date
Set WorkDate = pWorkDate
End Property

这是我收到的错误消息：

同一属性的属性过程的定义不一致，或者属性过程具有可选参数，ParamArray或无效的Set final参数

请原谅我的无知，但我一直在寻找，似乎无法找到我做错的事。

Answer 1

它不喜欢你尝试使用set用于对象引用，Date类型的变量永远不能（它是一个原始类型（如integer）而不是对象类型（像你的班级））。

更改为Let＆amp;不要使用Set：

Public Property Let WorkDate(value As Date)
   pWorkDate = value
End Property

Public Property Get WorkDate() As Date
   WorkDate = pWorkDate
End Property

使用Date对象的set属性的VBA编译错误

1 个答案: