VBA(Visual Basic For Application)是一种基于微软OFFICE套件的编程语言，在实际工作中用着广泛的应用，特别是在处理大量数据的时候，可以起到事半功倍的作用。本次连载将笔者在实际工作中遇到的可用VBA解决的问题详述与大家分享。
VBA实际案例(1)
李SIR负责品管部门，有天打来电话说遇到一个问题想叫我们协助解决。IQC是品管的一个职能单位，他们有一项重要的工作就是针对供应商送来的原材料进行Rohs检测，所用的检测设备是手持式检测仪。检测的数据包括物料的编号，名称、厂商、是否合格等。数据首先被保存在检测仪里面，每天下班的时候，工作人员就将这些数据下载下来，并粘贴到一个excel工作表里。这个工作表是放在网络路径上面共享的，按照月份存放，也就是一个工作表以月份命名。他们遇到的问题是，他们在检测物料时，有时需要知道这些物料在什么时候被检测过，检测结果如何，但是在这么多的表格里查找记录很麻烦，所以就想借助程序加速查找。
我开始建议他们建立一个数据库，将检测数据导入到数据库里面，再开发一个简易的查询程序就可以满足要求了。但是老大说不用搞那么大了，用VBA写个程序就行。原理很简单，就是在文件夹下找到excel文件，逐个打开，在相应的列查找相应的字符就可以，可以按照料号和厂商来查询。遍历excel有两种方式：
1、使用Application.FileSearch
With Application.FileSearch
.NewSearch '重新设置搜索条件
.LookIn = sfoder '指定搜索目录
.SearchSubFolders = False '包含子目录
.Filename = "*.xls" '查找文件类型
.Execute '执行搜索命令
End With
2、使用文件系统FileSystemObject
根据文件的多少，找出所有的符合条件的记录的时间也不一样，基本上满足了需求。
