Visual-Basic調(diào)用電子表格之技巧

]VisualBasic調(diào)用Excel之技巧VisualBasic(以下簡稱VB)是一套可視化、面向?qū)ο?、事件?qū)動方式的結(jié)構(gòu)化程序設(shè)計(jì)語言，已經(jīng)成為許多程序設(shè)計(jì)者甚至專業(yè)程序員用來開發(fā)WINDOWS應(yīng)用程序的首選開發(fā)工具。但用過VB的程序設(shè)計(jì)人員都知道，要想用VB輸出復(fù)雜的表格來，是十分困難的。能不能用VB調(diào)用EXCEL呢？Active技術(shù)標(biāo)準(zhǔn)為我們解決了這個(gè)問題。最近筆者為單位開發(fā)“土工試驗(yàn)數(shù)據(jù)整理”的某個(gè)模塊時(shí)，涉及到復(fù)雜數(shù)據(jù)表格的輸出問題，經(jīng)過筆者的摸索，用VB調(diào)用EXCEL，取得了很好的效果。本文從編程實(shí)踐的角度對使用VB控制EXCEL的技術(shù)作簡要說明。1EXCEL的對象模型如果一個(gè)應(yīng)用程序支持自動化技術(shù)，那么其它的應(yīng)用就可以通過其暴露的對象，對它進(jìn)行控制，控制程序稱為客戶機(jī)，而被控制的一方就稱為服務(wù)器，被控制的對象就是Active對象。VB正是通過EXCEL顯露的各級對象來控制EXCEL工作的。每個(gè)對象都有各自的方法和屬性，通過方法可以實(shí)現(xiàn)對對象的控制，而屬性則可以改變對象的各種狀態(tài)。理解EXCEL的對象模型是對其編程的基礎(chǔ)。EXCEL是以層次結(jié)構(gòu)組織對象的，其對象模型中含有許多不同的對象元素，這些對象元素就是VB可以操縱的。在EXCEL對象的層次結(jié)構(gòu)中，最頂層是Application對象，是Excel本身。從該對象開始往下依次是：.workbooks對象集，是Application對象的下層，其指的是Excel的工作簿文件。.worksheets對象集，是Workbooks對象集的下層，它表示的是Excel的一個(gè)工作表。.Cells和Range對象，它們是worksheets對象的下層，它則指向Excel工作表中的一個(gè)或多個(gè)單元格。以上介紹的四個(gè)對象是Excel中最重要也是用得最多的對象，而且從上面的介紹中也不難看出，要控制Excel中的某個(gè)具體對象，如某個(gè)工作簿中某一表格中的單元格，就必須從Excel層次結(jié)構(gòu)對象的最上層即Application對象開始遍歷。2Excel對象的使用2.1application對象的使用如前所述，Application對象位于Excel層次結(jié)構(gòu)對象的最上層，它代表的是Excel自身，我們的應(yīng)用程序理應(yīng)從Application對象的建立開始。VB控制Excel的啟動方式有幾種，在這里我們使用了API調(diào)用，可以確保目前系統(tǒng)中只有一個(gè)Excel副本在運(yùn)行，程序代碼和說明如下：OptionExplicit

PublicxlappAsObject‘Excel對象

PublicxlbookAsObject‘工作簿

PublicxlsheetAsObject‘工作表

DeclareFunctionFindWindowLib"user32"Alias_

"FindWindowA"(ByVallpClassNameAsString,_

ByVallpWindowNameAsLong)AsLong

DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"_

(ByValhwndAslong,ByValwMsgAsLong,ByValwParamAsLong,lParam_

AsAny)As_Long以上是公有變量和API函數(shù)應(yīng)在模塊中聲明。SubGetExcel()

DimMyXLAsObject'用于存放MicrosoftExcel引用的變量。

DimExcelWasNotRunningAsBoolean'用于最后釋放的標(biāo)記。

OnErrorResumeNext'延遲錯(cuò)誤捕獲。

'不帶第一個(gè)參數(shù)調(diào)用Getobject函數(shù)將返回對該應(yīng)用程序的實(shí)例的引用。

'如果該應(yīng)用程序不在運(yùn)行，則會產(chǎn)生錯(cuò)誤。

SetMyXL=GetObject(,"Excel.Application")

IfErr.Number<>0ThenExcelWasNotRunning=True

Err.Clear'如果發(fā)生錯(cuò)誤則要清除Err對象。

'檢測MicrosoftExcel。如果MicrosoftExcel在運(yùn)行，則將其加入運(yùn)行對象表。

DetectExcel'該過程檢測并登記正在運(yùn)行的Excel

'設(shè)置其Application屬性，顯示MicrosoftExcel。

'然后使用MyXL對象引用的Windows集合,顯示包含該文件的實(shí)際窗口。

MyXL.Application.Visible=True

MyXL.Parent.Windows(1).Visible=True

'如果在啟動時(shí)，MicrosoftExcel的這份副本不在運(yùn)行中，

'則使用Application屬性的Quit方法來關(guān)閉它。

'注意，當(dāng)試圖退出MicrosoftExcel時(shí)，

'標(biāo)題欄會閃爍，并顯示一條消息詢問是否保存所加載的文件。

IfExcelWasNotRunning=TrueThen

MyXL.Application.Quit

EndIf

SetMyXL=Nothing'釋放對該應(yīng)用程序和電子數(shù)據(jù)表的引用。

EndSub'該過程檢測并登記正在運(yùn)行的Excel。

SubDetectExcel()

ConstWM_USER=1024

DimhwndAsLong

'如果Excel在運(yùn)行，則該API調(diào)用將返回其句柄。

hwnd=FindWindow("XLMAIN",0)

Ifhwnd=0Then'0表示沒有Excel在運(yùn)行。

ExitSub

Else

'Excel在運(yùn)行，因此可以使用SendMessageAPI'函數(shù)將其放入運(yùn)行對象表。

SendMessagehwnd,WM_USER+18,0,0

EndIf

EndSub有了Application對象，就可以非常方便地訪問Excel應(yīng)用程序中的其它對象，以及這此對象的屬性和方法。2.2workbooks對象的使用dimxlbookasobject‘定義一個(gè)指向工作簿變量

setxlbook=xlapp.application.workbooks.add使用ADD方法新建一個(gè)空白的工作簿。2.3worksheets對象的使用dimxlsheetasobject‘定義一個(gè)指向工作表的變量

setxlsheet=xlapp.application.workshets.add

或者：setxlsheet=xlapp.application.worksheet(1)‘指向當(dāng)前工作簿的第一頁2.4Cells和Range對象的應(yīng)用引用一個(gè)工作表(xlsheet)中的某個(gè)單位格用以下代碼：xlsheet.cells(I,j)=100‘表示在第I行第J列中寫入100這個(gè)數(shù)。引用工作表中的多個(gè)單位格用以下代碼：Withxlsheet'設(shè)置邊框?yàn)槭菍?shí)際上線

.Range(.Cells(7,1),.Cells(28,29)).Borders.LineStyle=xlContinuous

EndWith3應(yīng)用實(shí)例該實(shí)例給出怎樣運(yùn)行Excel創(chuàng)建復(fù)雜表格以及向表格填充數(shù)據(jù)的完整過程。在開始應(yīng)用程序前，我們要做的準(zhǔn)備工作是建立一個(gè)我們所需格式的Excel模板。模板的作用相信大家都不會陌生。我所做的模板如下(模板文件取名為“土工試驗(yàn)成果表”)：模板可以存在指定的文件夾里，也可以在于Excel存放模板的文件夾里。打開VB編程環(huán)境，選擇新建一標(biāo)準(zhǔn)工程。要想在VB中很好地調(diào)用Excel，首先必須打開VB編程環(huán)境“工程”菜單中的“引用”項(xiàng)目，并選取項(xiàng)目中的“MicrosoftExcel8.0objectlibrary項(xiàng)。然后在窗體中加入一命令按鈕，其caption屬性為：Excel輸出。即command1.caption=Excel輸出。以下是代碼，其中模塊中的代碼和上面介紹的application使用代碼是一樣的，不再列出。PrivateSubCommand1_Click()

Dimi,jAsInteger

CallGetExcel

Setxlapp=GetObject("土工試驗(yàn)成果表.XLS")'打開模扳文件

xlapp.Parent.Windows(1).Visible=True'使父窗體可見

Setxlsheet=xlapp.Application.Worksheets(1)'當(dāng)前工作簿的第一頁

Fori=7To28‘這段代碼是將整數(shù)1到29寫入單位格中，實(shí)際應(yīng)用時(shí)可

Forj=1To29 ‘讀一數(shù)據(jù)文件并按要求寫入表格中

xlsheet.Cells(i,j)=j'當(dāng)前工作簿第一頁的第I行第J列

Nextj

Nexti

Withxlsheet'設(shè)置邊框?yàn)槭菍?shí)線

.Range(.Cells(7,1),.Cells(28,29)).Borders.LineStyle=xlContinuous

EndWith

xlsheet.SaveAs"d:\temp\w2.xls"‘按指定文件名存盤

'引用當(dāng)前工作簿的第二頁

Setxlsheet=xlapp.Application.Worksheets(2)