主题：数据类型转换的问题，版主请进！

 由于VBA开发策略要用到很多FUN对象中的函数，但是FUN对象则必须是STOCK.ARRAY对象类型，而market.GetHistoryData返回的是historydata对象，其中的close则是数组类型，我写了一个函数，把返回的historydata中的CLOSE数组转换成STOCK.ARRAY类型，但是转换时候老报错

function ConvertToJztArray(Arr())
     set jztarr=createobject("stock.array")
     ncount=Ubound(Arr)
     for i=0 to ncount-1
         value=Arr(i)
         jztarr.addback(value)
     next
     set ConvertToJztArray=jztarr
     set jztarr=nothing
end function

下面代码是调用的地方

 set xl=ConvertToJztArray(HistroyData.close)
  application.MsgOut fun.TRMA(xl)

但是报如下错误，请版主给予帮助

此主题相关图片如下：1111111.png