你好，在VBA中，怎么去获取Application.Run所执行函数的返回值？具体怎么做呢？

Question

问题1： 我在工作簿WA中使用Application.Run调用了WB工作簿中的function，这个function是有返回值的，我希望通过function的返回值来判断这个function是否执行成功，但是怎么获取这个返回值呢？貌似application.run的返回值是run的运行状态，不会返回run的函数的返回值。问题2：有没有一种方式，可以将excel.application这个对象当作传入参数传入到function中，这样可以吗？

Answer 1

Function b(str) As String
b = Mid(str, 1, 6)

End Function
sub a()
Dim str As Sting
str="123456789"

str=b()'return str="123456"
end sub

Answer 2

函数具有返回值，直接调用函数后赋值给变量就可以获取到。
1、定义一个函数
function test(){//定一个test函数 return 1;//返回值为1}
2、获取返回值var rtn = test();//调用test函数，并把返回值赋值给rtn