余偉紅 葉均隆

[摘 要] 在職業(yè)教育中，學(xué)生以學(xué)習(xí)操作技能為重點，在信息化時當(dāng)教師用任務(wù)驅(qū)動法教學(xué)時通常要核對學(xué)生交來的電子檔文件，從而調(diào)整布置任務(wù)的策略。用電子檔作業(yè)查收程序會讓教師教學(xué)更有效率。

[關(guān) 鍵 詞] EXCEL2010+VBA；電子檔作業(yè)查收程序；職業(yè)教育

[中圖分類號] G712 [文獻標(biāo)志碼] A [文章編號] 2096-0603（2018）19-0183-01

在職業(yè)教育中，教師在機房上課時，會使用任務(wù)驅(qū)動法教學(xué)模式，學(xué)生的任務(wù)完成了，會產(chǎn)生大量的電子檔作業(yè)，教師首先需要在很短時間內(nèi)知道誰沒有交，從而調(diào)整布置任務(wù)的策略，一般的做法就是要求學(xué)生將任務(wù)文件重命名為“作業(yè)文件名+班別+姓名”并提交。

另外除了課堂上，教師還會布置一些課外的電子文檔類的作業(yè)，都是需要學(xué)生在一定的時間內(nèi)通過課堂電腦或者網(wǎng)絡(luò)交作業(yè)的，教師還是要按照班別花名冊來逐一檢查，這樣人工檢查的缺點有：（1）速度較慢影響課堂效率與氣氛。（2）教師需要很耐心地核對學(xué)生名單表進行記錄，增加額外的工作量。（3）由于查收作業(yè)速度慢，不能很好地從作業(yè)完成效果來調(diào)整教學(xué)策略。（4）學(xué)生交回的作業(yè)完全是電子文檔，是無紙化的，既環(huán)保又快捷，不能讓學(xué)生重新再把電子文檔類作業(yè)手抄到作業(yè)本上或者再用打印機打印出來，這樣耗時耗財，有違計算機時代的自動化精神了。

所以，有必要設(shè)計一個“電子檔作業(yè)查收軟件”，來查看學(xué)生有沒有交電子文檔類作業(yè)，并生成平時成績的報表，這個軟件是通用的，只要作業(yè)是電子檔類文件就行，可以滿足不同專業(yè)的教師使用。軟件的特色是可以通過判斷“上傳作業(yè)文件夾”里面的作業(yè)文件來檢測學(xué)生作業(yè)是否交了。通過《電子檔作業(yè)查收軟件》生成學(xué)生作業(yè)報表，教師也可以通過報表自動衡量學(xué)生的平時成績。

一、設(shè)計的主要探究內(nèi)容及目標(biāo)

電子檔作業(yè)查收軟件設(shè)計主要使用EXCEL2010+VBA，鑒于日常教學(xué)中我們都離不開OFFICE，譬如學(xué)生的名單冊就是一個EXCEL工作簿，基于目的數(shù)據(jù)的方便性，我們選用VBA了來對Excel進行二次開發(fā)，VBA可以有效地自定義和擴展Excel的功能。

VBA（Visual Basic for Application）是Microsoft Office系列軟件的內(nèi)置編程語言，其語法結(jié)構(gòu)與Visual Basic編程語言互相兼容，采用的是面向?qū)ο蟮木幊虣C制和可視化的編程環(huán)境。VBA中的應(yīng)用程序是由許多對象組成的，如表、窗體、查詢等。對象是幫助構(gòu)造應(yīng)用程序的元素，以特定的方式組織這些對象，就形成了應(yīng)用程序。

二、本程序設(shè)計要探究或解決的問題和采用的手段

在編寫《電子檔作業(yè)查收軟件》時，瀏覽并選擇文件夾

Dim Fd As Object，F(xiàn)SO As Object， file As Object，F(xiàn)ldPath As String

Set Fd = Application.FileDialog（msoFileDialogFolderPicker）

Fd.InitialFileName=“D：＼電子檔作業(yè)查收工具”

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&“筆記錄?！?/p>

Range（“B2”）.Select

End Sub

通過使用“電子檔作業(yè)查收軟件”，導(dǎo)入任教的班級名單和作業(yè)清單后，教師不用花大量時間就知道學(xué)生完成作業(yè)的情況，立即可以知道哪個同學(xué)缺失哪個作業(yè)沒有完成及時督促，對抄襲作業(yè)的加以勸導(dǎo)，又可以更快地調(diào)整教學(xué)策略和作業(yè)量。

通過學(xué)生報表程序生成學(xué)生報表，教師可以通過報表衡量學(xué)生的平時成績。結(jié)合需求，運用到《計算機應(yīng)用基礎(chǔ)》的實踐教學(xué)當(dāng)中。

參考文獻：

[1]羅剛君.Excel 2010 VBA編程與實踐[M].電子工業(yè)出版社，2010.

[2]黃朝陽，李懿.Excel 2010 VBA入門與提高[M].電子工業(yè)出版社，2010.