基于VBA成绩自动上传系统开发.docVIP

基于VBA成绩自动上传系统开发 　　摘要：为打破成绩录入“瓶颈”，实现高效办公，以Excel VBA为编程语言，结合某高校成绩录入的具体任务，开发出将电子版学生成绩自动上传到该校教务系统的微型配套系统。实际运用结果表明，运用VBA实现学生成绩的自动上传，不仅快速准确，而且高效实用，其方法值得学习和推广。 　　关键词：Excel；VBA；学生成绩；自动上传；管理信息系统 　　中图分类号：TP312 文献标识码：A 文章编号：1009-3044（2016）32-0080-03 　　1 背景 　　Excel VBA（Visual Basic for Applications）是内嵌于Excel的程序开发语言，在Excel中可运行Visual Basic程序完成较复杂的工作，实现高效办公[1，2]。当然，作为一种功能强大的宏语言，通过编程也能实现对网页的操控。 　　将学生的各项成绩上传学校教务管理信息系统是每个教师期末必须完成的工作。由于许多教务管理信息系统没有提供批量导入成绩的功能，老师们不得不将已经整理好的电子成绩，采取复制粘贴的方法，再次人工录入相应的网页控件。工作重复低效，而且难免出错[3，4]。 　　为打破成绩录入“瓶颈”，实现了Excel电子成绩的自动快速准确上传，本文以某高校成绩录入为例，给出基于Excel VBA成绩自动上传系统的详细开发过程。 　　2 准备工作 　　在编写代码前，需要熟悉成绩录入界面、手工操作过程和界面网页元素的定位属性。网页元素的定位属性（包括id、name和索引号等）的获得，还需借助“网页按键精灵”等工具。在“网页按键精灵”中打开信息系统成绩录入界面后可获得图1结果，上面窗口显示某高校教务管理信息系统的成绩录入主要界面，下面窗口显示网页元素分析结果。 　　 　　图1 成绩录入页面元素分析 　　手工录入时，在成绩录入界面可依次输入学号（也可根据姓名提示而省略本项）、技能、平时、期末和总评成绩，点击“添加记录”，若信息系统存在此学号，该生成绩入库，同时显示在界面下半部的成绩表中。编程就是模拟这个人工过程。 　　获取网页元素属性，只需点击要观察的网页元素，其详细分析结果便显示在下面窗口。本系统根据ID属性定位，从图1可见，点击学号后，显示的ID属性为txtXh。同样操作，获得技能、平时、期末、总评和添加记录的ID属性分别为txtJncj、txtPscj、txtQmcj、txtCjInsert和btAdd。 　　3 界面设计 　　打开Excel，在Sheet1的A列至G列的首行输入“序号”、“姓名”、“学号”等信息，其中前二列为校验信息，后五列为要上传的信息。将H列至L列合并，插入艺术字“成绩自动上传”。在工作表中绘制一个圆角矩形，分别设置填充效果和阴影，复制粘贴成三个并添加文字作为菜单。最后将Sheet1命名为“主界面”，将其他表单删除，以文件名为“成绩自动上传”保存。见图2。 　　 　　图2 成绩自动上传主界面 　　4 代码编写与录入 　　4.1 操作说明模块 　　本模块显示一个消息框，为教师提供操作指导。 　　Sub Opguide（） 　　Dim msg As String 　　msg = 1.按本表A-H列的格式组织数据，首行为标目。 vbNewLine 　　msg = msg + 2.确认学校“成绩录入”页面的合法授权打开。 vbCrLf 　　msg = msg + 3.点击“数据检查”，通过后再点“成绩导入”。 　　MsgBox msg， vbOKOnly， 操作指南 　　End Sub 　　4.2 数据检查模块 　　数据检查模块分别检查学号和成绩的合法性。 　　Public dataflag As Boolean 数据检查通过标志 　　Public maxrow As Integer 数据的最大行数 　　Sub Datacheck（） 　　Dim i As Integer， j As Integer 　　Range（C1）.Select C列为学号 　　maxrow = Range（C65536）.End（xlUp）.Row 取得数据的最大行数 　　dataflag = True 　　下面是学号合法性检查 　　For i = 2 To maxrow 数据从第二行开始 　　If Len（Trim（Cells（i， 3））） = 8 Then 合法学号有8位 　　Cells（i， 3）.Font.Color = vbBlack 合法学号标记为黑色 　　Else 　　Cells（i， 3）.Font.Color = vbRed 不合法学号标记为红色 　　dataflag = False 　　End If