UC知道EXCEL VBA 如何将单元格作为Workbooks()、Worksheets()参数
来源：百度知道 编辑：UC知道 时间：2024/06/15 10:50:30
EXCEL VBA代码功能描述：
(1)1.xls、2.xls二个文件已经打开。
(2)将文件2.xls中sheet1的A1单元格中的数据导入到文件1.xls的A1单元格中。
(3)用文件1.xls中sheet1的A2、A3、A4、A5单元格存储参数，其中A2=2.xls、A3=sheet1、A4=A、A5=1
(4)函数如下：
Function GetData(a,b,c,d)
Getdata=Workbooks(a).Worksheets(b).Range(c & d).Value
End function
(5)1.xls在单元格A1中输入=GetData(A2,A3,A4,A5),结果显示#REF！是怎么回事？这个函数代码应该如何编写？EXCEL VBA 如何将单元格作为Workbooks()、Worksheets()参数?
(1)1.xls、2.xls二个文件已经打开。
(2)将文件2.xls中sheet1的A1单元格中的数据导入到文件1.xls的A1单元格中。
(3)用文件1.xls中sheet1的A2、A3、A4、A5单元格存储参数，其中A2=2.xls、A3=sheet1、A4=A、A5=1
(4)函数如下：
Function GetData(a,b,c,d)
Getdata=Workbooks(a).Worksheets(b).Range(c & d).Value
End function
(5)1.xls在单元格A1中输入=GetData(A2,A3,A4,A5),结果显示#REF！是怎么回事？这个函数代码应该如何编写？EXCEL VBA 如何将单元格作为Workbooks()、Worksheets()参数?
A2=2.xls 这个有问题,应该是 2...另外,变量没有定义好,改成这样
Function GetData(a As Integer, b As String, c As String, d As String)
GetData = Workbooks(a).Worksheets(b).Range(c & d)
End Function
以上已经试验过,是可以的.
A=2也不行