①報(bào)表的概念

　　這張報(bào)表包含了報(bào)表的基本元素，即頁(yè)眉、頁(yè)腳、橫表頭、豎表頭、表頭交叉區(qū)、單元格。

　　頁(yè) 眉：位于報(bào)表的最上部分。作為報(bào)表的描述性信息，概括性的說(shuō)明報(bào)表的名稱、表號(hào)、批準(zhǔn)機(jī)關(guān)、批準(zhǔn)文號(hào)等。

　　頁(yè) 腳：位于報(bào)表的最下部分，用于說(shuō)明報(bào)表的其它信息，例如：?jiǎn)挝回?fù)責(zé)人、部門(mén)負(fù)責(zé)人、制表人等信息。

　　橫表頭：也叫賓欄，位于報(bào)表的橫方向的表頭，它是統(tǒng)計(jì)的約束條件，也可能是描述信息。對(duì)于統(tǒng)計(jì)表來(lái)說(shuō)橫表頭是可以分層的，并且上層的條件對(duì)它下面各層都起作用。

　　豎表頭：也叫甲欄，報(bào)表豎方向的表頭，它在統(tǒng)計(jì)表中與橫表頭起相同的作用，也是統(tǒng)計(jì)的約束性條件，也可能是描述性信息。在分層結(jié)構(gòu)中，上層的條件對(duì)它下面各層都起作用。

　　表頭交叉區(qū)：在報(bào)表的左上角，可以分欄說(shuō)明報(bào)表的橫表頭和豎表頭。

　　單元格：報(bào)表的主體部分。在統(tǒng)計(jì)報(bào)表中是其相對(duì)應(yīng)橫表頭和豎表頭的兩個(gè)條件的統(tǒng)計(jì)情況，在查詢表中是橫表頭的查詢信息，也可能是簡(jiǎn)單的計(jì)算統(tǒng)計(jì)結(jié)果。單元格內(nèi)容在新建報(bào)表后是空的，要通過(guò)統(tǒng)計(jì)查詢這一步來(lái)填充，在填充后也可以修改。

　　②Visual Basic中制作報(bào)表

　　Visual Basic中制作報(bào)表，通常是用數(shù)據(jù)環(huán)境設(shè)計(jì)器(Data Environment Designer)與數(shù)據(jù)報(bào)表設(shè)計(jì)器(Data Report Designer)，或者使用第三方產(chǎn)品(如非常有名的Crystal Report)來(lái)完成并通過(guò)ActiveX控件輸出。但對(duì)于大多數(shù)程序員來(lái)說(shuō)，設(shè)計(jì)報(bào)表往往他們費(fèi)盡心思。然而，我們可以有更簡(jiǎn)單的方法來(lái)滿足他們的要求。由于Visual Basic的可擴(kuò)展性,使用和融入Office2000的特性，包括Excel是相當(dāng)方便的。Excel可以用作OLE服務(wù)器，向外部輸出某些屬性，方法和事件.Visual Basic可以利用這些功能，實(shí)現(xiàn)與Excel的集成。下面，我們來(lái)具體闡述一個(gè)用VB來(lái)創(chuàng)建Excel報(bào)表的例子。

　　③Excel對(duì)象

　　微軟的Excel對(duì)象模型包括了128個(gè)不同的對(duì)象，從矩形，文本框等簡(jiǎn)單的對(duì)象到透視表，圖表等復(fù)雜的對(duì)象.下面我們簡(jiǎn)單介紹一下其中最重要，也是用得最多的四個(gè)對(duì)象.

　　A、Application對(duì)象

　　Application對(duì)象處于Excel對(duì)象層次結(jié)構(gòu)的頂層，表示Excel自身的運(yùn)行環(huán)境.

　　B、Workbook對(duì)象

　　Workbook對(duì)象直接地處于Application對(duì)象的下層，表示一個(gè)Excel工作薄文件.

　　C、Worksheet對(duì)象

　　Worksheet對(duì)象包含于Workbook對(duì)象，表示一個(gè)Excel工作表.

　　D、Range對(duì)象

　　Range對(duì)象包含于Worksheet對(duì)象，表示Excel工作表中的一個(gè)或多個(gè)單元格.

　　④Access2000的報(bào)表解決方案

　　A、在Excel中做一個(gè)模板

　　在用Visual Basic生成Excel報(bào)表之前，應(yīng)先按照用戶的要求在Excel中做好一個(gè)模板，包括頁(yè)眉，頁(yè)腳，表頭等等。

　　B、在VB中創(chuàng)建Excel對(duì)象，打開(kāi)Excel文件

　　和其它的第三方控件一樣，使用之前必須引用或作為部件導(dǎo)入。要在VB中創(chuàng)建和作用Excel對(duì)象，就必須先引用Microsoft Excel 9.0 object library。然后我們就可以在VB的編程操作Excel對(duì)象了。

　　關(guān)鍵代碼入下：

　　Dim excelFile As String

　　excelFile = App.Path & "myReport.xls" Excel文件名

　　定義Excel的Application對(duì)象,Application對(duì)象相當(dāng)于Excel程序

　　Dim xlApp As Excel.Application

　　定義Excel的Workbook對(duì)象，Workbook對(duì)象相當(dāng)于Excel文件

　　Dim xlbook As Excel.Workbook

　　定義Excel的Worksheet對(duì)象，Worksheet對(duì)象相當(dāng)于Excel文件中的一個(gè)表

　　Dim xlsheet As Excel.Worksheet

　　給Application分配內(nèi)存空間，將其實(shí)例化

　　Set xlApp = New Excel.Application

　　創(chuàng)建Application對(duì)象

　　Set xlApp = CreateObject("Excel.Application")

　　隱藏被VB打開(kāi)的Excel程序

　　xlApp.Visible = False

　　打開(kāi)工作簿，excelFile為一個(gè)EXCEL報(bào)表文件

　　Set xlbook = xlApp.Workbooks.Open(excelFile)

　　打開(kāi)Excel工作表

　　Set xlsheet = xlbook.Worksheets(1)

　　C、控制Excel工作表，對(duì)其進(jìn)行編輯

　　如果是通過(guò)ADO打開(kāi)了一個(gè)記錄集，想把記錄集中的數(shù)據(jù)顯示在單元格中，關(guān)鍵代碼為：

　　Do Until rs.EOF

　　For i = 0 To rs.Fields.Count - 1

　　xlsheet.Cells(j + 1, i + 1) = rs.Fields(i)

　　Next

　　rs.MoveNext

　　j = j + 1

　　Loop