共5 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：请问vba调用python的模块如何返回两个列表？

1楼

netwalker 发表于：2021/4/4 23:02:55

vbs代码：

Sub pyArrays()

Dim inArray '创建一个变量

'创建Array外部对象，将对象实例置变量d1中

Set inArray = CreateObject("Stock.Array")

inArray.AddBack(1)

inArray.AddBack(2)

'创建外部对象，启用Python引擎

Set py = CreateObject("Stock.Python")

'载入Python模块，模块名为MyPython

pymod = py.ImportModule("jzt_MyPython")

If pymod <> 1 Then

'载入失败，打印错误原因

Msg = py.GetErrorInfo()

Application.MsgOut Msg

Set Msg = Nothing '使用完毕需要 Set Nothing销毁以免出现内存泄漏

Exit Sub

End If

'调用Python模块函数，函数名pytestmodule，参数为Array外部对象d1

set outArray = py.CallObject("return_arrays",inArray,inArray)

If IsEmpty(outArray) Then

Msg = py.GetErrorInfo()

Application.MsgOut Msg

Set Msg = Nothing '使用完毕需要 Set Nothing销毁以免出现内存泄漏

Exit Sub

End If

'打印返回值

'application.MsgOut Vartype(outArray)

item= outArray.GetAt(0)

application.MsgOut Vartype(item)

Set py = nothing '使用完毕需要 Set Nothing销毁以免出现内存泄漏

set inArray = nothing '使用完毕需要 Set Nothing销毁以免出现内存泄漏

end Sub

python模块代码

def return_arrays(x1,x2):

print(x1)

print(type(x1))

a = [1,2,3]

b = [4,5,6,7]

return [a,b]

返回的是一个object，如何把python里面的a，b取出来？

谢谢！

[此贴子已经被作者于2021/4/4 23:03:24编辑过]

2楼

yukizzc 发表于：2021/4/5 12:16:52

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

3楼

netwalker 发表于：2021/4/6 9:57:07

谢谢，这段代码是返回一个列表的情况，我的问题是python模块怎样返回两个列表？

4楼

netwalker 发表于：2021/4/6 10:00:07

谢谢，这段代码是返回一个列表的情况，我的问题是python模块怎样返回两个列表？

比如：

a = [1,2,3]

b = [4,5,6,7]

我试了 return a,b ，结果报错。用 return [a,b]，返回的是一个object，但a和b的内容取不出来，望指教！

5楼

yukizzc 发表于：2021/4/6 10:00:43

这种不行的，vba和python不一样，有些格式没有办法的

共5 条记录, 每页显示 10 条, 页签: [1]