Excel 跨文件数据用

来源:百度知道 编辑:UC知道 时间:2024/06/20 09:02:50
如何在一个Excel表中的A列中引用某一个文件夹下的所有excel文件中的某一个特定区域里的内容?
比如:
有一个文件夹,里边有好多excel文件,每个excel文件是一个身份证,里面有一项是姓名。
现在我希望把所有的姓名都挑出来,放在一个表里,放在一列。怎么办?

用vba,来不及写给你了

打开一个新的工作簿,按alt+f11,插入-模块,把以下程序粘贴进去,存盘,运行一下就行了,注意的是下面有注释的地方根据你自己的具体情况修改。我假定是取各文件的第一个工作表A5的数据到新工作簿第一个工作表的A列

Sub getcells()
Dim fs, f, f1, fc, s, sCount, eSheet, rCount, cCount, i, j, n, m
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\test\") '存放文件的目录
Set fc = f.Files

s = 1 '数据在第 s个sheet
i = 5 '数据在第i行
j = 1 '数据在第j列
n = 1 '数据放在第n列

m = 1

For Each f1 In fc
If Right(f1.Name, 3) = "xls" Then
Workbooks.Open (f1.Path)
Workbooks(1).Sheets(1).Cells(m, n).Value = _
Workbooks(2).Sheets(s).Cells(i, j).Value
m = m + 1
Workbooks(2).Close savechanges = False
End If
Next

End Sub

打开你要引用的excel文件,然后直接引用就可以了。比如你要引用“李**.xls”中的第一张表(工作簿号)的姓名,直接输入=[李**.xls]工作簿号!a1就可以了。或者直接在单元格里输入“=”后面直接点击要引用的单元格就行。

可以用引用~
可以跨表~
你hi我,我教你方法~

汇总所有工作簿的工作表