如何利用VBA读取子文件夹中所有指定Excel文件的工作表中的某一单元格数据？

yhcad

=========================================================================
我想做一个评分系统，如“制图员”文件夹中有子文件夹“001李明”、“002李鹏”、“003陈列”、“004陈一明”等。
1、 现在只想读取所有子文件夹中的“理论知识.xls”中“得分工作表”的C1单元格中的准考证号数据、C2单元格中的姓名数据，C4单元格中的成绩数据。
2、现在评分系统已经基本能实现读取文件夹、文件名、工作表名。参见附件的“评分系统.xls”

3、请高手如何修改“评分系统.xls”的VBA才能读取实现子文件夹中所有指定Excel文件的工作表中的某一单元格数据？

yhcad

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