基于ExcelVBA的学生个人信息表系统开发-精品文档.docxVIP

基于 Excel VBA 的学生个人信息表系统开发 i=r 学生工作管理是高校工作中的重要环节， 辅导员作为第一线 接触学生的高校工作人员， 在学生立德树人的培养过程中发挥着 重要作用。在日常工作中，辅导员面对数量众多的学生，有学生 个人基本信息、 奖惩助贷等事务信息以及重点关注情况等多方面 信息源，但这些信息大多没有整合，分头查询会影响工作效率。 在传统学生管理工作中， 辅导员利用 Excel 进行信息整理工 作，往往把两者孤立起来，而忽略了其内在联系。[1] 作，往往把两者孤立起来，而忽略了其内在联系。 [1] 本文针对 上述情况，在工作人员熟悉的 Office软件中，利用VBA编程进 行二次开发，将繁琐的重复性工作转为自动化实现，以其快速、 简便、准确的效果来提高学生工作的效率，实现学生的精准化管 简便、准确的效果来提高学生工作的效率， 实现学生的精准化管 理。 1 开发工具介绍 ）是微软在其桌面应[2]VBA(Visual Basic For Application ）是微软在其桌面应 [2] 用程序中执行自动化任务而开发出来的新一代标准宏语言， 主要用来扩展 Windows的应用，它可以实现包括自动化完成重复 的任务，自定义 Excel 界面、创建报表、复杂数据处理和分析等。 能与 Word、Access 等软件完美融合，进行拓展应用的程序和交 互开发。 2 系统设计与开发 2.1 需求功能分析 本系统主要使用对象是高校辅导员或其他相关工作人员， 需 要实现信息汇总查询功能、 个人信息表生成和学生照片导入等功 能。根据需求，个人信息表系各模块如图 能。 根据需求，个人信息表系各模块如图 1 所示。 2.2 信息汇总表模板设计 本系统所有信息查询、信息表生成和照片导入等操作依靠 Excel 电子表格完成，相当于把该电子表当作一个数据库，因此 本系统利用 Excel 设计信息汇总表模板， 供用户进行后续各项操 作。为全面反映学生在校期间的情况， 具体的工作表和列字段如 表 1。 2.3 个人信息表模板设计 本系统要用到 Excel 和 Word 的交互编程，为方便使用者在 实际使用过程中， 能单独建立每个人的信息档案， 需要将汇总表 的个人汇总信息分发到每张个人信息表中。个人信息表模板由 Word制作，根表1的内容进行设计，并命名为学生个人信息表 模板） .doc ，信息表模板存放在系统同一路径。 2.4 个人照片库设计 在系统存储路径下建立学生照片库文件夹， 统一以学生学号 进行编号存储，系统将根据学号自动识别、匹配并导入。 2.5 系统开发 系统开发过程主要完成系统初始化、 Word交互、数据分发、 照片导入及标准化操作和程序错误管理几方面主要工作， 开发过 程及部分代码如下。 1)系统初始化。系统需要根据实际的汇总信息，判断需 要生成信息表的数量，同时完成相关操作的变量设置， 对所有数 据进行标准化处理，统一格式，防止在操作过程中因为数据的格 式不统一而影响系统工作。其主要代码如下所示： Dim Word 对象 As New Word.A pp lication 设置 Word对象，进行交互编程 Dim 当前路径，导出文件名，导出路径文件名，图片文件 Dim Str1 ， Str2 ， Str3 定义及初始化相关变量 Sheets1.Range (A3: A最后行号).NumberFormatLocal = G/通用格式 统一数据格式，保证系统正常工作 (2) Word交互编程。系统要将 Excel汇总表的信息分发到 每张个人信息表中，需要打开 Word应用，并将操作过程隐藏在 后台完成，其实现过程如下： FileCopy 当前路径 \学生个人信息表(模板) .doc ， 当前路径 \ 导出文件名 ( Sheets (基本信息 ) .Range (C i ) Sheets (基本信息 ).Range(B i ) ).doc 导出路径文件名 = 当前路径 \ 导出文件名 ( 错影响系统工作。 错影响系统工作。 ?Y?Selection.HomeKey unit Sheets (基本信息 ).Range(C i ) Sheets ( 基本 信息)Range (B i ) ) .doc 通过模板生成个人信息表 With Word 对象 ?Y?Documents.Open 导出路径文件名 ?Y?Visible = False 打开Word应用，并使其实现过程隐藏不可见 数据分发操作。将信息汇总表的信息分别填充到个人 信息表中的每个空格中，主要利用循环等语句，实现批量操作， 提升工作效率。其部分代码如下： For j = 1 To 6 ?Y?ActiveDocument.T