遍历指定文件夹多个excel文件，读取文件名和文件中某几个位置的数据到汇总表

yanono · 发表于 2010-7-20 04:55

Microsoft.ACE.OLEDB.12.0才支持.xlsx、.xlsm等2007excel文件
microsoft.jet.oledb.4.0只支持.xls
这个小问题又折腾了我1天时间，学VBA的热情又受到了打击。

ROCK@ · 发表于 2010-7-20 11:34

帮我看看8楼的啊

yanono · 发表于 2010-7-21 01:44

楼上你的附件我看了，你描述的不够完整，你要汇总每个月的费用，那你其它月份的费用表在什么位置？是不是和效果表在一个文件夹里？如果在一个文件夹里，那你提供的费用表的名称就不对，要是以每月月份命名的话，编宏就不需要数据查询，如果没有规则命名的话，还要用ado的查询语句，比较麻烦，我不会；如果不在一个文件夹里，按你的附件编的宏你就无法运行。
另外我想给你提点建议，像这种简单记录每月支出费用的应用，你应该放在一个文件里，比如你的费用表，每到新的一个月时复制一份新的sheet表并改名为月份，在第一个sheet表内汇总。这样多方便啊，一打开文件，第一页是汇总表，后面是每个月的单独明细，汇总表就简单的本工作薄链接就可以了，不需要手动输入数据。
你也可以按本贴前面的vb脚本，略微改动一下，在你的汇总表内创建新sheet，复制费用表数据过来，并改名为月份，然后汇总表直接引用。

hupanshan · 发表于 2010-7-21 07:13

有道理，没有规矩不成方圆。我特别不喜欢随意假设一些不规范条件的命题，当你解决了1，后面会有2。当你解决了2，自然会有3，子子孙孙无穷匮也，永远猜不尽的意外。

[ 本帖最后由 hupanshan 于 2010-7-21 07:17 编辑 ]

yanono · 发表于 2010-7-21 08:11

出于对ROCK这位求助者的好奇（EH4星高级会员），我查看了他详细资料里的主题列表，http://club.excelhome.net/search ... bmit=yes&page=1
这位朋友2年多来的所有贴都是“请帮助我做个宏啊（XX）”的格式，大部分都不是很难的求助（像设置格式、条件筛选、分类汇总这些让宏来做反而费事了），甚至还有些求助内容相同的，

我猜想这位朋友得到帮助后从来没有仔细看过别人帮你写的脚本，我觉得你只要把你上网发帖求助的时间的1/5用来学习这些脚本或者查看excel自带的帮助文件就可以自己解决问题了。
没有帮到你还啰嗦几句，ROCK不要见怪。

mengshu · 发表于 2010-11-11 14:11

遍历工作薄，我也在找相关办法啊

hupanshan · 发表于 2010-11-11 15:38

原帖由 mengshu 于 2010-11-11 14:11 发表
遍历工作薄，我也在找相关办法啊

什么叫“遍历工作薄”？

szqhb · 发表于 2010-11-11 18:25

“遍历工作薄”就是逐个打开某文件夹里的工作簿吧？
hu大师能否为我组装一段代码，其要求：
运行代码后
1、通过选择打开所需的文件夹
找到以下代码
Set theSh = CreateObject("shell.application")
Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
2、打开里面的其中一个Excel文件
3、对这个文件夹进行相应的操作（它可以是自己录制的宏）
4、保存并关闭此文件
接着打开第二个文件，重复上面步骤
最好若里面还有子文件夹的话还对里面的文件进行操作

[ 本帖最后由 szqhb 于 2010-11-11 18:27 编辑 ]

hupanshan · 发表于 2010-11-12 15:31

原帖由 szqhb 于 2010-11-11 18:25 发表
“遍历工作薄”就是逐个打开某文件夹里的工作簿吧？
hu大师能否为我组装一段代码，其要求：
运行代码后
1、通过选择打开所需的文件夹
找到以下代码
Set theSh = CreateObject("shell.application")
Set theFol ...

估计这是个前无古人的要求，你想达到什么目的？

szqhb · 发表于 2010-11-14 23:58

原帖由 hupanshan 于 2010-11-12 15:31 发表

估计这是个前无古人的要求，你想达到什么目的？

已经组装了一个基本符合要求的附件（见附件）
如：附件文件夹内是各年级各班的成绩登记表，原来是第一单元的，可以通过操作将登记表的时间改为第二单元，等等
问：有循环选择文件夹的命令吗？

		自动登录	找回密码
密码			免费注册

[求助] 遍历指定文件夹多个excel文件，读取文件名和文件中某几个位置的数据到汇总表

回复 8楼 hupanshan 的帖子