Question

VBA里一个EXCEL调用另一个EXCEL（此EXCEL为一个变量）里的数值

Sub 按周填入数据()
'
'周填入数据
'
'
Dim S1
Dim S2
S1 = ActiveWorkbook.Name
S2 = InputBox("输入本次使用EXCEL名称:")
Workbooks(S1).Activate
Sheets("数据").Select
Dim a As Integer
a = Sheets("数据1").[A999999].End(xlUp).Row '确认表内最后一行所在行
Cells(a, 1).Select
Selection.AutoFill Destination:=Range(Cells(a, 1), Cells(a + 7, 1)), Type:=xlFillDefault '增加一周时间，增加七行
Range(Cells(a, 1), Cells(a + 7, 1)).Select
Cells(a + 7, 1).Select

Cells(a + 1, 3).Value = "=INDEX(S2的第三列,MATCH(当行的A列值（即Cells(ate1 + 1, 1)的值）,S2 的A列,0))" '使用index和match配合调取S2表中的数据
End Sub

现在问题是在cells(a+1,3).value 如何调用s2的数据呢？能否哪位大大帮我把
Cells(a + 1, 3).Value = "=INDEX(S2的第三列,MATCH(当行的A列值（即Cells(ate1 + 1, 1)的值）,S2 的A列,0))"
这个写一下 谢谢
或者说使用变量作为EXCEL名称这种方法可行不可行呢？

Answer 1

没附件,不写了 ,可以把那个文件打开,取完值,在关闭也不错啊