VBA 给EXCEL单元格赋值问题，高深!!!!!

Question

A列单元格是一个告知B列所要提取文件的指向字段，B列单元格根据A列的指向文件名，提取对应的信息，比如，A2是“员工1”，那么B列就要提取员工1表格中的Sheet1!A1信息，整个A列和B列都是这样的规则，后面以此类推

Answer 1

亲，都已经指定要用VBA了，又何苦填公式？

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

 

Sub wj()
Dim i, r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To r
    GetObject ("d:\员工目录\" & Range("A" & i).Value & ".xlsm")
    Range("B" & i).Value = Workbooks(Range("A" & i).Value & ".xlsm").Sheets("Sheet1").Range("A1").Value
    Workbooks(Range("A" & i).Value & ".xlsm").Close False
Next
End Sub

Answer 2

Sub aaa()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   Range("b" & i).Formula = "='D:\员工目录\[" & Cells(i, 1) & ".xlsm]Sheet1'!a1"
Next
End Sub

Answer 3

=INDIRECT("'D:\员工目录\["&A2&".xlsm]Sheet1'!A1")追问

这个方法是不行的，它只能在其他表打开时有效，否则是返回错误