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

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

2、所在的公司員工眾多，在進行職工養(yǎng)老保險繳費的計算工作時，若使用勞動局編制的軟件（用Foxbase 編寫），無論是在管理或維護方面均顯得力不從心。于是在公司領導的強烈要求下，決定由筆者構思重新編制?；舅悸肥牵?.將所有員工資料輸入 Access 進行處理，以便于維護。2.在 Excel 中預先制成有表頭的空表（Access 相對欠缺處理復雜表格的能力），對需要進行金額匯總或其他運算的單元格可直接輸入公式。3.在 VB 中編寫程序代碼，從

3、 Access 中提取數據填入 Excel 對應表格相應的單元格，并輸出至打印機。 ---- 部分窗體及源程序代碼如下： ---- 1．程序主模塊 ---- 定義 Excel、Access 對象變量，顯示系統啟動畫面，進入系統主程序界面。強調一下，在編寫程序之前須加入對 Excel 及 Access 庫函數的引用，具體操作是：選擇菜單欄'工程'\'引用…'，將'可使用的引用'列表框內

4、9;Microsoft Access 8.0 Object Library'和 'Microsoft Excel 8.0 Object Library'兩項前的復選框標為選中，按“確定“返回。 mdsMain.bas'定義數據庫記錄集及 Excel 對象變量 Public ex As New Excel.Application Public exwbook As Excel.Workbook Public

5、 exsheet As Excel.Worksheet Public mydatabase As Database Public myrecordset1 As Recordset[定義記錄集]…………Public Opt As Integer '報表選項[Opt 為 frmSelreport.frm 返回值] Public isYN As Boolean Sub Main() Load frmSplash frmSplash.

6、Show frmSplash.Label2.Caption = “ 系統正在加載 Access 數據庫...“Set mydatabase = OpenDatabase(“c:\sbda\sbda.mdb“) Set myrecordset1 = mydatabase.OpenRecordset(“報表打印(一)“)[此處對記錄集賦值]………… frmSplash.Label2.Caption = “ 系統正在加載 Excel 電子表格

7、...“ Set ex = CreateObject(“excel.application“) Set exwbook = ex.Workbooks.Open(“c:\sbda\sbda.xls“)Load FrmInput '將數據輸入窗體加載到內存中 Unload frmSplashLoad FrmMain '將主程序界面加載到內存中 End Sub---- 2．報表打印模塊 Select Case Op

8、t '選擇需要打印的表格Case 1 myrecordset1.MoveFirst n = (BeginPage - 1) * (49 - 4 + 1) - 1 myrecordset1.Move n PageN = BeginPage Call ExcelDoForVB1 '數據填入 Excel 單元格并打印Case 2…………End SelectCase 1Select Case Opt '選擇需

9、要打印的表格Case 1 myrecordset1.MoveFirst n = (BeginPage - 1) * (49 - 4 + 1) - 1 myrecordset1.Move n PageN = BeginPage For nBtoE = BeginPage To EndPageCall ExcelDoForVB1 '填入 Excel 單元格并打印PageN = PageN + 1 Next nBtoECase 2…

10、………End SelectEnd SelectEnd IfEnd IfFrmMain.Visible = TrueExit Sub errhandle:FrmPrint.Visible = False FrmMain.Visible = True End Sub---- 注意，下段僅通過 ExcelDoForVB1()對“報表（一）“的處理，來說明數據填入 Excel 并打印的整個過程。 Sub ExcelDoForVB1()

11、 '打印報表（一）FrmPrint.Visible = TrueSet exsheet = exwbook.Worksheets(“sheet1“)ex.Sheets(“Sheet1“).Selectex.Range(“A4:U49“).Selectex.Selection.ClearContentsex.Range(“A4“).Selectbar1.Min = 0 bar1.Max = 45 For nRo