探究EXCEL+VBA在职业教育中的应用
时间：2021-04-21 12:06:20 来源：雅意学习网 本文已影响 人 
[摘 要] 在职业教育中，学生以学习操作技能为重点，在信息化时当教师用任务驱动法教学时通常要核对学生交来的电子档文件，从而调整布置任务的策略。用电子档作业查收程序会让教师教学更有效率。
[关 键 词] EXCEL2010+VBA；电子档作业查收程序；职业教育
[中图分类号] G712 [文献标志码] A [文章编号] 2096-0603（2018）19-0183-01
在职业教育中，教师在机房上课时，会使用任务驱动法教学模式，學生的任务完成了，会产生大量的电子档作业，教师首先需要在很短时间内知道谁没有交，从而调整布置任务的策略，一般的做法就是要求学生将任务文件重命名为“作业文件名+班别+姓名”并提交。
另外除了课堂上，教师还会布置一些课外的电子文档类的作业，都是需要学生在一定的时间内通过课堂电脑或者网络交作业的，教师还是要按照班别花名册来逐一检查，这样人工检查的缺点有：（1）速度较慢影响课堂效率与气氛。（2）教师需要很耐心地核对学生名单表进行记录，增加额外的工作量。（3）由于查收作业速度慢，不能很好地从作业完成效果来调整教学策略。（4）学生交回的作业完全是电子文档，是无纸化的，既环保又快捷，不能让学生重新再把电子文档类作业手抄到作业本上或者再用打印机打印出来，这样耗时耗财，有违计算机时代的自动化精神了。
所以，有必要设计一个“电子档作业查收软件”，来查看学生有没有交电子文档类作业，并生成平时成绩的报表，这个软件是通用的，只要作业是电子档类文件就行，可以满足不同专业的教师使用。软件的特色是可以通过判断“上传作业文件夹”里面的作业文件来检测学生作业是否交了。通过《电子档作业查收软件》生成学生作业报表，教师也可以通过报表自动衡量学生的平时成绩。
一、设计的主要探究内容及目标
电子档作业查收软件设计主要使用EXCEL2010+VBA，鉴于日常教学中我们都离不开OFFICE，譬如学生的名单册就是一个EXCEL工作簿，基于目的数据的方便性，我们选用VBA了来对Excel进行二次开发，VBA可以有效地自定义和扩展Excel的功能。
VBA（Visual Basic for Application）是Microsoft Office系列软件的内置编程语言，其语法结构与Visual Basic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。VBA中的应用程序是由许多对象组成的，如表、窗体、查询等。对象是帮助构造应用程序的元素，以特定的方式组织这些对象，就形成了应用程序。
二、本程序设计要探究或解决的问题和采用的手段
在编写《电子档作业查收软件》时，浏览并选择文件夹
Dim Fd As Object，FSO As Object， file As Object，FldPath As String
Set Fd = Application.FileDialog（msoFileDialogFolderPicker）
Fd.InitialFileName=“D：＼电子档作业查收工具”
With Fd
If .Show = -1 Then
FldPath = .SelectedItems（1）
If Right（FldPath， 1） <> "＼" Then
FldPath = FldPath & "＼"
End If
End If
End With
Cells（4，3）=FldPath
Sub按钮4_Click（）
Range（“B10：I1000”）.ClearContents
Dim FSO As Object， file As Object， FldPath As String， rs As Integer
i=9
FldPath=Cells（4，3）
Set FSO=CreateObject（"scripting.filesystemobject"）
If Len（FldPath） = 0 Then Exit Sub
If Cells（4， 8）.Value = 1 Then
For Each file In FSO.GetFolder（FldPath）.Files
i=i+1
Cells（i，2）=file.Name
Cells（i，5）=file.Size/1024
Next file
rs=Application.WorksheetFunction.CountA（[B10：B1000]）
Else
For Each file In FSO.GetFolder（FldPath）.subfolders
i=i+1
Cells（i，2）=file.Name
Cells（i，5）=FSO.GetFolder（FldPath）.Size/1024
Next file
End If
Cells（8，2）=“共”&rs&“笔记录。”
Range（“B2”）.Select
End Sub
通过使用“电子档作业查收软件”，导入任教的班级名单和作业清单后，教师不用花大量时间就知道学生完成作业的情况，立即可以知道哪个同学缺失哪个作业没有完成及时督促，对抄袭作业的加以劝导，又可以更快地调整教学策略和作业量。
通过学生报表程序生成学生报表，教师可以通过报表衡量学生的平时成绩。结合需求，运用到《计算机应用基础》的实践教学当中。
参考文献：
[1]罗刚君.Excel 2010 VBA编程与实践[M].电子工业出版社，2010.
[2]黄朝阳，李懿.Excel 2010 VBA入门与提高[M].电子工业出版社，2010.
