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

1、用VB創(chuàng)建Excel報(bào)表作者：張煒在VisualBasic中制作報(bào)表通常是用數(shù)據(jù)環(huán)境設(shè)計(jì)器(DataEnvironmentDesigner)與數(shù)據(jù)報(bào)表設(shè)計(jì)器(DataReptDesigner)或者使用第三方產(chǎn)品來完成并通過ActiveX控件輸出.但對(duì)于大多數(shù)習(xí)慣于Excel報(bào)表的用戶而言用以上兩種方法生成的報(bào)表在格式和功能等方面往往不能滿足他們的要求.由于VisualBasic的可擴(kuò)展性使用和融入Office97的特性包括Excel是相

2、當(dāng)方便的Excel可以用作OLE服務(wù)器，向外部輸出某些屬性，方法和事件VisualBasic可以利用這些功能，實(shí)現(xiàn)與Excel的集成下面，我們來具體闡述一個(gè)用VB來創(chuàng)建Excel報(bào)表的例子一Excel對(duì)象微軟的Excel對(duì)象模型包括了128個(gè)不同的對(duì)象，從矩形，文本框等簡(jiǎn)單的對(duì)象到透視表，圖表等復(fù)雜的對(duì)象下面我們簡(jiǎn)單介紹一下其中最重要，也是用得最多的四個(gè)對(duì)象1.Application對(duì)象Application對(duì)象處于Excel對(duì)象層次結(jié)

3、構(gòu)的頂層，表示Excel自身的運(yùn)行環(huán)境2.Wkbook對(duì)象Wkbook對(duì)象直接地處于Application對(duì)象的下層，表示一個(gè)Excel工作薄文件3.Wksheet對(duì)象Wksheet對(duì)象包含于Wkbook對(duì)象，表示一個(gè)Excel工作表4.Range對(duì)象Range對(duì)象包含于Wksheet對(duì)象，表示Excel工作表中的一個(gè)或多個(gè)單元格二一個(gè)實(shí)例１在Excel中做一個(gè)模板在用VisualBasic生成Excel報(bào)表之前，應(yīng)先按照用戶的要求在E

4、xcel中做好一個(gè)模板（文件后綴為.xlt）當(dāng)然，對(duì)于那些格式不固定，需要?jiǎng)討B(tài)生成的報(bào)表，也可在程序中控制其格式本例需要為用戶提供一個(gè)工程師工作的評(píng)價(jià)報(bào)告，我們所做的模板Engineer.xlt２在VisualBasic程序中生成Excel報(bào)表我們的例子中使用ADO從數(shù)據(jù)庫中獲取工程師工作的有關(guān)信息，然后按照模板Engineer.xlt的格式將數(shù)據(jù)寫入Excel工作表中（１）創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)EXE工程文件（２）在窗體frmEnginee

5、r中添加兩個(gè)命令按扭，屬性設(shè)置如下：NamecmdOKCaptionOKNamecmdCancelCaptionCancel（３）定義全局變量，并為Fm_Load事件編程.（４）對(duì)OK按鈕被擊事件進(jìn)行響應(yīng).（５）對(duì)Cancel被擊事件進(jìn)行響應(yīng)３運(yùn)行程序，生成Excel報(bào)表三結(jié)束語通過在VB中使用ADO(ActiveXDataObject)和Excel提供的OLE對(duì)象，我們能夠很容易地將數(shù)據(jù)庫中的數(shù)據(jù)輸出到Excel工作表里用Visual