【002】python与VBA相互传参（字符、数组案例）_#py

python与VBA参数之间调用

python如何调用VBA文件请参见：【001】python调用VBA方式_#py
除数组外，其他参数均可实现字符之间互传，如下

字符传参

1. 先在VBA里面准备好，需要被调用的函数

Function MySum(x, y)

    MySum = x + y
    
End Function

注意Function的函数名，必须与变量名一致，否则该VBA函数，在python中调用，不会返回数据

Function MySum(x, y)
	'错误方式，无返回值，但T在调用后是有数据的，可以用于其他用处
    T = x + y
End Function

2. python调用时，x/y的值可以直接写入。如下

import xlwings as xw

'设置测试文件的路径'
global wb
app = xw.App(visible=True,add_book=False)
wb = app.books.open(r'./test.xlsm')
#调用VBA中的函数
Assist = wb.macro('MySum')
#原函数MySum(x, y),经调用改为Assist(x,y),直接给x，y赋值即可传参给VBA程序
#注意！！！如果VBA函数如上述，函数名与变量名不一致，此处无打印结果，仅为None
print(Assist(1,2))
wb.close()

数组传参

此处设置其实参考字符传参，利用一个一个将参数直接传送给VBA，而后VBA将其记录后保存至数组内

1. VBA设置
   1.1. 全局变量设置
   在模块的最前面输入“代码块1”可以进行全局变量的设置
   1.2. 函数设置
   输入如“代码块2”进行函数预设

代码块1：

Option Explicit
Dim arr1(1000, 10)

代码块2：

Function SZY(i, j, k)
    '进行数组赋值
    arr1(i, j) = k
End Function

Function ADDc(i, j)
    '借助另外函数判断参数是否已经存入VBA程序中
    ADDc = arr1(i, j)
End Function

2. python调用并传参，实现VBA内部数组的存入

import xlwings as xw

'设置测试文件的路径'
global wb
app = xw.App(visible=True,add_book=False)
wb = app.books.open(r'./test.xlsm')
Assist = wb.macro('SZY')
Assist1 = wb.macro('ADDc')
#实现数组传参
for i in range(0,10):
    for j in range(0,10):
        print(Assist(i,j,j+1))
print('/')
#检验参数是否正确存入
print(Assist1(0,2))
wb.close()

总结

简单的字符可以传送，但因为语言不同，导致变量定义存在差异，数组双方无法正常传送，需要借助字符传送方式，逐个存储。

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处