求教VBA读取其他EXCEL文件里的数据并绘图

一个文件夹里的多个EXCEL文件

数据1

数据2

数据3

希望得到的结果

发个带图片的帖子也不容易，希望可以得到高手指教。



[解决办法]
1、
每月的表里，“一月、二月、三月”之类那一行删除掉

2、
Sql = "select 完成定额 from [月公示$] where 姓名 = 张三"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//张三加单引号括起来
Sql = "select 完成定额 from [月公示$] where 姓名 = '张三'"

3、注意里面变更，有些都没定义，比如a

4、这句ed = [b65536].End(3).Row + 1，第一次循环时，ed为2，h也为2，那下面的
Cells(h, 2).Resize(ed - h, 1) = f
相当于
Cells(h, 2).Resize(0, 1) = f　　这是语法错误了Resize不能为0