excel高手，如何从很多外部excel文件中导入数据

来源：百度知道 编辑：UC知道 时间：2024/06/23 03:17:35
我有很多EXCELL文件，几百个，名字如485-001，485-002，485-003等等， 现在需要将每个文件中的C33：F62中的内容导入到一个新文件中，然后排序，筛选，手工方法几乎是不可能的， 请高手指点，谢谢！

这个能做到的,但是你必须把所有表格放在一个文件夹内,还要你的文件名都是如485-001,485-XXX这样的,然后就好用VBA代码来依次执行了。思路是这样的:假设你有400个表格,就设定执行400次,依次打开,读取C33:F62的数据,再写入到新表中的空白单元格。今天已经晚了,我要睡觉了,明或后天发个执行代码上来给你。

你建一个新表,名字叫:外部表格数据自动导入,必须和代码中的名字一致。
代码如下,按ALT+F11,插入>模块,粘贴下列代码,F5运行,运行前有个条件:
你要先在SHEET1界面点击文件>打开,选择到你保存表格的那个文件夹,能看到
485-001这些文件,其实就是手动选择一下默认文件夹。
Sub macro1()
'因为你的文件命名比较特殊,是文本格式的数字,中间还有个-,不太好自动打开
'只能采用下面数组成员遍历的方法打开了,总不能让你重命名吧
'假设你有400个BOOK,485-001~485-400,下面只添加了40个,你自己添加到所有的 ,比如"386"……"486"……
Dim AR: Dim N
AR = Array("001", "002", "003", "004", "005", "006", "007", "008", "009", "010" _
, "011", "012", "013", "014", "015", "016", "017", "018", "019", "020" _
, "021", "022", "023", "