探究EXCEL+VBA在職業教育中的應用

余偉紅 葉均隆

[摘 要] 在職業教育中，學生以學習操作技能為重點，在信息化時當教師用任務驅動法教學時通常要核對學生交來的電子檔文件，從而調整布置任務的策略。用電子檔作業查收程序會讓教師教學更有效率。

[關 鍵 詞] 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.