- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
基于Excel VBA学生个人信息表系统开发
基于Excel VBA学生个人信息表系统开发
摘 要 高校学生工作管理水平关系到学生培养质量的高低,通过技术手段可有效提高工作效率。针对高校学生工作管理过程中信息来源众多且没有有效整合的现状,设计学生信息汇总和个人信息表模板,并通过Excel VBA编程技术,开发学生个人信息表系统,方便高校辅导员获取学生个人信息表,实现学生工作的精准化管理。
关键词 学生工作 信息汇总 Excel VBA 个人信息表 精准化
0 引言
学生工作管理是高校工作中的重要环节,辅导员作为第一线接触学生的高校工作人员,在学生立德树人的培养过程中发挥着重要作用。在日常工作中,辅导员面对数量众多的学生,有学生个人基本信息、奖惩助贷等事务信息以及重点关注情况等多方面信息源,但这些信息大多没有整合,分头查询会影响工作效率。
在传统学生管理工作中,辅导员利用Excel进行信息整理工作,往往把两者孤立起来,而忽略了其内在联系。[1]本文针对上述情况,在工作人员熟悉的Office软件中,利用VBA编程进行二次开发,将繁琐的重复性工作转为自动化实现,以其快速、简便、准确的效果来提高学生工作的效率,实现学生的精准化管理。
1 开发工具介绍
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.Application
‘设置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
导出路径文件名 = 当前路径 \ 导出文件名 ( Sheets(基本信息).Range(C i) Sheets(基本信息).Range(B i) ).doc
‘通过模板生成个人信息表
With Word对象
?Y?Documents.Open 导出路径文件名
?Y?Visible = False
‘打开Word应用,并使其实现过程隐藏不可见
(3)数据分发操作。将信息汇总表的信息分别填充到个人信息表中的每个空格中,主要利用
文档评论(0)