Question

VBA中，怎么去获取Application.Run所执行函数的返回值？

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

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

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