一个文件夹里面有400多个excel文件，我想读取每一个文件的Sheet1的A1的数据

15fq · 发表于 2009-6-16 14:56:16

我是新手，工作上遇到了麻烦，请大家不吝赐教！！谢谢了！
一个文件夹里面有400多个excel文件，我想在不打开文件的前提下，读取每一个文件的Sheet1的A1的数据。并且按照文件名收集到一个新建的excel表格里。不知能不能实现啊！！谢谢大家了啊！

pureshadow · 发表于 2009-6-16 23:44:12

用宏表函数FILES可以获得指定路径下所有指定文件类型的文件名
以此作为引用的文件名和路径，后面加上工作表名和单元格名就可以了。

15fq · 发表于 2009-6-17 08:51:52

用宏表函数FILES可以获得指定路径下所有指定文件类型的文件名
以此作为引用的文件名和路径，后面加上工作表名和单元格名就可以了。
pureshadow 发表于 2009-6-16 23:44

谢谢了！但是我是个新手，还是不太明白，能不能写详细点呢！！再次谢谢了！！

15fq · 发表于 2009-6-17 13:59:45

我找到下面的一个程序，但是只能读取一个，你么能像你说的那样把宏表函数FILES加进去呢！！谢谢了

Sub AlternativeImport()
Dim xlapp As Excel.Application
Dim wbSource As Excel.Workbook
Set xlapp = New Excel.Application
xlapp.EnableEvents = False
Set wbSource = xlapp.Workbooks.Open("E:\000\001.xls")
Range("A1").Value = wbSource.Sheets("Sheet1").Range("C11").Value wbSource.Close
False xlapp.Quit

pureshadow · 发表于 2009-6-17 17:33:06

本帖最后由 pureshadow 于 2009-6-17 18:13 编辑

用宏表函数就不需要用代码，是个以技巧为主的操作方法

pureshadow · 发表于 2009-6-17 17:34:23

另外，这类代码在写的过程中，个人觉得还是在代码里套用工作表直接引用比较方便而且快捷，SQL有时速度也慢得可以。

15fq · 发表于 2009-6-18 12:39:23

另外，这类代码在写的过程中，个人觉得还是在代码里套用工作表直接引用比较方便而且快捷，SQL有时速度也慢得可以。
pureshadow 发表于 2009-6-17 17:34

非常感谢那么详尽的说明，已经实现了！另外files好像一次只能读256个文件名，但还是谢谢了！我用批处理实现文件名的list了。

cxzty · 发表于 2009-6-28 20:26:49

嗯！不错！都是高手

rrl525 · 发表于 2009-8-26 11:56:35

顶顶

litong9999 · 发表于 2009-9-9 12:08:29

不错！都是高手

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 一个文件夹里面有400多个excel文件，我想读取每一个文件的Sheet1的A1的数据

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)