在Excel中批量合并带照片证卡.docVIP

在Excel中通过VBA实现批量打印带照片证卡 中国矿业大学管理学院 苏丁 [摘要] Microsoft公司的Office系列办公软件因为其功能强大、界面友好以及操作简单等优点而成为大多数用电脑办公人员的首选工具。多数人都知道，在Excel中输入数据然后在Word中通过其邮件合并功能调用Excel中输入的数据可以方便地批量打印出信封、标签以及名片等。而对于胸牌、准考证等需要照片证卡的做法往往是先打印出文字部分然后手工粘贴照片，这种做法不但浪费人力、物力、财力而且容易出错。数码照相机、彩色打印机及相关设备的普及运用为照片随同文字一起合并打印提供了物质基础。由于Word2003不支持将Excel2003单元格中照片直接合并，本文将详细介绍在Excel2003中通过VBA实现批量合并、排版、打印带照片证卡的具体做法。 [关键词] EXCEL VBA 一、问题的提出 笔者在单位主要负责职工培训、考评工作，通常情况下每个月要组织数百名职工参加各种类型的培训。每次培训，开始时要为参加培训的每位学员做听课证，结束时要为每位学员做准考证，对于考核合格的职工要发该类培训的合格证。 更早期的不谈，在计算机普及应用之后，笔者所在单位做上述各类证件的通常做法是：在Microsoft的Excel中输入参加培训每位职工的具体信息，如姓名、单位、培训专业、时间等，然后利用Microsoft的Word中提供的邮件合并功能调用Excel中输入的数据，从而实现批量排版、打印的目的。对于需要粘贴照片的证卡，通常的做法是在排版时预留好一照片大小的方框，在组织参培职工统一照相之后，用手工的方式逐一将每位参培人员的照片粘贴于预留好的方框内。实践表明，这种做法与早期纯手工时代的做法相比先进许多，但仍然存在很多问题。通常问题是参培职工的照片不能一次拍摄就符合要求，即使符合要求，在裁剪及粘贴过程中经常出现人为损坏及张冠李戴的现象。就算每一步工序都不出差错，从照片的拍摄、冲洗、裁剪、查找对应到最后的粘贴仍要耗费大量的人力、物力与财力。 随着数码照相机、彩色打印机及相关设备的普及运用，将各类证件上的相片连同文字一起合并、排版、打印的需求被提出来。测试表明， Microsoft Word中的邮件合并功能不支持将Excel中插入的照片直接合并到Word文档中（即使支持，在Excel中逐一插入照片也非常麻烦）。考虑到本部门职工对Microsoft Office系列软件比较熟悉，转用其它各类专业软件的成本过高，因而决定在Excel中实现这一功能。 经过反复调试，在Excel中利用VBA成功地实现了各类带照片证卡批量合并、排版及打印目的。下面以在Excel2003中利用VBA批量制作准考证为例，详细介绍这一过程的具体做法。 二、相关知识背景 Excel2003是Microsoft公司的Office2003系列办公软件成员之一，是目前应用最为广泛的办公室表格处理软件之一。Excel2003提供直观快捷的数据输入、强大灵活的数据处理、丰富的图表制作、完善的报表、快速统计分析功能，几乎办公人员没有不用到EXCEL的但我们只满足于手工操作这些功能，那我们处理一些重复的工作时就会象机器人一样机械的操作。庆幸的是的专家们为大家想到了一个方法，那就是VBA（V　　A（简称VBA））嵌套在O中。VBA是Microsoft面向最终用户的应用软件编程语言。它最早出现于Microsoft的Excel和Project中，如今VBA已成为VB和所有Office产品的组件。另外，越来越多的软件开发商购买了VBA语言的使用权，如常用的绘图软件AutoCAD等均已支持VBA作为二次开发工具。VBA语言简单易学，但功能却不寻常，其运行效率对于普通的应用也完全能满足需要。一般而言，用VBA可以做到：①定制和扩展客户应用程序功能；②将客户应用程序及数据集成到其他应用程序中。在Excel中，记录宏把需要用户重复的工作自动化，这其实已经是对Excel的定制但它仅仅是定制或扩展Excel的开端。因为，系统自动记录的宏虽然常常罗列了一大堆代码，但真正有用的却很少，且没有嵌入错误处理方案利用VBA定制ExcelOption Explicit Private Sub CommandButton1_Click() On Error GoTo errordeal Application.DisplayAlerts = False 系统不提示删除工作表前的确认 Dim ans 检查工作表sdjf是否存在，如果存在先删除 Dim j As Integer For j = 1 To Worksheets.count If InStr(1, Worksheets(j).Name, sdjf) 0 Then