利用VBA通过Excel数据交互实现模版的自动填写.docVIP

利用 VBA 通过 Exce l数据交互实现 利用 VBA 通过 Exce l数据交互实现模版的自动填写 毛战军 (长江大学 一年级工作部 ,湖北 荆州 434023) [摘 要 ]利用 O ffice办公系统组件中的 Exce l组件及 VBA 语言自动分割数据 ,自动完成班级成绩表的填写 . [关键词 ]VBA; Exce l;数据交互 [中图分类号 ] TP391. 13 [文献标识码 ]A [文章编号 ] 1671 - 5330 ( 2010) 02 - 0037 - 06 0 引言 在工作中 ,需要从流水阅卷得到的学生成绩 总表中遴选出所需要的各班级成绩来制作统一格 式的班级成 绩表 . 成 绩模 版 以 Exce l工 作表 的 形 式保存. 在制作过程中若只是使用手工操作 ,则工 作强度大 ,工作效率低. 可以考虑利用 O ffice 办公 系统组件中的 Exce l工作表及 VBA 语言自动分割 数据 ,自动完成各班级成绩表 ,提高工作效率 , 降 低工作强度 . VBA (V isua l B a sic fo r App lica tion)是 M ic ro soft O ffice系列软件的内置编程语言 ,用来为 M ic ro soft O ffice套件提供 一致 的应 用程 序 开发 . VBA 编 程 语言与 V isua l B a sic编程语言互相兼容 ,但不能在 一个环境中独立运行 ,需要宿主应用程序支持它 的功能特性 [ 1 ] . 1 系统分析 学生成绩总表用 Exce l文档保存 , 如图 ( 1 ) . 在总表中已经按学生姓名的顺序排好 ,学生的成 绩已经登录完毕. 在 Exce l工作表中通过 VBA 语 句使用由 Exce l对象模型所提供的对象的方法和 属性来操作 Exce l文档 . 1. 1 读取一个班级的学生人数 通过循环语句来记录一个班级学生的人数 、 学生成绩所在工作表中的位置. 利用比较语句判 断是否是同一班级学生来终止循环. 如以下代码 所示 : 图 1 D im studen tZongshu A s In tege r ’定义 学 生总 人数 变量 D im studen tN u A s In tege r ’定义班级总人数变量 studen tZongshu = 1 ’第一行为标题栏 ’第一行为标题栏 studen tN u = 1 A c tiveShee t. R ange ( b studen tZongshu + 1 ) . Se lec t ’选择工作表中 b列第 2 个单元格 ’通过循环判断一个班级的人数 [收稿日期 ] 2010 - 01 - 17 [作者简介 ]毛战军 ( 1970 —)男 ,湖北仙桃人 ,讲师 ,硕士 ,主要从事 CA I应用与函数论教学与研究工作 . Do W h ile R ange ( b stu Do W h ile R ange ( b studen tZongshu + W o rkbook s ( c jb. xls ) . Shee ts ( 1 ) . R ange ( c l + 9 ) . V a lue = W o rkbook s ( 总 表. xls ) . Shee ts ( 1 ) . R ange ( e l + y) . V a lue W o rkbook s ( c jb. xls ) . Shee ts ( 1 ) . R ange ( d l + 9 ) . V a lue = W o rkbook s ( 总 表. xls ) . Shee ts ( 1 ) . R ange ( g l + y) . V a lue W o rkbook s ( c jb. xls ) . Shee ts ( 1 ) . R ange ( e l + 9 ) . V a lue = W o rkbook s ( 总 表. xls ) . Shee ts ( 1 ) . R ange ( h l + y) . V a lue W o rkbook s ( c jb. xls ) . Shee ts ( 1 ) . R ange ( f l + 9 ) . V a lue = W o rkbook s ( 总 表. xls ) . Shee ts ( 1 ) . R ange ( i l + y) . V a lue W o rkbook s ( c jb. xls