如何用VBA将各workbook自动得到序号并与汇总表相关联？（急！！）

victor_zwd

求助.rar (46.86 KB, 下载次数: 9)

2013-1-11 16:42 上传

点击文件名下载附件

[各位大侠，小弟最近接到一个任务，由于我在的部门经常要写检查报告，然后每周将报告汇总到一张表里，领导希望我能将报告和汇总表实现相互关联：
做一个报告模板，每次新建一个报告都按模板的格式，然后点击一个按钮就能自动得到报告号（按汇总表中的顺序，比如汇总表中已经到第B236个报告了，那么新建的报告号能自动填写B237到相应单元格），并以此序号自动另存为。然后每次新报告填写完，点击一个按钮（或者在报告关闭前自动执行）报告中的相关信息自动填写进汇总表，不管有多少张报告，每份都能如此自动汇总。
小弟初学excel VBA，最近也拜读了论坛的大作《别怕，EXCELVBA其实很简单》。但是我功力也太浅了，而且可能对象、属性等没有认识全，所以好几天了，我还是没法写出点像样的代码。
只好求助于各位大侠。请不吝赐教，帮我编写一下代码。非常感谢。
要得比较急，下周就要交，所以，请大家帮帮忙！万分感谢！！
详情请见附件，如果小弟没有描述清楚，请告诉我，我再补充。

victor_zwd

由于原报告涉及一些单位情报，所以附件里的表格是小弟按我自己需求草拟的，比较粗糙。特此解释一下。
小弟等候中。。。

victor_zwd

另外，想请教一下高手们：
1.如何想在一个文件夹下数一共有多少个工作薄，该如何编写代码呢？
2.倘若文件名为“检查报告B001”，“检查报告B002”。。。“检查报告B003”，能否让VBA像模糊查找一样按照“检查报告* ”这种形式来查询所有含有此关键词的工作薄名称，并计数？

victor_zwd

仍然坐等中。。。
可能在高手眼中这个问题不值一提，但是我确实不会做，请不吝赐教！！！