Access97的报表解决方案(2)

' 将空行内容清掉
k = Val(Me![Comb 空行])
If Val(Me![Comb 空行]) > 0 Then
Dim content As String
i = 5
content = xlsheetobj.cells(i, 2).formulaR1C1
Do While InStr(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
End If

Else ' 不更新
xlsheetobj.Activate
End If
xlobj.ActiveWindow.SelectedSheets.PrintPreview ' 预演报表
' 如为打印：xlobj.ActiveWindow.SelectedSheets.PrintOut
DoCmd.Hourglass False ' 恢复鼠标形状
xlobj.Visible = True ' 让EXCEL 可见
清除对象变量空间，节省内存
Set dbs = Nothing
Set xlobj = Nothing
xlobj.quit ' 关闭EXCEL
Exit Sub
ErrorHandler: ' 出错处理
DoCmd.Hourglass False
MsgBox "Error number " & Err.Number & ": " & Err.Description
' Resume with statement following occurrence of error.
Resume Next
End Sub
通过这个例子我们看到在Office97 下利用OLE 自动化扩展应用程序的功能是多么方便和强大。用EXCEL 完成的报表的优点是格式美观, 修改方便. 缺点是第一次生成EXCEL 表格时速度较慢.
本例是用EXCEL 对数据进行报表操作, 其实也可参照此例的方法在EXCEL 上建立图形统计、财务分析、数据透视表分析等应用程序，只要在EXCEL 下录制相应的宏，再加到ACCESS 下就行了。

上一篇： 在VB中存取数据库中的图片
下一篇： ADO简介

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有