VBA读取EXCEL单元格的自定义函数

有两个EXCEL文件：1.xls和2.xls
1.xls关闭状态,需要在2.xls中写个函数，读取1.xls中一个单元值
在网上看了些代码，如下：
Function my()
Workbooks.Open Filename:="D:\1.xls"
my = ThisWorkbook.Sheets(1).Cells(2, 1)
End Function
目前的可以实现静态的读取，想给函数my（）设置几个变量
比如变量1为1.xls的物理存储路径，变量2为目标单元格的行号，变量3为目标单元格的列号
问：代码怎么实现？

Function my(myPath As String, rowNumber As Single, columnNumber As Single)

Workbooks.Open (myPath)
my = Workbooks(2).Worksheets(1).Cells(rowNumber, columnNumber)
End Function

你的自定义函数易失性函数，不会自动更新，你只要在使用函数的公式后面加上强制更新的东西就行了 比如你的公式的结果是文本型的，那么 =pbs()&t(now()) 比如你的公式的结果是数值型的，那么 =pbs()+n(t(now())) 就能强制自动更新 至于rng1和rng2，楼主试试用range的方式，也就是set rng1=range(xxxxxx)