利用ole自动化解决acess97中文版报表生成器直线不能往下顺延的缺陷_visualbasic教程

在EXCEL97下设计好报表的样式，包括表头、页眉、页码等，对需要自动翻转的列，在”单元格格式设置”下设为”自动换行”。

在EXCEL97下录制好当数据送入后进行的操作宏（如分类汇总、加边框线，加空行、打印输出、预演等动作）。

在ACCESS下用VBA语句和DAO对象的方法将数据送入EXCEL表内，并将EXCEL下宏操作变成ACCESS下的语句。
　　以下是ACCESS97下的程序代码，实际应用程序界面是一个对话框屏幕(FORM),上面有五个下拉框(Comb_)和一个文字框（Text）,由用户选择相应的信息，然后用户按”确定”命令按钮执行程序。其中有些属性和方法在ACCESS2.0下不能使用,可采用相应的语句.
PrivateSub确认_Click()
OnErrorGoToErrorHandler
DimstDocNameAsString
DimkAsInteger
stDocName=”Pqry_YEAR”
　　DoCmd.OpenQuerystDocName从原始表内根据用户输入的信息条件运行”生成表查询”,生成一个供打印用的表.
　　增加空记录处理–为了保证记录数少时也打印整张表.

　　　　IfVal(Me![Comb空行])>0Then如果用户输入了大于0的数值,表示加空行

　　Fork=1ToVal(Me![Comb空行])
　　　CurrentDb.Execute”INSERTINTOPqry_YEAR
　　(项目类)VALUES(空行空行空行);”
　　Nextk
EndIf
DimmsgVarAsInteger　
定义EXCEL对象变量
——————————
DimxlobjAsObject
DimxlsheetobjAsObject
DimxlrangeAsObject
——————————
定义ACESS记录集对象变量
DimdbsAsDatabase,rstAsRecordset
DimstrSQLAsString
DimrecTotal,fieldTotalAsIntegerrecTotal:
　　　　表示该表内记录总数;
　　　　fieldTotal表示字段总数
Dimi,jAsInteger
i=0
j=0
Returnreferencetocurrentdatabase.
Setdbs=CurrentDb当前数据库
Setrst=dbs.OpenRecordset(“Pqry_YEAR”)选择记录集
recTotal=rst.RecordCount得出记录数
fieldTotal=rst.Fields.Count　得出字段数
———————————-
建立EXCEL对象
Setxlobj=CreateObject(“Excel.Application.8”)
打开设计好的EXCEL表–REPORT.XLS
xlobj.Workbooks.OpenFileName:=pPathname&”REPORT.xls”
Setxlsheetobj=xlobj.ActiveWorkbook.Worksheets(“REPORT”)
　指向工作表
如果是改动过的表,不再打开
IfMsgBox(“当前打印表格文件中已有数据,
　是否需要更新?”
　&Chr(13)&_
　”提示:只有对数据进行改动后,才需要更新.”,68)
　=vbYesThen
DoCmd.HourglassTrue　由于时间较长,
将鼠标设为沙漏形状
　xlsheetobj.Rows(“5:200”).Select　选定区域
xlobj.Selection.DeleteShift:=-4162　
　　　　注意!原录制宏中-4162为xlnone,是EXCEL97的常量,但在ACCESS下却不认,只能到EXCEL下的对象浏览器去查询对应的常数.
　开始向EXCEL传送数据
　DoUntilrst.EOF
　　Forj=1TofieldTotal
　　　　xlsheetobj.cells(5 i,j).Value=rst.Fields(j-1)
　　Nextj
　　rst.MoveNext
　　i=i 1
　Loop
　rst.Close

　在EXCEL中调整,具体常数参见EXCEL下的对象浏览器
xlsheetobj.Range(“A4:Q”&Trim(Str(recTotal 4))).
　Select选定范围
　以下为设置边框线录制的宏代码,已删除了相似的语句.
　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
　确定是合计在表上还是在表尾
　　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
　根据用户的选择设置页眉和页尾。
　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
　将空行内容清掉
　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　预演报表
如为打印：xlobj.ActiveWindow.SelectedSheets.PrintOut
DoCmd.HourglassFalse恢复鼠标形状
xlobj.Visible=True　让EXCEL可见
清除对象变量空间，节省内存
Setdbs=Nothing
Setxlobj=Nothing
xlobj.quit　关闭EXCEL
ExitSub
ErrorHandler:　出错处理
DoCmd.HourglassFalse
MsgBox”Errornumber”&Err.Number&”:”&Err.Description
　Resumewithstatementfollowingoccurrenceoferror.
　ResumeNext
EndSub
　　　　通过这个例子我们看到在OFFICE97下利用OLE自动化扩展应用程序的功能是多么方便和强大。用EXCEL完成的报表的优点是格式美观,修改方便.缺点是第一次生成EXCEL表格时速度较慢.
　　　　本例是用EXCEL对数据进行报表操作,其实也可参照此例的方法在EXCEL上建立图形统计、财务分析、数据透视表分析等应用程序，只要在EXCEL下录制相应的宏，再加到ACCESS下就行了。->

->