主题：目前不支持PY模块向VBA返回数组，这个可否优化？

32位金字塔返回数组也有BUG，麻烦啊！！！

按如下代码，多翻看几支个股，大概十多支，程序就死掉了，把程序改成不返回数组就没有问题。

'调用py模块
sub Test      
       application.MsgOut "123"
       If ret <> 1 Then   '当载入失败，打印错误原因
          Msg = d.GetErrorInfo()
          Application.MsgOut Msg
          Set Msg = Nothing'使用完毕需要 Set Nothing销毁以免出现内存泄漏
          Exit Sub
       End If
       ''调用PY模块中的函数，并获取返回值
       set Data = d.CallObject("zhibiao_vba",StockLabel)'调用PY模块中的函数      
       If IsEmpty(Data) Then '当py模块返回为空
          Msg = d.GetErrorInfo()
          Application.MsgOut Msg
          Set Msg = Nothing'使用完毕需要 Set Nothing销毁以免出现内存泄漏        
          Exit Sub
       End If       
end Sub

#函数，供VBA调用，计算指标
def zhibiao_vba(code):
    a=[1,2,3]
    return  a