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

BETA2也不行，刚测试了，为啥啊？

本地输出的结果

此主题相关图片如下：x0oo8i{3_8tul@o{t(r8nto.png

如图

返回数组的例子

 

 

Sub Test()
      Dim d1 '创建一个变量
      '创建Array外部对象，将对象实例置变量d1中
      Set d1 = CreateObject("Stock.Array")
      d1.AddBack(1)
      d1.AddBack(2)
      '创建外部对象，启用Python引擎
      Set d = CreateObject("Stock.Python")
      '载入Python模块，模块名为MyPython
      ret = d.ImportModule("jzt_ta")
      If ret <> 1 Then
              '载入失败，打印错误原因
              Msg = d.GetErrorInfo()
              Application.MsgOut Msg
              Set Msg = Nothing  '使用完毕需要 Set Nothing销毁以免出现内存泄漏
              Exit Sub
      End If
      '调用Python模块函数，函数名pytestmodule，参数为Array外部对象d1
      set Data = d.CallObject("zhibiao_vba",d1,d1)
       If IsEmpty(Data) Then
              Msg = d.GetErrorInfo()
              Application.MsgOut Msg
              Set Msg = Nothing   '使用完毕需要 Set Nothing销毁以免出现内存泄漏
              Exit Sub
       End If
       '打印返回值
       application.MsgOut Data.GetAt(1)
       Set d = nothing  '使用完毕需要 Set Nothing销毁以免出现内存泄漏
       set d1 = nothing  '使用完毕需要 Set Nothing销毁以免出现内存泄漏
end Sub
call Test

 

 

 

 

 

python模块中代码

 

from PythonApi import *
import numpy as np
def zhibiao_vba(x1,x2):
    print(x1)
    a = [1,2,3]
    return a

不知道为啥，现在贴不上图来，我又测试了，还是那样。

加我qq远程看

2857926939

我这里是内网，上不了QQ，等论坛能上传附件、图片的时候，我把代码全部打包上传来看吧。

你看看后面的代码范例，如果你运行还是不正常那么不远程是不知道问题的

因为代码一样我们这输出正常，一样的代码你发给我们的话估计也查不到问题会