Dim partItems() As Long
ReDim partItems(0)
Dim partItem As Long
For....
partItems(UBound(partItems)) = partItem
ReDim Preserve partItems(UBound(partItems) + 1)
Next
Fun(partItems) '编译的时候,报“类型不匹配:缺少数组或用户定义类型”...Public Sub Fun(ByRef GetObjects() As Long)
End Sub望各位指教!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货