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

----例如，每個(gè)MicrosoftOffice應(yīng)用程序提供一個(gè)頂層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為一個(gè)EXCEL報(bào)表文件
SetxlSheet=xlBook.Worksheets(1)
‘設(shè)定工作表

----二.用EXCEL97設(shè)計(jì)報(bào)表的模版文件

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

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

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

Cell(4,2)職工姓名Cell(6,6)畢業(yè)學(xué)校
Cell(4,4)職工性別Cell(6,7)所學(xué)專業(yè)
Cell(4,6)職工民族Cell(6,9)工作時(shí)間
（表一）

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

DimstrSource,strDestinationAsString
strSource=App.Path&"/Excels/RegisterFee.xls"
‘RegisterFee.xls就是一個(gè)模版文件
strDestination=App.Path&"/Excels/Temp.xls"
FileCopystrSource,strDestination
‘將模版文件拷貝到一個(gè)臨時(shí)文件

----三.生成工作表內(nèi)容

----有了上述兩步工作的鋪墊，我們下面接著就只要根據(jù)（表一）的格式給各單元格賦值了。如：

datPRimaryRS.Recordset.MoveFirst
‘datPrimaryRS為Data控件
IfIsNull(datPrimaryRS.Recordset!姓名)=FalseThen
xlSheet.Cells(4,2)=datPrimaryRS.Recordset!姓名
EndIf
IfIsNull(datPrimaryRS.Recordset!性別)=FalseThen
xlSheet.Cells(4,4)=datPrimaryRS.Recordset!性別
EndIf
IfIsNull(datPrimaryRS.Recordset!民族)=FalseThen
xlSheet.Cells(4,6)=datPrimaryRS.Recordset!民族
EndIf
………………

----四.打印報(bào)表

----生成了工作表后，就可以對EXCEL發(fā)出打印指令了。

----注意在執(zhí)行打印操作之前應(yīng)該對EXCEL臨時(shí)文件執(zhí)行一次保存操作，以免在退出應(yīng)用程序后EXCEL還提示用戶是否保存已修改的文件，讓用戶覺得莫名其妙。如下語句：

xlBook.Save‘保存文件
xlSheet.PrintOut‘執(zhí)行打印
xlApp.Quit‘退出EXCEL

----至此讀者應(yīng)該看到，我們設(shè)計(jì)的報(bào)表打印是通過EXCEL程序來后臺實(shí)現(xiàn)的。用戶根本看不到具體過程，他們只看到一張張漂亮的報(bào)表輕易地被打印出來了。