在VBA遍历文件夹和子文件夹中所有文件VIP专享VIP免费

甘肃省信息技术与课程整合优秀论文与教学设计评选活动类别：论文题目：巧用Office组件套打学生胸牌姓名：张兴荣单位：庆阳市合水县（区）合水县第一中学联系方式：18719705980；1035233839@qq.com巧用Office组件套打学生胸牌张兴荣（甘肃省合水县第一中学甘肃合水745400）[摘要]：本文是一个Office组件的整合应用实例。文中详细介绍了在MicrosoftOffice2003环境下利用Access报表打印学生胸牌证的过程，其中应用Excel-filesarch对象遍历文件夹，并结合Excel函数创建学生信息数据表的方法更具广泛应用价值。[关键词]：照片胸牌报表VBAOffice在日常办公应用中，经常需要套打带照片的证书证件（简称“照片证件”），通常作法是用Photosohp等图像处理软件在模板图层上插入照片和文字图层进行处理，但这种方法费时低效，劳动强度大。我在实践操中摸索出一套简明高效的照片证件处理法，现以学生胸牌制作为例加以介绍，以期相互交流，共同提高。一、照片证件套打原理照片证件中一般含图像和文本两类元素，其中图像多为个人数码照片图像文件，文本为个人基本信息文本资料。照片证件套打的基本原理是：先将个人的文本信息及照片图像文件文件名存储在数据库表记录中，再通过设计报表将这些记录信息准确的定位到模板相应位置上，然后逐页打印报表即可。这种方法处理证件，对系统的要求低，无须安装庞大的图形图像处理软件，系统只要安装了面向对象的数据库软件就行。二、胸牌制作过程利用照片证件套打原理制作学生胸牌时需要事前制作好胸牌模板，分班级存放好学生照片图像文件。下图是我整理好的胸牌模板和资料文件夹，其中照片文件夹下的班级子文件夹中存放着以学生姓名命名的学生照片图像文件。由于制作胸牌时需要提供学生相关文本信息，因此在设计报表之前首先得建立学生信息数据表。现分两个模块介绍胸牌制作流程。模块一：建立学生信息数据表VBA是MicrosoftOffice系列内置的面向对象编程语言，同其他任何面向对象编程语言一样，VBA里也有对象、属性、方法和事件。而的filesarch对象功能就是遍历指定文件夹，利用它可将照片文件夹中的所有图像文件搜索出来，并结合Excel函数创建一个学生信息数据表。具体分两步完成。步骤一：遍历文件夹，搜索图像文件。方法是启动MicrosoftExcel，按ALT+F11，打开VBA编辑器，插入一模块，编写如下模块代码（filesarch的属性已作了注释，供大家学习参考）。Submysearch()Dimfiles,i,arr(1To10000)Setfiles=Application.FileSearch'设置一个搜索对象fsWithfiles.LookIn="D:\编程\照片\"'设置搜索路径.Filename="*.jpg"'设置搜索文件类型.SearchSubFolders=True'确定搜索子文件夹If.Execute>0Then'如果搜索到文件，显示文件个数MsgBox"therewere"&.FoundFiles.Count&"file(s)found."Fori=1To.FoundFiles.Count'通过循环把所有搜索到的文件存入数组中arr(i)=.FoundFiles(i)NextiSheets(1).Range("a1").Resize(.FoundFiles.Count)=Application.Transpose(arr)'把数组内容放到单元格中ElseMsgBox"therewerenofilesfound."'如果搜索不到文件，显示文件找不到信息EndIfEndWithEndSub按F5执行。这样，生成一张sheet1工作表，在A列中存放着所有搜索到的含绝对路径的照片图像文件文件名，此时sheet1工作表处于打开状态。步骤二：利用Excel函数，从图像文件名中提取学生有用信息。应用Excel文本替换Substitute()、右截取Right()、定位Find()等函数截取A列单元格数据，获得学生相关资料信息。方法是分别在B1、C1、D1、E1单元格输入如下函数：=RIGHT(A1,LEN(A1)-FIND("#",SUBSTITUTE(A1,"\","#",LEN(A1)-LEN(SUBSTITUTE(A1,"\",)))))=LEFT(B1,LEN(B1)-4)=LEFT(A1,LEN(A1)-LEN(B1)-1)=RIGHT(D1,LEN(D1)-FIND("#",SUBSTITUTE(D1,"\","#",LEN(D1)-LEN(SUBSTITUTE(D1,"\",)))))并将它们自动填充到与A列行齐，得到如截图一所示学生资料信息表，其中A、C、E三列为有用数据，分别是：A列学生照片存放路径；C列学生姓名；E列学生所在班级。这样，一个存放学生信息的Excel表已经生成。保存此表到工作目录下，以备后用。模块二：设计报表1、启动Access，新建一空数据库。将模块一中...