资源描述：
《利用ExcelWord的VBA自动生成学生成绩单》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、ISSN1009-3044E-mail:eduf@cccc.net.cnCCoommppuutteerrKKnnoowwleleddggeeaannddTTeecchhnnoolologgyy电脑知识电脑知识与技术与技术第7卷第6http://www.dnzs.net.cn期(2011年2月)Vol.7,No.6,February2011,pp.1404-1407Tel:+86-551-56909635690964利用ExcelWord的VBA自动生成学生成绩单王文祥，弭宝国（唐山师范学院玉田分校，河北
2、唐山064100）摘要：该文介绍了通过编写代码，使Excel与Word互相配合，自动生成单个学生的成绩单，从而节省了大量的重复性劳动，避免了错误，提高了劳动效率，适合各级各类学校使用。关键词：Excel；Word；VBA；自动生成；成绩单中图分类号：TP311文献标识码：A文章编号：1009-3044(2011)06-1404-04UsingtheVBAofExcelandWordtoAutomaticallyGeneratedStudents'ScoringSheetWANGWen-xiang,MIB
3、ao-guo(TangshanTeacherscollegeyutianbranch,Tangshan064100,China)Abstract:Throughthecompilationcode,usingtheExcelandWordtoautomaticallygenerateeverystudent'sscoringsheet,saveamountofrepeatedlabors,avoidsthemistakes,improvetheefficiencyofwork,andadapttoall
4、kindsofschoolstouse.Keywords:Excel;Word;VBA;automaticallygenerated;thescoringsheet学生各学期的成绩一般都是放在Excel表格中，打印单个学生成绩单一般是用Word的邮件合并功能完成，需要在Word中先创建主文档，然后选择数据源，重复执行“定位光标→选择地址块→插入→关闭”命令，工作量很大，且稍不注意就会出错。能不能通过编程自动完成这项工作呢？通过研究，我们利用Excel和Word的VBA解决了这一问题。下面做一详细介绍，供
5、相关人员参考。1准备工作拿到Excel成绩表后，首先要保存一份备份；其次要去掉字段名中的空格（可以用查找替换的方法完成）；第三，在字段名前加上代表学年学期的数字，如11代表第一学年第一学期，32代表第三学年第二学期等，可以用文本求和的方法完成；第四，删除无用的行、列；第五，调整第一、二、三列的顺序，使之分别为：姓名、学号、专业。调整后的表格第一行为字段名，第二行开始为学生成绩记录；从第四列开始为学科成绩，如图1。2程序设计本程序的指导思想：首先，在Excel中利用VBA统计不重复科目，写入Sheet2的
6、第一列；把不同学期、不同科目的成绩“字段名”写入对应的单元格，如图2。其次，在Word中利用VBA制作表头、插入表格；把成绩字段名转化为“域地址块”，填入表格中的相应位置，即由电脑代替人类完成重复性的工作；第三，手工对表格和文本做进一步的设置。3编写代码3.1Excel中的代码1)启动Excel，以“成绩表.xls”为文件名存盘。把加工好的成绩表复制到Sheet1中，按下Alt+F11键，进入VBA编辑器。2)执行“插入→模块”命令，在“模块1”中输入如下内容：OptionExplicit:Option
7、Base1Sub成绩单()'以下定义一些内存变量和四个数组，并统计使用的总行数和总列数Dimi%,j%,q%,k%,l%,m%,n%,s%,Row%,colAsInteger'定义内存变量。Dimt&,t1AsLongDimykm()AsString'学期学科一维数组。如：11地理收稿日期：2011-01-25作者简介：王文祥（1965-），男，河北唐山人，唐山师范学院玉田分校信息教育系副教授，1988年毕业于河北师范大学物理系，2000年在天津师范大学进修多媒体技术，主要从事多媒体教学研究。1404多
8、媒体技术及其应用本栏目责任编辑：唐一东第7卷第6期(2011年2月)ComputerKnowledgeandTechnology电脑知识与技术Dimxq()AsString'学期一维数组。如：11Dimchfkm()AsString'学科一维数组。如：地理Application.ScreenUpdating=False'关闭屏幕更新,可加快速度大约7倍t=Timer'记录程序开始运行的时间Row=Sheets("sheet1").UsedR
