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

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

OnErrorResumeNext'延遲錯誤捕獲。

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

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

SetMyXL=GetObject(,"Excel.Application")

IfErr.Number<>0ThenExcelWasNotRunning=True

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

'檢測MicrosoftExcel。如果MicrosoftExcel在運行，則將其加入運行對象表。

DetectExcel'該過程檢測并登記正在運行的Excel

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

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

MyXL.Application.Visible=True

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

'如果在啟動時，MicrosoftExcel的這份副本不在運行中，

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

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

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

IfExcelWasNotRunning=TrueThen

MyXL.Application.Quit

EndIf

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

EndSub'該過程檢測并登記正在運行的Excel。

SubDetectExcel()

ConstWM_USER=1024

DimhwndAsLong

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

hwnd=FindWindow("XLMAIN",0)

Ifhwnd=0Then'0表示沒有Excel在運行。

ExitSub

Else

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

SendMessagehwnd,WM_USER+18,0,0

EndIf

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

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

setxlsheet=xlapp.application.workshets.add

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

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

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

Dimi,jAsInteger

CallGetExcel

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

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

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

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

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

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

Nextj

Nexti

Withxlsheet'設(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)