Excel、Access、VB的結合應用.txt

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

2、，若使用勞動局編制的軟件（用Foxbase編寫），無論是在管理或維護方面均顯得力不從心。于是在公司領導的強烈要求下，決定由筆者構思重新編制。基本思路是：1.將所有員工資料輸入Access進行處理，以便于維護。2.在Excel中預先制成有表頭的空表（Access相對欠缺處理復雜表格的能力），對需要進行金額匯總或其他運算的單元格可直接輸入公式。3.在VB中編寫程序代碼，從Access中提取數據填入Excel對應表格相應的單元格，并輸出至打印

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

4、記錄集及Excel對象變量PublicexAsNewExcel.ApplicationPublicexwbookAsExcel.WkbookPublicexsheetAsExcel.WksheetPublicmydatabaseAsDatabasePublicmyrecdset1AsRecdset[定義記錄集]…………PublicOptAsInteger報表選項[Opt為frmSelrept.frm返回值]PublicisYNAsBoo

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

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

7、ginPage1)(4941)1myrecdset1.MovenPageN=BeginPageCallExcelDoFVB1數據填入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()對“報表（一）“的處理，來說明數據填入Excel并打印的整個過程。SubExcelDoFVB1()打印