一種快速將本地教學(xué)數(shù)據(jù)上傳到網(wǎng)絡(luò)教學(xué)系統(tǒng)的方法

摘 要： 高校教師錄入教學(xué)數(shù)據(jù)通常有本地錄入和網(wǎng)絡(luò)錄入兩種方法。本文提出了一種基于VBA技術(shù)的快速將本地教學(xué)數(shù)據(jù)上傳到網(wǎng)絡(luò)教學(xué)系統(tǒng)中的方法，該方法將本地錄入和網(wǎng)絡(luò)錄入兩種方法的優(yōu)勢(shì)結(jié)合起來(lái)，極大地提高了教師錄入保存教學(xué)數(shù)據(jù)的工作效率。實(shí)際教學(xué)應(yīng)用表明這種方法具有很高的靈活性和可擴(kuò)展性。

關(guān)鍵詞： 網(wǎng)絡(luò)教學(xué)系統(tǒng)； VBA； 教學(xué)成績(jī)； 快速數(shù)據(jù)上傳

中圖分類號(hào)： TP302.11 文獻(xiàn)標(biāo)識(shí)碼： A 文章編號(hào)：2095-2163（2013）03-0093-03

A Kind of Method on Fast Uploading Local Data to Network Teaching System

LIU Song

（College of Computer Science and Technology， Jilin Normal University， Siping 136000， China）

Abstract： There are two kinds of methods usually that college teachers input teaching data to computer， which are local input and network input. This paper presents a fast method based on VBA technology that the local teaching data can be uploaded into the network teaching system. The advantages of the two methods together improve greatly the teachers' working efficiency of saving teaching data. Practical application shows that this method has high flexibility and scalability.

Key words： Network Teaching System； Visual Basic for Application； Teaching Data； Fast Data Upload

0 引 言

目前，高校教學(xué)數(shù)據(jù)錄入通常有兩種方法，一種是本地錄入方法，另一種是網(wǎng)絡(luò)在線錄入方法。本地錄入教學(xué)數(shù)據(jù)通常采用微軟辦公系列軟件中的Excel或金山公司的WPS等進(jìn)行錄入，并最終形成相應(yīng)的電子版教學(xué)數(shù)據(jù)文件。這種方法通常是利用Excel或WPS等生成相應(yīng)的模板，例如，高校師資狀況統(tǒng)計(jì)模板、高校教學(xué)工作量統(tǒng)計(jì)模板、學(xué)生成績(jī)統(tǒng)計(jì)模板等。然后利用相應(yīng)模板錄入并保存和分析數(shù)據(jù)。這種教學(xué)數(shù)據(jù)錄入方法的優(yōu)點(diǎn)是：

（1）數(shù)據(jù)錄入方便。只要使用安裝了Excel等軟件的計(jì)算機(jī)即可錄入，無(wú)需網(wǎng)絡(luò)環(huán)境；

（2）數(shù)據(jù)錄入效率高。利用Excel等錄入數(shù)據(jù)時(shí)，可以使用其強(qiáng)大的函數(shù)和公式功能，提高數(shù)據(jù)計(jì)算和統(tǒng)計(jì)的效率；

（3）數(shù)據(jù)錄入精確度高。利用Excel等進(jìn)行數(shù)據(jù)錄入時(shí)，使用其自帶的計(jì)算函數(shù)和統(tǒng)計(jì)函數(shù)功能可以確保數(shù)據(jù)錄入的精確度，減少統(tǒng)計(jì)誤差；

（4）數(shù)據(jù)攜帶方便，利用U盤或手機(jī)存儲(chǔ)等即可方便攜帶。

任何技術(shù)的使用都具有兩面性，使用Excel等軟件在本地錄入教學(xué)數(shù)據(jù)也有其自身存在的缺點(diǎn)。首先，這種方法安全性比較低，重要的教學(xué)數(shù)據(jù)文件容易丟失，數(shù)據(jù)容易被篡改。即使給文件添加密碼，也很難避免密碼被破譯，造成重要數(shù)據(jù)的泄露。其次，由于是本地備份單個(gè)文件，如果相關(guān)存儲(chǔ)設(shè)備丟失或出現(xiàn)故障，其中的教學(xué)數(shù)據(jù)也會(huì)隨之丟失，因此這種方法不適合數(shù)據(jù)的永久性存儲(chǔ)。

隨著信息化技術(shù)高度發(fā)展和普及，網(wǎng)絡(luò)信息技術(shù)已經(jīng)滲透到日常高校各項(xiàng)教學(xué)管理業(yè)務(wù)中[1]。很多高校都已使用現(xiàn)代化網(wǎng)絡(luò)信息技術(shù)管理手段，大部分教學(xué)數(shù)據(jù)都已經(jīng)使用無(wú)紙化管理。因此，教師每學(xué)期都需要將學(xué)生的平時(shí)成績(jī)、實(shí)驗(yàn)成績(jī)、期中成績(jī)和期末成績(jī)等大量教學(xué)數(shù)據(jù)批量地錄入到網(wǎng)絡(luò)教學(xué)管理系統(tǒng)中。教學(xué)管理人員同樣需要將師資狀況、教師教學(xué)工作量等信息錄入到網(wǎng)絡(luò)教學(xué)管理系統(tǒng)中進(jìn)行保存和統(tǒng)計(jì)分析。

網(wǎng)絡(luò)在線錄入教學(xué)數(shù)據(jù)方法的優(yōu)點(diǎn)是：

（1）數(shù)據(jù)共享性高。只要教師在網(wǎng)絡(luò)客戶端將教學(xué)數(shù)據(jù)錄入到網(wǎng)絡(luò)教學(xué)系統(tǒng)中，學(xué)生或其他教學(xué)相關(guān)人員就可以通過(guò)網(wǎng)絡(luò)查看到這些數(shù)據(jù)；

（2）數(shù)據(jù)存儲(chǔ)時(shí)間長(zhǎng)。由于在線錄入的教學(xué)數(shù)據(jù)被上傳并保存在學(xué)校的網(wǎng)絡(luò)服務(wù)器端中，而網(wǎng)絡(luò)服務(wù)器的數(shù)據(jù)通常都是有安全備份的，因此數(shù)據(jù)可以長(zhǎng)時(shí)間保存；

（3）數(shù)據(jù)安全性高。教學(xué)網(wǎng)絡(luò)服務(wù)器通常都有防火墻和數(shù)據(jù)安全認(rèn)證，因此，網(wǎng)絡(luò)服務(wù)器端的數(shù)據(jù)安全性較高，不容易被篡改。

網(wǎng)絡(luò)在線錄入教學(xué)數(shù)據(jù)方法的局限性在于，需要具備Internet網(wǎng)絡(luò)環(huán)境。當(dāng)錄入的數(shù)據(jù)量較大時(shí)，會(huì)受到網(wǎng)頁(yè)Session會(huì)話超時(shí)的限制，一旦會(huì)話超時(shí)就會(huì)導(dǎo)致教學(xué)數(shù)據(jù)最終無(wú)法上傳，只能重新打開相關(guān)頁(yè)面重新錄入。

1 本地教學(xué)數(shù)據(jù)錄入與數(shù)據(jù)上傳方法的改進(jìn)

為了將本地錄入教學(xué)數(shù)據(jù)和網(wǎng)絡(luò)在線錄入教學(xué)數(shù)據(jù)兩種方法的優(yōu)勢(shì)結(jié)合起來(lái)，更加方便地為教師錄入教學(xué)數(shù)據(jù)服務(wù)，本文提出了一種快速地將本地教學(xué)數(shù)據(jù)上傳到網(wǎng)絡(luò)教學(xué)系統(tǒng)的方法。該方法既能提高錄入教學(xué)數(shù)據(jù)的工作效率，又能很好的適應(yīng)現(xiàn)代網(wǎng)絡(luò)教學(xué)辦公的新形勢(shì)，同時(shí)具有數(shù)據(jù)錄入準(zhǔn)確率高、數(shù)據(jù)存儲(chǔ)時(shí)間長(zhǎng)等優(yōu)點(diǎn)。在實(shí)際教學(xué)應(yīng)用過(guò)程中，具有很高的數(shù)據(jù)錄入靈活性和功能可擴(kuò)展性。第3期 劉松：一種快速將本地教學(xué)數(shù)據(jù)上傳到網(wǎng)絡(luò)教學(xué)系統(tǒng)的方法 智能計(jì)算機(jī)與應(yīng)用 第3卷

首先，可以利用無(wú)須網(wǎng)絡(luò)環(huán)境的Excel等軟件快速錄入教學(xué)數(shù)據(jù)，這樣可以方便地利用軟件中的公式功能精確快速計(jì)算各種教學(xué)數(shù)據(jù)、利用軟件中的統(tǒng)計(jì)函數(shù)快速進(jìn)行統(tǒng)計(jì)分析、利用軟件的排序功能將教學(xué)數(shù)據(jù)快速整理分類。然后，利用本文提供的快速上傳本地教學(xué)數(shù)據(jù)到網(wǎng)絡(luò)教學(xué)系統(tǒng)的方法，將通過(guò)上述方法整理好的教學(xué)數(shù)據(jù)快速準(zhǔn)確地上傳到網(wǎng)絡(luò)教學(xué)系統(tǒng)中。

本文采用微軟VBA編程技術(shù)實(shí)現(xiàn)了將Excel文件中存儲(chǔ)的大量教學(xué)數(shù)據(jù)自動(dòng)快速上傳[2]至網(wǎng)絡(luò)教學(xué)管理系統(tǒng)。VBA是Office辦公套裝軟件的共享組件，在Office的各個(gè)應(yīng)用程序如Word、Excel、Access和PowerPoint中的使用方式都是相同的[3]。

采用VBA技術(shù)進(jìn)行本地上傳教學(xué)數(shù)據(jù)功能定制有很多優(yōu)點(diǎn)：

（1）利用VBA宏錄制可以部分實(shí)現(xiàn)程序設(shè)計(jì)的自動(dòng)化，大大提高軟件的開發(fā)效率[4-5]；

（2）軟件發(fā)布方便。VBA屬于綠色軟件，只要發(fā)行含有VBA代碼的文檔或模板即可，不必考慮軟件運(yùn)行環(huán)境，無(wú)須另外安裝和卸載，不影響計(jì)算機(jī)系統(tǒng)配置；

（3）Office辦公軟件界面符合高校教師操作軟件的日常使用習(xí)慣，便于上傳本地?cái)?shù)據(jù)到網(wǎng)絡(luò)教學(xué)系統(tǒng)功能的推廣和使用；

（4）使用VBA編程實(shí)現(xiàn)上傳本地教學(xué)數(shù)據(jù)方法簡(jiǎn)單，即使非計(jì)算機(jī)專業(yè)的高校教師也可以很快的編寫和修改自己的軟件。

2 教學(xué)數(shù)據(jù)上傳方法的實(shí)現(xiàn)

首先，利用VBA技術(shù)中的Active對(duì)象模型讀取Excel中的教學(xué)數(shù)據(jù)。程序開發(fā)人員通過(guò)使用Office內(nèi)嵌的VBA語(yǔ)言，操作ActiveX對(duì)象模型可以實(shí)現(xiàn)讀取本地Excel文件中的具體單元格中的教學(xué)數(shù)據(jù)。從而實(shí)現(xiàn)了利用ActiveX對(duì)象模型逐個(gè)控制提取本地Excel工作簿單元格數(shù)據(jù)的操作過(guò)程。用到的ActiveX對(duì)象主要有以下四個(gè)：Application應(yīng)用程序?qū)ο蟆orkbooks工作簿對(duì)象、Worksheets工作表對(duì)象和Range工作表區(qū)域?qū)ο蟆?/p>

然后利用VBA技術(shù)快速定位網(wǎng)絡(luò)教學(xué)系統(tǒng)特定數(shù)據(jù)錄入Web界面，并將數(shù)據(jù)快速準(zhǔn)確上傳至該頁(yè)面。

VBA利用ActiveX對(duì)象模型成功地獲取Excel中的本地教學(xué)數(shù)據(jù)之后，使用VBA將已經(jīng)讀取的Excel數(shù)據(jù)填入到對(duì)應(yīng)網(wǎng)絡(luò)教學(xué)系統(tǒng)的Web頁(yè)面相關(guān)Web控件中。本文首先采用Shell應(yīng)用程序?qū)ο髞?lái)定位具體的需要進(jìn)行添加成績(jī)的網(wǎng)絡(luò)教學(xué)系統(tǒng)頁(yè)面。然后再利用HTML網(wǎng)頁(yè)文檔對(duì)象模型，對(duì)具體需要添加成績(jī)的Web頁(yè)面中的錄入數(shù)據(jù)控件進(jìn)行引用和填充數(shù)據(jù)。HTML網(wǎng)頁(yè)文檔對(duì)象模型如圖1所示。

主要功能實(shí)現(xiàn)代碼如下：

Set shell1 = CreateObject（\"shell.application\"） ‘shell對(duì)象定位目標(biāo)網(wǎng)絡(luò)教學(xué)頁(yè)面

Set win1= oshell.Windows（）

flag= 0

j=0

For i = 0 To win1.Count - 1

name 1= win1.Item（i）.FullName

If InStr（name1， \"iexplore.exe\"） = 0 Then GoTo PASS

If win1.Item（i）.document.Title <> “教務(wù)處MIS系統(tǒng)”

Then GoTo PASS

flag = True

j=i

Next ’

循環(huán)向Web窗口的具體成績(jī)輸入控件添加所選定的本地Excel教學(xué)成績(jī)數(shù)據(jù)

mynumber1 = 0

For Each k In Selection

mynumber1 = mynumber1+ 1

ID = \"bs\" mynumber1

Win.1Item（j）.document.getElementById（ID）.Value = Str（Round（k.Value， 0））

If Not found Then MsgBox \"請(qǐng)確認(rèn)已經(jīng)成功打開成績(jī)錄入Web頁(yè)面！\"

If found Then MsgBox \"成功導(dǎo)入\" mynumber1 “條數(shù)據(jù)”

圖1 HTML文檔對(duì)象模型

Fig.1 HTML Document Object Model

Excel本地教學(xué)成績(jī)文件如圖2，上傳后的網(wǎng)絡(luò)教學(xué)成績(jī)頁(yè)面如圖3所示。

圖2 Excel本地教學(xué)成績(jī)文件

Fig.2 Local Excel File of Student Score

3 結(jié)束語(yǔ)

本文討論了高校教師錄入教學(xué)數(shù)據(jù)常用的本地錄入和網(wǎng)絡(luò)錄入兩種方法。本地錄入方法效率高，攜帶方便。網(wǎng)絡(luò)