作者：乔山办公网日期：
返回目录：excel表格制作
很简单：Run (工作簿名!宏名,参数zd1,参数2……)
例如调用A1.xls文件里宏名称为回ABC的宏，假定宏没有参数，代码为：Run "A1.xls!ABC"
因为不需要返回值，括号省略。注意被调用宏的文件（答A1.xls）要处于打开状态。
直接调用function就可以啊
vba.函数名
在function开始处加一句，Application.Volatile，用此句讲自百定义函度数设置为易失性函数，这样才能保证数据发生变内化时，函数重新计容算。
比如:
Function getABC()
Application.Volatile
'函数主体
End Fcuntion
调用函数可以这写：Run (工作簿名!zhidao宏名,参数1,参数2……)
例如调用A1.xls文件里宏名称为ABC的宏，假定宏参数为1和5，代码为：Run （"A1.xls!ABC"，1,5）。注意被调回用宏的文件（A1.xls）要处于答打开状态。
因此上面这句可以试试这么写：a3 = Application.Run("waspcn.xll!H_PT67", a1, a2)