access调用excel函数出错！

canghua

比如我想调用excel中的median函数，这需要一个数组的数据，请问该如何完成？

Function Median(n)
   
   Dim objExcel As Excel.Application
   Set objExcel = CreateObject("Excel.Application")
   a = objExcel.Application.Median(n)
   Median = a
   objExcel.Quit
   Set objExcel = Nothing
End Function

详细查询见附件。

canghua

呵呵。大家帮帮忙了。

canghua

Function Median(n)

这个n如果是数组的话，就运行不成功，但如果仅仅是一个数字的话，就可以运行成功。



所以问题就是，如果引入数组

canghua

canghua

在“查询1”中的查询，调用median函数就出问题了