Vba 任命项目矩阵

我试图让我的脚本返回一个appointmentitems列表。我是这样做的：

Function testing() as AppointmentItem

Dim returnlist(10) as AppointmentItem
Dim item as AppointmentItem

for i = 0 to 9
    item = // create random appointmentitem
    Set returnlist(i) = item
next

testing = returnlist

End Function

返回列表已正确填写，但是在

testing=returnlist

行上，它给出了运行时错误“91”：对象变量或未设置块

这里缺少什么？

您应该返回

AppointItem

的数组，但不能返回单个

AppointItem

。试试这个：

Function testing() as AppointmentItem()
   Dim returnlist(10) as AppointmentItem
   Dim item as AppointmentItem

   For i = 0 to 9
      item = '// create random appointmentitem
      Set returnlist(i) = item
   Next

   testing = returnlist
End Function

---

尝试使用

函数测试（）作为appointItem（）

——在末尾加上括号，这正是问题所在。谢谢你，回答一下，这样我就可以奖励你了。