Access97的報(bào)表解決方案

2019-11-18 17:46:30

字體：大中小

供稿：網(wǎng)友

利用OLE自動(dòng)化解決ACESS97中文版報(bào)表生成器直線不能往下順延的缺陷

 access97是一個(gè)非常優(yōu)秀的數(shù)據(jù)庫軟件,它不僅能充當(dāng)辦公自動(dòng)化的桌面數(shù)據(jù)管理工具,也是一個(gè)開發(fā)Client/Server產(chǎn)品的優(yōu)秀前端開發(fā)工具.它的特點(diǎn)是易學(xué)易用、工具豐富、不需寫大量代碼就可以在很短的時(shí)間內(nèi)開發(fā)出界面優(yōu)美且功能強(qiáng)大的系統(tǒng)，長期以來受到廣大開發(fā)者的青睞。但筆者在使用時(shí)發(fā)現(xiàn)其報(bào)表生成器中有一個(gè)明顯不適合我國國情的缺陷，就是當(dāng)設(shè)置報(bào)表DETAIL節(jié)上的字段長度因?yàn)闄M向空間不夠而設(shè)為自動(dòng)向下順延（CanGrow屬性為True）時(shí)，如果字段旁有豎線（國內(nèi)大部分公文報(bào)表都有豎線，而國外則很少有），則豎線不能和字段一起向下順延。使整個(gè)報(bào)表看起來不美觀。這個(gè)缺陷在ACCESS2.0和ACCESS97中文版上都有,而在FoxPRo2.5B/3.0/5.0下卻沒有。據(jù)微軟技術(shù)服務(wù)部的工作人員說是由于本地化時(shí)測試不夠原因所致。為此，筆者在ACCESS內(nèi)采用了OLE自動(dòng)化!
方法，將ACCESS97查詢生成的表送交Excel97進(jìn)行處理（分類匯總、打印、預(yù)演），較好地解決了這個(gè)問題。由于ACCESS97和EXCEL97的VBA在97版本上幾乎完全兼容，在EXCEL97下錄制的宏代碼只需在ACCESS下稍加修改就行了，所以采用此方法和用內(nèi)部報(bào)表生成器設(shè)計(jì)所用的時(shí)間差不多。整個(gè)工作需要下面幾步：
在EXCEL97下設(shè)計(jì)好報(bào)表的樣式，包括表頭、頁眉、頁碼等，對(duì)需要自動(dòng)翻轉(zhuǎn)的列，在"單元格格式設(shè)置"下設(shè)為"自動(dòng)換行"。
在EXCEL97下錄制好當(dāng)數(shù)據(jù)送入后進(jìn)行的操作宏（如分類匯總、加邊框線，加空行、打印輸出、預(yù)演等動(dòng)作）。
在ACCESS下用VBA語句和DAO對(duì)象的方法將數(shù)據(jù)送入EXCEL表內(nèi)，并將EXCEL下宏操作變成ACCESS下的語句。
以下是ACCESS97下的程序代碼，實(shí)際應(yīng)用程序界面是一個(gè)對(duì)話框屏幕(FORM),上面有五個(gè)下拉框(Comb_)和一個(gè)文字框（Text）,由用戶選擇相應(yīng)的信息，然后用戶按"確定"命令按鈕執(zhí)行程序。其中有些屬性和方法在ACCESS2.0下不能使用,可采用相應(yīng)的語句.
PrivateSub確認(rèn)_Click()
OnErrorGoToErrorHandler
DimstDocNameAsString
DimkAsInteger
stDocName="Pqry_YEAR"
DoCmd.OpenQuerystDocName'從原始表內(nèi)根據(jù)用戶輸入的信息條件運(yùn)行"生成表查詢",生成一個(gè)供打印用的表.
'增加空記錄處理--為了保證記錄數(shù)少時(shí)也打印整張表.

IfVal(Me![Comb空行])>0Then'如果用戶輸入了大于0的數(shù)值,表示加空行

Fork=1ToVal(Me![Comb空行])
CurrentDb.Execute"INSERTINTOPqry_YEAR
(項(xiàng)目類)VALUES('空行空行空行');"
Nextk
EndIf
DimmsgVarAsInteger
'定義EXCEL對(duì)象變量
'------------------------------
DimxlobjAsObject
DimxlsheetobjAsObject
DimxlrangeAsObject
'------------------------------
'定義ACESS記錄集對(duì)象變量
DimdbsAsDatabase,rstAsRecordset
DimstrSQLAsString
DimrecTotal,fieldTotalAsInteger'recTotal:
表示該表內(nèi)記錄總數(shù);
fieldTotal表示字段總數(shù)
Dimi,jAsInteger
i=0
j=0
'Returnreferencetocurrentdatabase.
Setdbs=CurrentDb'當(dāng)前數(shù)據(jù)庫
Setrst=dbs.OpenRecordset("Pqry_YEAR")'選擇記錄集
recTotal=rst.RecordCount'得出記錄數(shù)
fieldTotal=rst.Fields.Count'得出字段數(shù)
'----------------------------------
'建立EXCEL對(duì)象
Setxlobj=CreateObject("Excel.application.8")
'打開設(shè)計(jì)好的EXCEL表--REPORT.XLS
xlobj.Workbooks.OpenFileName:=pPathname&"REPORT.xls"
Setxlsheetobj=xlobj.ActiveWorkbook.Worksheets("REPORT")
'指向工作表
'如果是改動(dòng)過的表,不再打開
IfMsgBox("當(dāng)前打印表格文件中已有數(shù)據(jù),
是否需要更新?"
&Chr(13)&_
"提示:只有對(duì)數(shù)據(jù)進(jìn)行改動(dòng)后,才需要更新.",68)
=vbYesThen
DoCmd.HourglassTrue'由于時(shí)間較長,
將鼠標(biāo)設(shè)為沙漏形狀
xlsheetobj.Rows("5:200").Select'選定區(qū)域
xlobj.Selection.DeleteShift:=-4162'
注意!原錄制宏中-4162為xlnone,是EXCEL97的常量,但在ACCESS下卻不認(rèn),只能到EXCEL下的對(duì)象瀏覽器去查詢對(duì)應(yīng)的常數(shù).
'開始向EXCEL傳送數(shù)據(jù)
DoUntilrst.EOF
Forj=1TofieldTotal
xlsheetobj.cells(5 i,j).Value=rst.Fields(j-1)
Nextj
rst.MoveNext
i=i 1
Loop
rst.Close

'在EXCEL中調(diào)整,具體常數(shù)參見EXCEL下的對(duì)象瀏覽器
xlsheetobj.Range("A4:Q"&Trim(Str(recTotal 4))).
Select'選定范圍
'以下為設(shè)置邊框線錄制的宏代碼,已刪除了相似的語句.
xlobj.Selection.Borders(5).LineStyle=-4142
xlobj.Selection.Borders(6).LineStyle=-4142
Withxlobj.Selection.Borders(7)
.LineStyle=1
.Weight=-4138
.ColorIndex=-4105
EndWith

Withxlobj.Selection
'確定是合計(jì)在表上還是在表尾
IfMe![Fram位置]=1Then
.SubtotalGroupBy:=2,Function:=-4157,
TotalList:=Array(6,9,10,_
11,12,13,14,15,16),Replace:=True,
PageBreaks:=False,_
SummaryBelowData:=False
Else
.SubtotalGroupBy:=2,Function:=-4157,
TotalList:=Array
(6,9,10,_
11,12,13,14,15,16),Replace:=True,
PageBreaks:=False,_
SummaryBelowData:=True
EndIf
EndWith
'根據(jù)用戶的選擇設(shè)置頁眉和頁尾。
Withxlsheetobj.PageSetup
.LeftHeader=""&Chr(10)&""&Chr(10)&"
"&Mid(Me![Cmbo單位],4)
.CenterHeader="&""宋體,加粗""&18"&Me!
[Cmbo年度]&"年"&Mid(Me![Cmbo類別],4)&"XXX表"
EndWith
xlsheetobj.Range("A1").Select
'將空行內(nèi)容清掉
k=Val(Me![Comb空行])
IfVal(Me![Comb空行])>0Then
DimcontentAsString
i=5
content=xlsheetobj.cells(i,2).formulaR1C1
DoWhileInStr(1,content,"空行空行空行")=0
i=i 1
content=xlsheetobj.cells(i,2).formulaR1C1
Loop
xlsheetobj.Range("B"&Trim(Str(i-k 5))&":"&"Q"
&Trim(Str(i 5))).Select
xlobj.Selection.ClearContents
xlsheetobj.Range("A1").Select
EndIf

Else'不更新
xlsheetobj.Activate
EndIf
xlobj.ActiveWindow.SelectedSheets.PrintPreview'預(yù)演報(bào)表
'如為打?。簒lobj.ActiveWindow.SelectedSheets.PrintOut
DoCmd.HourglassFalse'恢復(fù)鼠標(biāo)形狀
xlobj.Visible=True'讓EXCEL可見
清除對(duì)象變量空間，節(jié)省內(nèi)存
Setdbs=Nothing
Setxlobj=Nothing
xlobj.quit'關(guān)閉EXCEL
ExitSub
ErrorHandler:'出錯(cuò)處理
DoCmd.HourglassFalse
MsgBox"Errornumber"&Err.Number&":"&Err.DescrResumeNext
EndSub
通過這個(gè)例子我們看到在OFFICE97下利用OLE自動(dòng)化擴(kuò)展應(yīng)用程序的功能是多么方便和強(qiáng)大。用EXCEL完成的報(bào)表的優(yōu)點(diǎn)是格式美觀,修改方便.缺點(diǎn)是第一次生成EXCEL表格時(shí)速度較慢.
本例是用EXCEL對(duì)數(shù)據(jù)進(jìn)行報(bào)表操作,其實(shí)也可參照此例的方法在EXCEL上建立圖形統(tǒng)計(jì)、財(cái)務(wù)分析、數(shù)據(jù)透視表分析等應(yīng)用程序，只要在EXCEL下錄制相應(yīng)的宏，再加到ACCESS下就行了。->