利用VISUAL BASIC設(shè)計打印復(fù)雜報表

一.用VB創(chuàng)建外部EXCEL對象

大多數(shù)大型ActiveX-enabled應(yīng)用程序和其它ActiveX部件，在它們的對象層次中都提供了一個頂層外部可創(chuàng)建對象。該對象提供了對該層次中其它對象的訪問，并且還提供對整個應(yīng)用程序起作用的方法和屬性。

例如，每個MicrosoftOffice應(yīng)用程序提供一個頂層Application對象。下面語句顯示了對Microsoftoffice/9.shtml'target='_blank'class='article'>Excel的Application對象的引用：

DimxlAppAsExcel.Application

SetxlApp=NewExcel.Application

然后，可以用這些變量來訪問在EXCEL應(yīng)用程序中的從屬對象、以及這些對象的屬性和方法。例如：

SetxlApp=CreateObject("Excel.Application")

‘激活EXCEL應(yīng)用程序

xlApp.Visible=False‘隱藏EXCEL應(yīng)用程序窗口

SetxlBook=xlApp.Workbooks.Open(strDestination)

‘打開工作簿，strDestination為一個EXCEL報表文件

SetxlSheet=xlBook.Worksheets(1)

‘設(shè)定工作表

二.用EXCEL97設(shè)計報表的模版文件

EXCEL97是一個非常優(yōu)秀的創(chuàng)建報表的工具。它提供的單元格任意合并、拆分和繪圖功能基本上能夠滿足設(shè)計所有復(fù)雜報表的需求。它對任意一個單元格的格式隨意控制，更為隨心所欲地設(shè)計報表提供了強大的支持。

根據(jù)用戶提供的報表，我們可以很快在EXCEL里生成模版文件。所謂生成模版文件只是為了滿足用戶多方面的需求而設(shè)計的。也是為了適合報表以后的更改而做的一點預(yù)備工作。例如用戶需要打印幾百張職工履歷表，但其格式都是一致的，并且隨著時間和實際情況的變化，表格格式有可能需要改變，我們設(shè)計一個模版文件顯然可以“以不變應(yīng)萬變”了。

生成工作表時我們應(yīng)當記錄下要填充內(nèi)容的單元格編號和該單元格內(nèi)要填充的數(shù)據(jù)字段。這樣形成一個表格，在寫程序時一目了然。如：

Cell(4,2)職工姓名Cell(6,6)畢業(yè)學(xué)校

Cell(4,4)職工性別Cell(6,7)所學(xué)專業(yè)

Cell(4,6)職工民族Cell(6,9)工作時間

（表一）

在程序里我們當然不要對模版文件進行操作了，我們只需要對模版文件的一個拷貝進行操作就行（這也是我們設(shè)計模版文件的一個目的和好處）。如下面的例子：

DimstrSource,strDestinationAsString

strSource=App.Path&"ExcelsRegisterFee.xls"

‘RegisterFee.xls就是一個模版文件

strDestination=App.Path&"ExcelsTemp.xls"

利用VISUAL BASIC設(shè)計打印復(fù)雜報表.doc下載

久久建筑網(wǎng)i5h4u.cn提供大量：建筑圖紙、施工方案、工程書籍、建筑論文、合同表格、標準規(guī)范、CAD圖紙等內(nèi)容。