巧用VBA编程实现Excel证件的批量打印

《巧用VBA编程实现Excel证件的批量打印》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、计算机安全与维护COMPUTERSECURITYANDMAINTENANCE巧用VBA编程实现Excel证件的批量打印夏教荣摘要：通过实例论述了在Excel中用VBA编程实现含有照片的电子证件或表格批量自动打印，提高了Excel在实际应用中的工作效率，节省了人力资源。关键词：VBA编程；自动打印；Excel“常用命令”。1VBA简介（4）在该对话框右侧的“自定义功能区”下，选择“主选1.1什么是VBA项卡”，然后选中“开发工具”复选框。VBA是VisualBasicForApplication的缩写，它是以Visual（5）单击“确定”。Basi

2、c为发展基础的语言。在Office软件中，VBA应用程序能在Excel显示“开发工具”选项卡之后，注意选项卡上够在Word、Access、Excel等之间进行交互式应用，加强了应“VisualBasic”、“宏”和“宏安全性”按钮的位置。用程序间的互动。启用“开发工具”选项卡后，可以轻松找到“VisualBa-VBA是VB的应用程序版本，可以理解为“寄生在Officesic”和“宏”按钮，如图1所示。办公软件中的VB”，可以看作是VB语言的一个子集。VBA使Office形成了独立的编程环境。1.2VBA与VisualBasic的关系（1）VB用于

3、开发Windows应用程序，其代码最终被编译为可执行程序。而VBA是用于控制已有应用程序的自动化操作，其代码为解释。（2）VB拥有独立的开发环境，而VBA必须集成在已有的应用程序中(Excel等)。2.2安全问题（3）VB开发出来的应用程序在脱离开发环境后仍能执行，单击“宏安全性”按钮可以指定哪些宏可以运行并需满足哪而VBA编写出来的程序必须在访问集成应用程序(Excel等)些条件。尽管未授权宏代码可能会严重损害计算机，但阻止您运的基础上进行。行有帮助的宏的安全条件会严重妨碍工作效率。宏安全性是一个尽管有以上不同，但它们仍然非常相似。都使用相同的

4、语复杂而又涉及广泛的话题，应研究并了解是否应使用Excel宏。言结构。两者的程序的语法及程序流程完全一样。在本文中，请注意，如果当打开一个包含宏的工作簿时，在功能区和工作表之间出现“安全警告:宏已被禁用”条，则2在Excel中使用VBA可单击“启用内容”按钮来启用宏。2.1进入VBA的方法此外，作为一种安全措施，不能以默认的Excel文件格式下面以Office2010为例说明来进入VBA的方法：(.xlsx)保存宏；而必须将宏保存在具有一个特殊扩展名.xlsm功能区中有一个“开发工具”选项卡，在此可以访问Vi-的文件中。sualBasic编辑器和

5、其他开发人员工具。由于Office2010在默3用VBA制作证件批量打印的实例认情况下不显示“开发工具”选项卡，因此必须使用以下过程启用该选项卡：下面通过制作一张学员培训券来说明VBA在Excel中如何（1）在“文件”选项卡上，选择“选项”打开“Excel选实现自动批量打印多张含有照片的培训券。项”对话框。3.1准备工作（2）单击该对话框左侧的“自定义功能区”。（1）设计建立基本人员信息表（3）在该对话框左侧的“从下列位置选择命令”下，选择在Excel表格中建立如图2基本信息资料，具体建立过程2011.2171实用第一智慧密集在这里不再详述，建立

6、的表比较多，实际这里要用到的表格只cfz18有两张，所以其他的表格就没有必要说了。'定义身份证取第二位数的内存变量为cfz2,'取第三位数的内'存变量为cfz3，……以此类推到第十八位身份证内存变量为'cfz18.（身份证取第一位的内存变量为oCell2,不需要重新定义）'DimFileTypeAsStringDimiPXJHAsLong'编号DimiRowAsLong'正在培训券(计算机操作员）人员的行号DimstrSheetAsString'人员信息的工作表名称strSheet="学员花名册（计算机操作员）"'人员基本信息在学员花名册（计算机

7、操作员）工作表中，此'处可以修改'检查是否在人员基本信息工作表中执行此功能,'如果是，则显示不能在此工作表中执行。IfActiveSheet.Name<>strSheetThen（2）设计建立打印证件或报表格式见图3。'不是在人员信息工作表中则弹出对话框。MsgBox"请在人员基本信息工作表中执行此功能"ExitSubEndIfDo'循环开始iRow=Selection.Row'行号，从当前选定的行开始培'训券(计算机操作员）'读当前培训券(计算机操作员）行的左边第一单元格内'容：序号SetoCell1=Worksheets(strSheet).

8、Cells(iRow,11)'序号是数字的行需要培训券(计算机操作员）即所对应培'训券号行所在的单元格（3）使用VBA编程实现两个工作表