求教VBA读取其他EXCEL文件里的数据并绘图,该如何解决

本帖最后由 sAnKes 于 2012-06-27 23:00:01 编辑 生产每月都会制作文件并公示，现在想做一个EXCEL，写一个宏，将文件夹里的3个月的公示EXCEL里的数据读取出来，并合并，然后点击姓名便生成一个新的sheel.将这个人12个月的完成定额绘制成一个曲线图。在这12个月里面，职工可能会增减。请问这样可以实现吗？数据：见附件。更新求助：因为对VBA并不太熟悉，看了一下午的帖子，写了下面这一段，想法就是根据姓名查询——————————————————————————–

Subtest()SetCnn=CreateObject("adodb.connection")h=2f=Dir(ThisWorkbook.Path&"\*.xls")DoWhilef>""Iff<>ThisWorkbook.NameThenCnn.Open"provider=microsoft.jet.oledb.4.0;extendedproperties=excel8.0;datasource="&ThisWorkbook.Path&"\"&fSql="select完成定额from[月公示$]where姓名=张三"Cells(a,1).CopyFromRecordsetCnn.Execute(Sql)'每次到这里就出错，一直查不明白原因。ed=[b65536].End(3).Row+1Cells(h,1).Resize(ed-h,1)=fh=edCnn.Close'断开cnn的链接EndIff=DirLoopEndSub

——————————————————————————–这里是查询数据然后放到一个新的表里，绘制成统计图还没写出来。求助！好像不能上传数据附件，为了尽可能表达清楚问题，以下是附件的截图。（图片也不能），我再放到其他空间上。一个文件夹里的多个EXCEL文件数据1数据2数据3希望得到的结果发个带图片的帖子也不容易，希望可以得到高手指教。——解决方案——————————————————–1、每月的表里，“一月、二月、三月”之类那一行删除掉2、Sql=”select完成定额from[月公示$]where姓名=张三”~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//张三加单引号括起来Sql=”select完成定额from[月公示$]where姓名=’张三'”3、注意里面变更，有些都没定义，比如a4、这句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路遥知马力，日久见人心。