Access如何制作復(fù)雜報(bào)表
來(lái)源:易賢網(wǎng) 閱讀:831 次 日期:2014-08-21 15:38:57
溫馨提示:易賢網(wǎng)小編為您整理了“Access如何制作復(fù)雜報(bào)表”,方便廣大網(wǎng)友查閱!

在讀這篇文章以前首先要提醒大家,Access 本身的報(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),當(dāng)然如果你和我一樣擁有工作在 966MHz 上的 CPU 和 256M 內(nèi)存以及大容量硬盤(pán)時(shí),那就不必考慮了,繼續(xù)吧。

首先找到 VBA 編程界面并找到"工具"菜單并單擊"引用..."菜單項(xiàng),在彈出的"引用"窗體中找到"現(xiàn)有引用"列表,在名為"Microsoft Excel x.0 Object Library"的項(xiàng)目前的方框內(nèi)打鉤。

其次,你要做好一張空白的 Excel 電子表格,設(shè)定好顯示字體、邊框、打印紙張等等并將其存盤(pán)。(以下示例中該表格名為 "temp.xls" )當(dāng)然啦,直接使用空白的 Excel 文件也是可以的,不過(guò)你要編程自動(dòng)生成表格邊框、背景顏色、單元格格式等一些內(nèi)容,這些涉及到 Excel 編程,我以后會(huì)在 Excel 專(zhuān)欄里詳細(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:reprottemp.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

更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄

更多信息請(qǐng)查看數(shù)據(jù)庫(kù)
易賢網(wǎng)手機(jī)網(wǎng)站地址:Access如何制作復(fù)雜報(bào)表
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢(xún)回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門(mén)公布的正式信息和咨詢(xún)?yōu)闇?zhǔn)!
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢(xún) | 簡(jiǎn)要咨詢(xún)須知 | 加入群交流 | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號(hào):滇ICP備2023014141號(hào)-1 云南省教育廳備案號(hào):云教ICP備0901021 滇公網(wǎng)安備53010202001879號(hào) 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號(hào)
云南網(wǎng)警備案專(zhuān)用圖標(biāo)
聯(lián)系電話:0871-65317125(9:00—18:00) 獲取招聘考試信息及咨詢(xún)關(guān)注公眾號(hào):hfpxwx
咨詢(xún)QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報(bào)警專(zhuān)用圖標(biāo)