【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
下一篇:【VBA(九):自定义函数和带参数的过程】【创建自定义函数+创建带参数的过程+使用加载宏工具+小结】
对象赋值到变量(Set)
原数据
目标:新建多个表
代码
效果图
认识Dir函数
判断数据是否存在
原数据
目标:判断新疆.xlsx是否存在
代码
效果图
不存在返回一个空值
目标:判断北京.xlsx是否存在
代码
效果图
存在即显示文件名
支持通配符
原数据
代码
效果图
相同文件名不同类型
原数据
代码
效果图
如果再尝试搜索新疆文件则返回空值,再搜索则报错。
遍历所有Excel文件
原数据
代码
效果图
多文件合并1
原数据
代码
效果图
多文件合并2
原数据
每个工作薄中都有多个工作表,类似1考场2考场等,每个工作薄有不同数量的工作表
代码
效果图
小结
概念
Set sht = sheet1
Dir(“d:\data*.xlsx”)
Range(“a:a”).find(“张三”)