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

求教VBA读取其他EXCEL文件里的数据并绘图
生产每月都会制作文件并公示，现在想做一个EXCEL，写一个宏，将文件夹里的3个月的公示EXCEL里的数据读取出来，并合并，然后点击姓名便生成一个新的sheel.将这个人12个月的完成定额绘制成一个曲线图。在这12个月里面，职工可能会增减。

请问这样可以实现吗？

数据：见附件。

更新求助：
因为对VBA并不太熟悉，看了一下午的帖子，写了下面这一段，想法就是根据姓名查询

--------------------------------------------

VB code


Sub test()
Set Cnn = CreateObject("adodb.connection")
    h = 2
    f = Dir(ThisWorkbook.Path & "\*.xls")
    Do While f > " "
        If f <> ThisWorkbook.Name Then
            Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\" & f
            Sql = "select 完成定额 from [月公示$] where 姓名 = 张三"
            Cells(a, 1).CopyFromRecordset Cnn.Execute(Sql)
            '每次到这里就出错，一直查不明白原因。
            ed = [b65536].End(3).Row + 1
            Cells(h, 1).Resize(ed - h, 1) = f
            h = ed
            Cnn.Close
            '断开cnn的链接
        End If
        f = Dir
    Loop
End Sub

--------------------------------------------

这里是查询数据然后放到一个新的表里，绘制成统计图还没写出来。求助！

好像不能上传数据附件，为了尽可能表达清楚问题，以下是附件的截图。（图片也不能），我再放到其他空间上。

一个文件夹里的多个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

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

相关推荐