Excel、Access、VB的結(jié)合應(yīng)用.txt

1、Excel、Access、VB的結(jié)合應(yīng)用作者：楊偉民微軟公司的Office系列辦公軟件相信已是眾所周知，其中Excel強(qiáng)大的統(tǒng)計(jì)制表功能、Access功能完備的數(shù)據(jù)處理能力深受眾多用戶所喜愛。VisualBsaic更是微軟公司又一有力的產(chǎn)品，它簡單易學(xué)，在Windows編程中的應(yīng)用十分廣泛。本文通過介紹數(shù)據(jù)處理及復(fù)雜表格的打印，來討論VB與Excel及Access的結(jié)合運(yùn)用。由于筆者所在的公司員工眾多，在進(jìn)行職工養(yǎng)老保險(xiǎn)繳費(fèi)的計(jì)算工作時(shí)

2、，若使用勞動(dòng)局編制的軟件（用Foxbase編寫），無論是在管理或維護(hù)方面均顯得力不從心。于是在公司領(lǐng)導(dǎo)的強(qiáng)烈要求下，決定由筆者構(gòu)思重新編制?；舅悸肥牵?.將所有員工資料輸入Access進(jìn)行處理，以便于維護(hù)。2.在Excel中預(yù)先制成有表頭的空表（Access相對(duì)欠缺處理復(fù)雜表格的能力），對(duì)需要進(jìn)行金額匯總或其他運(yùn)算的單元格可直接輸入公式。3.在VB中編寫程序代碼，從Access中提取數(shù)據(jù)填入Excel對(duì)應(yīng)表格相應(yīng)的單元格，并輸出至打印

3、機(jī)。部分窗體及源程序代碼如下：1程序主模塊定義Excel、Access對(duì)象變量，顯示系統(tǒng)啟動(dòng)畫面，進(jìn)入系統(tǒng)主程序界面。強(qiáng)調(diào)一下，在編寫程序之前須加入對(duì)Excel及Access庫函數(shù)的引用，具體操作是：選擇菜單欄工程引用…，將可使用的引用列表框內(nèi)MicrosoftAccess8.0ObjectLibrary和MicrosoftExcel8.0ObjectLibrary兩項(xiàng)前的復(fù)選框標(biāo)為選中，按“確定“返回。mdsMain.bas定義數(shù)據(jù)庫

4、記錄集及Excel對(duì)象變量PublicexAsNewExcel.ApplicationPublicexwbookAsExcel.WkbookPublicexsheetAsExcel.WksheetPublicmydatabaseAsDatabasePublicmyrecdset1AsRecdset[定義記錄集]…………PublicOptAsInteger報(bào)表選項(xiàng)[Opt為frmSelrept.frm返回值]PublicisYNAsBoo

5、leanSubMain()LoadfrmSplashfrmSplash.ShowfrmSplash.Label2.Caption=“系統(tǒng)正在加載Access數(shù)據(jù)庫...“Setmydatabase=OpenDatabase(“c:sbdasbda.mdb“)Setmyrecdset1=mydatabase.OpenRecdset(“報(bào)表打印(一)“)[此處對(duì)記錄集賦值]…………frmSplash.Label2.Caption=“系統(tǒng)正在

6、加載Excel電子表格...“Setex=CreateObject(“excel.application“)Setexwbook=ex.Wkbooks.Open(“c:sbdasbda.xls“)LoadFrmInput將數(shù)據(jù)輸入窗體加載到內(nèi)存中UnloadfrmSplashLoadFrmMain將主程序界面加載到內(nèi)存中EndSub2報(bào)表打印模塊CaseOpt選擇需要打印的表格Case1myrecdset1.MoveFirstn=(Be

7、ginPage1)(4941)1myrecdset1.MovenPageN=BeginPageCallExcelDoFVB1數(shù)據(jù)填入Excel單元格并打印Case2…………EndCase1CaseOpt選擇需要打印的表格Case1myrecdset1.MoveFirstn=(BeginPage1)(4941)1myrecdset1.MovenPageN=BeginPageFnBtoE=BeginPageToEndPageCallExce

8、lDoFVB1填入Excel單元格并打印PageN=PageN1NextnBtoECase2…………EndEndEndIfEndIfFrmMain.Visible=TrueExitSuberrhle:FrmPrint.Visible=FalseFrmMain.Visible=TrueEndSub注意，下段僅通過ExcelDoFVB1()對(duì)“報(bào)表（一）“的處理，來說明數(shù)據(jù)填入Excel并打印的整個(gè)過程。SubExcelDoFVB1()打印