数据提取问题

[zhuzhiheng]

产品编号 数量
10001
10002
10003
10004
10005
10006
10007
10008
10009
10010
10011
10012
10013
10014
请高手帮忙一个excel表,在另一个exele表中数据提取问题
从10001到10014分别另有14个文件,文件名分别是以产品编号命名,如:10001.xls......打开文件后单元格里也有产品编号10001 数量:100,请问怎么样将这100提取到如上表中,然后拉公式到10014实现?

[kanji]

简单拉公式无法实现，只能用VBA。
加上楼主需要从其他文件中取值，那些文件本身的格式需要逐个确定，比如数据在哪个单元格里，按什么规律排列，有没有合并单元格之类。。。。

楼主还是自己学VBA吧

[zhuzhiheng]

没有合并单无格,数据在固定单无格内如:L40 所有文件数据都固定在L40内,因有点急,可否告知用VBA怎么写得出结果?谢谢!

[ChinaOBS]

用公式也可以写，不过需要用到名称和evaluate函数...

[liuyann]

10001.xls,与本文件在相同目录下
假设 产品编号 为A列
10001为A2单元格

则C2设公式为

=INDIRECT("["&A1&".xls]Sheet1!$L$10")

[liuyann]

10001.xls,与本文件在相同目录下
假设 产品编号 为A列
10001为A2单元格

则C2设公式为

=INDIRECT("["&A1&".xls]Sheet1!$L$10")

[zhuzhiheng]

=INDIRECT("["&A1&".xls]Sheet1!$L$10")
利用如上可以得出结果，但是当所有表关闭，重新打开主表，则显示错误，无法保持数据连接啊？

[liuyann]

VBA

Public Sub test()
    Dim oSheet As Worksheet
    Dim i As Integer
    
    Set oSheet = Sheet1
    
    For i = 1 To oSheet.UsedRange.Rows.Count
        oSheet.Cells(i, 3).Formula = "='C:\TEMP\access\[" & oSheet.Cells(i, 1) & ".xls]Sheet1'!$L$7"    '改为你自己的目录 -- liuyann
    Next i
End Sub

[liuyann]

VBA

Public Sub test()
    Dim oSheet As Worksheet
    Dim i As Integer
    
    Set oSheet = Sheet1
    
    For i = 1 To oSheet.UsedRange.Rows.Count
        oSheet.Cells(i, 3).Formula = "='C:\TEMP\access\[" & oSheet.Cells(i, 1) & ".xls]Sheet1'!$L$7"    '改为你自己的目录 -- liuyann
    Next i
End Sub