用VB創(chuàng)建Excel報(bào)表.txt

1、用 VB 創(chuàng)建 Excel 報(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)品來完成并通過 ActiveX 控件輸出.但對于大多數(shù)習(xí)慣于 Excel 報(bào)表的用戶而言,用以上兩種方法生成的報(bào)表在格式和功能等方面往往不能滿足他們的要求.由于 Visual Basic 的

2、可擴(kuò)展性,使用和融入 Office97 的特性,包括 Excel 是相當(dāng)方便的．Excel 可以用作 OLE 服務(wù)器，向外部輸出某些屬性，方法和事件．Visual Basic 可以利用這些功能，實(shí)現(xiàn)與 Excel 的集成．下面，我們來具體闡述一個(gè)用 VB 來創(chuàng)建 Excel 報(bào)表的例子．---- 一．Excel 對象---- 微軟的 Excel 對象模型包括了 128 個(gè)不同的對象，從矩形，文本框等簡單的對象到透視表，圖表等復(fù)雜的對象．

3、下面我們簡單介紹一下其中最重要，也是用得最多的四個(gè)對象．---- 1. Application 對象---- Application 對象處于 Excel 對象層次結(jié)構(gòu)的頂層，表示 Excel 自身的運(yùn)行環(huán)境．---- 2. Workbook 對象---- Workbook 對象直接地處于 Application 對象的下層，表示一個(gè) Excel 工作薄文件．---- 3. Worksheet 對象---- Worksheet 對象包含

4、于 Workbook 對象，表示一個(gè) Excel 工作表．---- 4. Range 對象---- Range 對象包含于 Worksheet 對象，表示 Excel 工作表中的一個(gè)或多個(gè)單元格．---- 二．一個(gè)實(shí)例---- １．在 Excel 中做一個(gè)模板---- 在用 Visual Basic 生成 Excel 報(bào)表之前，應(yīng)先按照用戶的要求在 Excel 中做好一個(gè)模板（文件后綴為.xlt）．當(dāng)然，對于那些格式不固定，需要?jiǎng)討B(tài)生成

5、的報(bào)表，也可在程序中控制其格式．本例需要為用戶提供一個(gè)工程師工作的評價(jià)報(bào)告，我們所做的模板 Engineer.xlt---- ２．在 Visual Basic 程序中生成 Excel 報(bào)表---- 我們的例子中使用 ADO 從數(shù)據(jù)庫中獲取工程師工作的有關(guān)信息，然后按照模板 Engineer.xlt 的格式將數(shù)據(jù)寫入 Excel 工作表中．---- （１） 創(chuàng)建一個(gè)新的標(biāo)準(zhǔn) EXE 工程文件．---- （２）在窗體 frmEngineer

6、 中添加兩個(gè)命令按扭，屬性設(shè)置如下：Name cmdOK Caption OK Name cmdCancel Caption Cancel---- （３）定義全局變量，并為 Form_Load 事件編程.---- （４） 對 OK 按鈕被擊事件進(jìn)行響應(yīng).---- （５）對 Cancel 被擊事件進(jìn)行響應(yīng)---- ３．運(yùn)行程序，生成 Excel 報(bào)表---- 三．結(jié)束語---- 通過在 VB 中使用 ADO(ActiveX Data