【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(“张三”)

下一篇:【VBA(十一):使用VBA数组】【认识数组+数组应用案例+小结】

原创文章 131 获赞 220 访问量 2万+

猜你喜欢

转载自blog.csdn.net/qq_42893334/article/details/105732248