探究EXCEL+VBA在職業(yè)教育中的應(yīng)用

余偉紅 葉均隆

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

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

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

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

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

所以，有必要設(shè)計(jì)一個(gè)“電子檔作業(yè)查收軟件”，來(lái)查看學(xué)生有沒(méi)有交電子文檔類(lèi)作業(yè)，并生成平時(shí)成績(jī)的報(bào)表，這個(gè)軟件是通用的，只要作業(yè)是電子檔類(lèi)文件就行，可以滿(mǎn)足不同專(zhuān)業(yè)的教師使用。軟件的特色是可以通過(guò)判斷“上傳作業(yè)文件夾”里面的作業(yè)文件來(lái)檢測(cè)學(xué)生作業(yè)是否交了。通過(guò)《電子檔作業(yè)查收軟件》生成學(xué)生作業(yè)報(bào)表，教師也可以通過(guò)報(bào)表自動(dòng)衡量學(xué)生的平時(shí)成績(jī)。

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

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

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

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

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

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&“筆記錄。”

Range（“B2”）.Select

End Sub

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

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

參考文獻(xiàn)：

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

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