VBA-10-使用DIR函数多文件合并.pptx

,Excel VBA视频教程 10使用Dir函数合并多个文件的数据,王佩丰MVP 微软最有价值专家MCT 微软认证讲师,议程,将对象赋值到变量,认识Dir函数,多文件合并,课程小结,本节演示案例,利用Set创建表并命名利用Dir函数确认某文件是否存在Dir函数返回某文件夹中的所有文件名多文件合并-每个文件中一张表多文件合并-每个文件中若干张表使用FIND方法查找数据,课程小结,需要理解并记住写法的概念,需要理解的概念,SET sht=sheet1Dir(“D:data*.*”)Range(“a:a”).find（“张三”),附表 Dir代码附表 Find代码,课后练习,将多个文件中的数据汇总到一个工作表中,问题：请在作业表是完成多文件汇总，只用data文件夹中的数据（每个文件中只有一个工作表）。将这些数据汇总到数据表中。要求：1 所有数据放入数据表中（不含表头）2 最后一列需要填写来自于那个地区的数据。,附表：Dir代码,10,Sub test()Dim str As StringDim wb As WorkbookDim i As Integerstr=Dir(d:data*.*)For i=1 To 100 Set wb=Workbooks.Open(d:data&str)这里该干什么干什么 wb.Close str=Dir If str=Then Exit For End IfNextEnd Sub,附表：FIND代码,11,Sub test()Dim rng As RangeSet rng=Range(d:d).Find(Range(l3)If Not rng Is Nothing Then Range(m3)=rng.Offset(0,3)End IfEnd Sub,Thank You,