ExcelVBA视频教程10使用Dir函数合并多个文件的数据王佩丰MVP微软最有价值专家MCT微软认证讲师议程将对象赋值到变量认识Dir函数多文件合并课程小结及课后练习将对象赋值到变量将对象赋值到变量中的好处将单元格赋值到变量将工作表赋值到变量将工作簿赋值到变量认识Dir函数Dir函数验证是否存在某个文件多个条件相符的文件Dir如何返回值Dir函数遍历循环所有文件多文件合并多个文件每个文件中一张表多个文件每个文件中若干张表合并后的命名问题课程小结本节演示案例利用Set创建表并命名利用Dir函数确认某文件是否存在Dir函数返回某文件夹中的所有文件名多文件合并-每个文件中一张表多文件合并-每个文件中若干张表使用FIND方法查找数据课程小结需要理解并记住写法的概念需要理解的概念SETsht=sheet1Dir(“D:\data\*.*”)Range(“a:a”).find（“张三”)附表Dir代码附表Find代码课后练习将多个文件中的数据汇总到一个工作表中问题：请在作业表是完成多文件汇总，只用data文件夹中的数据（每个文件中只有一个工作表）。将这些数据汇总到数据表中。要求：1所有数据放入数据表中（不含表头）2最后一列需要填写来自于那个地区的数据。10附表：Dir代码Subtest()DimstrAsStringDimwbAsWorkbookDimiAsIntegerstr=Dir("d:\data\*.*")Fori=1To100Setwb=Workbooks.Open("d:\data\"&str)'这里该干什么干什么wb.Closestr=DirIfstr=""ThenExitForEndIfNextEndSub11附表：FIND代码Subtest()DimrngAsRangeSetrng=Range("d:d").Find(Range("l3"))IfNotrngIsNothingThenRange("m3")=rng.Offset(0,3)EndIfEndSubThankYou
