基于OLE的Word自動生成Excel題庫

陳希高淼

（1.武漢工程大學(xué)郵電與信息工程學(xué)院，湖北 武漢 430073；2.武漢軟件工程職業(yè)學(xué)院，湖北 武漢 430205）

1 引言

在目前的在線考試系統(tǒng)中，如果需要對題庫進(jìn)行更新通常采用的格式為Excel，這種格式可以大批量地將題目導(dǎo)入到考試系統(tǒng)中。但目前在網(wǎng)絡(luò)中找到的或者自己編寫的題目經(jīng)常都是以Word格式存在，這對于大量題目的更新操作帶來很多不便[1]。使用者必須逐題從Word轉(zhuǎn)換成Excel格式，然后再導(dǎo)入到系統(tǒng)。為了能高效簡潔地完成這個過程，在VS2013的開發(fā)平臺上，使用OLE技術(shù)利用Word、Excel對象模型完成此操作。

2 OLE技術(shù)和Word、Excel對象模型

OLE（Object Linking and Embedding，對象連接與嵌入）不僅是桌面應(yīng)用程序集成，而且還定義和實現(xiàn)了一種允許應(yīng)用程序作為軟件“對象”(數(shù)據(jù)集合和操作數(shù)據(jù)的函數(shù))彼此進(jìn)行“連接”的機(jī)制，這種連接機(jī)制和協(xié)議稱為組件對象模型(Component Object Model),簡稱COM。OLE可以用來創(chuàng)建復(fù)合文檔，復(fù)合文檔包含了創(chuàng)建于不同源應(yīng)用程序、有著不同類型的數(shù)據(jù)，因此可以把文字、聲音、圖像、表格、應(yīng)用程序等組合在一起。OLE技術(shù)不僅能使應(yīng)用程序作為服務(wù)器被其它程序調(diào)用，還可以作為客戶端調(diào)用支持OLE技術(shù)的其它程序[2]。為了能使用OLE對WORD、EXCEL進(jìn)行編程，還需要了解WORD、EXCEL對象模型。

2.1 Word對象模型

Word對象模型提供了數(shù)百個可與之交互的對象。這些對象排列在一個與用戶界面密切相關(guān)的層次結(jié)構(gòu)中。層次結(jié)構(gòu)頂部的對象是Application對象。此對象表示W(wǎng)ord的當(dāng)前實例。Application 對象包含 Document、Selection、Bookmark和Range對象[3]。

（1）Application對象

Application對象表示W(wǎng)ord應(yīng)用程序本身。

（2）Document對象

Document對象是Word編程的關(guān)鍵，它表示文檔及其所有內(nèi)容。

（3）Selection對象

Selection對象表示當(dāng)前選中的區(qū)域(高亮)，沒有選中區(qū)域時代表光標(biāo)點。

（4）Range對象

Range對象表示一塊區(qū)域，與Selection類似，一般不可見。Range對象的數(shù)量可以有多個。

（5）Bookmark對象

Bookmark對象表示書簽。

2.2 Excel對象模型

Excel對象模型和Word對象模型類似，下面介紹最重要的對象：

（1）Application對象

Application對象表示Excel應(yīng)用程序本身。

（2）Workbook對象

Workbook對象表示Excel應(yīng)用程序內(nèi)的單個工作簿。

（3）Worksheet對象

Worksheet對象是Worksheets集合的成員。

（4）Range對象

Range對象是Excel應(yīng)用程序中最常用的對象。

通過這4個主要對象完成EXCEL編程[4]。

3 VS2013平臺下自動化操作的實現(xiàn)

本次程序的開發(fā)環(huán)境為VS2013+Word2010+Excel2010，使用的語言為C++。

3.1 建立自動化模式

在VS2013中創(chuàng)建MFC工程，非Unicode。在創(chuàng)建MFC工程時候，高級功能中可以勾選自動化。那么在App類的InitInstance()類中將自動生成OLE初始化程序。如果沒有勾選自動化，需要自己在函數(shù)中添加如下代碼：

3.2 添加對象

要調(diào)用Word、Excel提供的OLE自動化對象，可以通過Word、Excel提供的對象庫實現(xiàn)。對象庫也稱為類型庫，類型庫詳細(xì)說明了一個自動化客戶端為對象需要調(diào)用的方法和屬性的信息[5]。其添加方法如下：

（1）添加類型庫

在項目解決方案上右鍵選擇類向?qū)?，然后在添加類的下拉框中選擇“類型庫中的MFC類”。在彈出的對話框中選擇相應(yīng)內(nèi)容，如圖1所示：

圖1 Word、Excel對象類的添加

添加之后如果編譯遇到錯誤，Not enough actual parameters for macro'DialogBoxW'。解決方法是在CRange類中DialogBox()前面添加下劃線變成_DialogBox()即可。

（2）注銷每個引入的頭文件的import行

例如：

//#import"D∶\ProgramFiles(x86)\MicrosoftOffice\Of -fice14\MSWORD.OLB"no_namespace

(3)設(shè)置默認(rèn)參數(shù)和定義對象

在很多函數(shù)的使用過程中需要用到ColeVariant類型的變量，所以提前在程序開頭定義一些默認(rèn)參數(shù)以便后續(xù)使用。

COleVariantcovZero((short)0),covTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR),covDocxType((short)0);

表1 定義對象

3.3 讀取文檔內(nèi)容

使用open()函數(shù)打開文檔，函數(shù)使用參數(shù)中需要用到默認(rèn)值的可以使用上一步定義的ColeVariant類型的變量。在打開文檔后根據(jù)需要設(shè)置讀取方式，本文采用段讀取。代碼如下：

//打開文檔

docxs=wordApp.get_Documents();

docx=docxs.Open(COleVariant(strPath),covOptional,cov-False,covOptional,covOptional,covOptional,covOptional,covO-ptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional);

3.4 寫入Excel表格

使用之前定義的對象完成Excel表格初始設(shè)置，然后使用SetString()函數(shù)將上一步讀取的內(nèi)容寫入到Excel中。代碼如下：

3.5 保存關(guān)閉和釋放

將內(nèi)容寫入到Excel表格后就要進(jìn)行保存、關(guān)閉和釋放。代碼如下：

workbook.SaveCopyAs(COleVariant(file_name));//保存docx.Close(covFalse,covOptional,covOptional);//關(guān)閉workbook.Close(covTrue,covOptional,covFalse);//關(guān)閉

//釋放資源Word釋放方式相同只列出Excel worksheet.ReleaseDispatch();worksheets.ReleaseDispatch();

4 結(jié)語

Word文檔和Excel電子表格的自動化操作在目前的在線考試系統(tǒng)中有著重要的作用，利用OLE技術(shù)可以很方便地將Word文檔的題目導(dǎo)入到Excel表格中，這使得在線考試系統(tǒng)的題庫擴(kuò)充變得更加容易。隨著信息化技術(shù)的不斷提升，越來越多的課程將會采用在線考試系統(tǒng)來完成做題和考試。本文提供的方法將極大地提高在線考試題庫的數(shù)量。

[1]陳莉，徐芳.基于VBA編程的網(wǎng)絡(luò)教學(xué)試題庫批量試題錄入研究[J].軟件導(dǎo)刊，2015，(4)：30-31，32.

[2]程松濤.基于VC++的Word自動化操作研究[J].電腦編程技巧與維護(hù)，2015，(04)：33-34.

[3]Word 對象模型[OL].https：//msdn.microsoft.com/zh-cn/library/kw65a0we.aspx.

[4]Excel對象模型[OL].https：//msdn.microsoft.com/zh-cn/library/wss56bz7.

[5]陳特放，方斌.VC平臺下基于OLE的Word自動化操作應(yīng)用[J].計算機(jī)應(yīng)用與軟件，2009，26(9)：123-125.