您的位置：程序门 -> windows专区 -> office使用

数据提取问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

数据提取问题[已结贴,结贴人:zhuzhiheng]

发表于：2008-02-23 12:29:37 楼主

产品编号数量
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实现?

发表于：2008-02-23 13:01:151楼得分:5

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

楼主还是自己学vba吧

发表于：2008-02-23 13:08:472楼得分:0

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

发表于：2008-02-23 16:56:503楼得分:5

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

发表于：2008-02-23 17:07:544楼得分:10

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

则c2设公式为

vbscript code

=indirect（"["&a1&".xls]sheet1!$l$10")

发表于：2008-02-23 17:08:085楼得分:10

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

则c2设公式为

vbscript code

=indirect（"["&a1&".xls]sheet1!$l$10")

发表于：2008-02-23 22:03:046楼得分:0

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

发表于：2008-02-23 22:29:387楼得分:10

vba

vbscript code

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

发表于：2008-02-23 22:30:008楼得分:10

vba

vbscript code

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

下一篇：使用数据透视表时不能对选择区域分组,为何?（高分求助,急急急)
上一篇：access2007的系统默认图片存在什么地方

其他资讯