Access數(shù)據(jù)庫(kù)制作復(fù)雜報(bào)表方法
Access 數(shù)據(jù)庫(kù)本身的報(bào)表也具有很強(qiáng)的實(shí)用性和強(qiáng)大的功能,只有當(dāng)你發(fā)掘了其本身全部的功能卻仍不能滿足你對(duì)報(bào)表的特殊要求時(shí)才請(qǐng)使用 Excel 輸出報(bào)表。很明顯,使用 Excel 輸出報(bào)表第一個(gè)弱點(diǎn)就是必須同時(shí)打開(kāi) Access 和 Excel (當(dāng)然,你得在一臺(tái)機(jī)器上同時(shí)安裝 Access 和 Excel)。接下來(lái)就是Access數(shù)據(jù)庫(kù)制作復(fù)雜報(bào)表的過(guò)程。
首先找到 VBA 編程界面并找到"工具"菜單并單擊"引用..."菜單項(xiàng),在彈出的"引用"窗體中找到"現(xiàn)有引用"列表,在名為"Microsoft Excel x.0 Object Library"的項(xiàng)目前的方框內(nèi)打鉤。
其次,你要做好一張空白的 Excel 電子表格,設(shè)定好顯示字體、邊框、打印紙張等等并將其存盤。(以下示例中該表格名為 "temp.xls" )當(dāng)然啦,直接使用空白的 Excel 文件也是可以的,不過(guò)你要編程自動(dòng)生成表格邊框、背景顏色、單元格格式等一些內(nèi)容,這些涉及到 Excel 編程,我以后會(huì)在 Excel 專欄里詳細(xì)敘述,這里就不多說(shuō)了。
然后你就可以在 Access 里面制作你自己的打印預(yù)覽窗體了,在窗體中安排 2 個(gè)命令按鈕,在名為預(yù)覽的按鈕的 click 事件里輸入以下代碼:
Private Sub ExcelPreview_Click()
Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("c:\reprot\temp.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"
'以上只更改了一個(gè)單元格內(nèi)的數(shù)據(jù),可根據(jù)需要無(wú)限次加入
xlBook.Save
xlSheet.PrintPreview '如果是要打印,只要把 PrintPreview 改為 PrintOut
xlBook.close
xlApp.Quit
End Sub
OK,然后就可以單擊該按鈕看看生成的表格如何了
到這里,Access數(shù)據(jù)庫(kù)制作復(fù)雜報(bào)表就已經(jīng)全部完成了,下一步大家就可以使用剛剛創(chuàng)建的報(bào)表啦。
關(guān)鍵字:Access、制作、復(fù)雜報(bào)表
新文章:
- CentOS7下圖形配置網(wǎng)絡(luò)的方法
- CentOS 7如何添加刪除用戶
- 如何解決centos7雙系統(tǒng)后丟失windows啟動(dòng)項(xiàng)
- CentOS單網(wǎng)卡如何批量添加不同IP段
- CentOS下iconv命令的介紹
- Centos7 SSH密鑰登陸及密碼密鑰雙重驗(yàn)證詳解
- CentOS 7.1添加刪除用戶的方法
- CentOS查找/掃描局域網(wǎng)打印機(jī)IP講解
- CentOS7使用hostapd實(shí)現(xiàn)無(wú)AP模式的詳解
- su命令不能切換root的解決方法
- 解決VMware下CentOS7網(wǎng)絡(luò)重啟出錯(cuò)
- 解決Centos7雙系統(tǒng)后丟失windows啟動(dòng)項(xiàng)
- CentOS下如何避免文件覆蓋
- CentOS7和CentOS6系統(tǒng)有什么不同呢
- Centos 6.6默認(rèn)iptable規(guī)則詳解