利用ExcelWord的VBA自动生成学生成绩单.doc

王文祥，弭宝国 （唐 山 师 范 学 院 玉 田 分 校 ，河 北 唐 山 064100） 摘 要 ：该文介绍了通过编写代码 ，使 Excel 与 Word 互 相 配 合 ，自 动生成单个学生的成绩单 ，从而节省了大量的重复性劳动 ，避 免 了 错 误 ，提高了劳动效率 ，适合各级各类学校使用 。 关 键 词 ：Excel；Word；VBA；自 动 生 成 ；成 绩 单 中 图 分 类 号 ：TP311 文 献 标 识 码 ：A 文 章 编 号 ：1009-3044(2011)06-1404-04 Using the VBA of Excel and Word to Automatically Generated Students Scoring Sheet WANG Wen-xiang, MI Bao-guo (Tangshan Teachers college yu tian branch, Tangshan 064100, China) Abstract: Through the compilation code, using the Excel and Word to automatically generate every students scoring sheet, save amount of repeated labors, avoids the mistakes, improve the efficiency of work, and adapt to all kinds of schools to use. Key words: Excel; Word; VBA; automatically generated; the scoring sheet 学生各学期的成绩一般都是放在 Excel 表 格 中 ，打印单个学生成绩单一般是用 Word 的邮件合并功能完成 ，需 要 在 Word 中 先 创 建 主 文 档 ，然后选择数据源 ，重 复 执 行 “定 位 光 标→选 择 地 址 块→插 入→关 闭 ”命 令 ，工 作 量 很 大 ，且稍不注意就会出错 。 能 不 能 通 过编程自动完成这项工作呢 ？ 通 过 研 究 ，我 们 利 用 Excel 和 Word 的 VBA 解决了这一问题 。 下面做一详细介绍 ，供相关人员参考 。 1 准备工作 拿 到 Excel 成 绩 表 后 ，首先要保存一份备份 ；其次要去掉字段名中的空格 （可以用查找替 换 的 方 法 完 成 ）；第 三 ，在字段名前加上 代表学年学期的数字 ，如 11 代表第一学年第一学期 ，32 代表第三学年第二学期等 ，可以用文本求和的方法完成 ；第 四 ，删 除 无 用 的 行 、列 ；第 五 ，调 整 第 一 、二 、三 列 的 顺 序 ，使 之 分 别 为 ：姓 名 、学 号 、专 业 。 调 整后的表格第一行为字段名 ，第二行开始为学生成绩记 录 ；从第四列开始为学科成绩 ，如 图 1。 2 程序设计 本程序的指导思想 ：首 先 ，在 Excel 中 利 用 VBA 统计不重复科目 ，写 入 Sheet2 的 第 一 列 ；把 不 同 学 期 、不 同 科 目 的 成 绩 “字 段 名 ” 写入对应的单元格 ，如 图 2。 其 次 ，在 Word 中 利 用 VBA 制 作 表 头 、插 入 表 格 ；把成绩字段名转化为 “域 地 址 块 ”，填入表格中的相应位 置 ，即由电脑代替人类完成重复性的工作 ；第 三 ，手工对表格和文本做进一步的设置 。 3 编写代码 3.1 Excel 中 的 代 码 1) 启 动 Excel，以 “成 绩 表.xls”为 文 件 名 存 盘 。 把加工好的成绩表复制到 Sheet1 中 ，按 下 Alt+F11 键 ，进 入 VBA 编 辑 器 。 2) 执 行 “插 入→模 块 ”命 令 ，在 “模 块 1”中输入如下内容 ： Option Explicit: Option Base 1 Sub 成 绩 单() 以下定义一些内存变量和四个数组 ，并统计使用的总行数和总列数 Dim i%, j%, q%, k%, l%, m%, n%, s%, Row%, col As Integer 定 义 内 存 变 量 。 Dim t, t1 As Long 学期学科一维数组 。 如 ：11 地 理 Dim ykm() As String Application.ScreenUpdating = False 关 闭 屏 幕 更 新,可加快速度大约 7 倍 记录程序开始运行的时间 t = Timer Row = Sheets(sheet1).UsedRa