【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

下一篇:【VBA(九):自定义函数和带参数的过程】【创建自定义函数+创建带参数的过程+使用加载宏工具+小结】

对象赋值到变量(Set)

原数据
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

目标:新建多个表
代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

认识Dir函数

判断数据是否存在

原数据
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
目标:判断新疆.xlsx是否存在

代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
不存在返回一个空值
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

目标:判断北京.xlsx是否存在

代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
存在即显示文件名
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

支持通配符

原数据
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

相同文件名不同类型

原数据
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

如果再尝试搜索新疆文件则返回空值,再搜索则报错。

遍历所有Excel文件

原数据
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

多文件合并1

原数据
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

多文件合并2

原数据
每个工作薄中都有多个工作表,类似1考场2考场等,每个工作薄有不同数量的工作表
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
代码
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】
效果图
【VBA(十):使用Dir函数合并多个文件的数据】【对象赋值到变量(Set)+认识Dir函数+小结】

小结

概念

Set sht = sheet1
Dir(“d:\data*.xlsx”)
Range(“a:a”).find(“张三”)