无法将自定义类添加到数组中
无法将自定义类添加到数组中
提问于 2019-04-14 21:57:57
我有一个名为PLAYER的自定义类，它具有以下属性以及相关的getter、setter和default init。
Private aName As String
Private aAge As Integer
Private aID As String
Private aScore As Integer我现在尝试在主程序中创建一个数组，如下所示：
Dim Players As Range
Set Players = Range("PLAYERS")
Dim PlayerRows As Integer, PlayerCols As Integer, count As Integer
PlayerRows = Players.Rows.count
Dim allPlayers() As PLAYER
ReDim allPlayers(5)
Dim temp As New PLAYER
temp.name = Players.Cells(count + 1, 1)
temp.age = Players.Cells(count + 1, 2)
temp.ID = Players.Cells(count + 1, 3)
temp.score = Players.Cells(count + 1, 4)
allPlayers(0) = temp但是当我尝试将新对象添加到播放器对象数组时，我得到一个运行时错误91 'Object variable or With Block variable not set‘。
我怎么设置这个数组呢？我正在尝试为class PLAYER创建一个数组。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-04-14 22:09:37
处理对象时必须使用“Set”关键字：
Set allPlayers(0) = temp页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55676085
复制相关文章
相似问题
腾讯云开发者
