如何让Function过程在任意工作表里的VBA调用？

1976yuan

本function的主要目的就是获取ddanxinxi, k, y，怎么能去掉呢？我的目的就是将k条的订单数据存在二维数组ddanxinxi里, y是“订单数据库”的列数。都是我需要的数据。之所以用y这个变量，主要是为了防止以后删除或增加列导致程序需要修改。哪位高手能帮我解决这个实际问题？谢谢！

yachtz

xx = Application.Run("myfunction.xla!orderdetail", jlhao, sh, co, ddanxinxi, k, y)

使用这语句是试图从myfunction.xla!orderdetail中返回k, y的值.但是此处jlhao, sh, co, ddanxinxi, k, y全为传递给函数的参数,返回的值只有函数本身,此处赋值给xx.

要解决此问题,我本人的经验是:

在调用工作簿(假设为book1.xls)中,建立此过程(函数)

function CallMacro(a,b)

k=a

y=b

end function

在xla中, 当需要将xla中的值x,y传递到book1中的变量x,y时间,调用此语句:

xx = Application.Run("book1.xls!callMacro", k, y)

此时,xla中变量k, y的值就传递到了book1中