用VB作复杂报表:交叉表、饼图、柱图表等,一定跟分! to gump2000 :如何用?能给点提示吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用VB创建复杂表格 ---- 数据库管理系统的开发人员经常感叹的一个问题就是:我们中国人的报表太复杂了!无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧,设计数据操作也固然需要一定的逻辑分析能力,但这些问题对一般的开发人员来说应该是不成为问题的。用户可是不管你采用了多么灵活的算法多么方便的操作,他们最感兴趣的是最后他们出来的报表如何漂亮,出报表的操作如何简单(最好是一个按钮解决所有的问题)。笔者在开发数据库管理系统方面也稍有些经验,从FoxPro、Delphi、PowerBuilder一直到现在用的VB,都遇到过设计打印报表的问题,这些软件在设计报表的过程中可谓各有千秋,我这里不一一细说。我在这里只向大家介绍一种我迄今为止最为满意的一种设计打印报表的方法:利用VB操作EXCEL来生成复杂的报表。---- 一. 用VB创建外部EXCEL对象---- 大多数大型 ActiveX-enabled 应用程序和其它 ActiveX 部件,在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问,并且还提供对整个应用程序起作用的方法和属性。---- 例如,每个 Microsoft Office 应用程序提供一个顶层 Application 对象。下面语句显示了对Microsoft Excel的 Application 对象的引用:Dim xlApp As Excel.ApplicationSet xlApp = New Excel.Application---- 然后,可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如:Set xlApp = CreateObject("Excel.Application")‘激活EXCEL应用程序xlApp.Visible = False ‘隐藏EXCEL应用程序窗口Set xlBook = xlApp.Workbooks.Open(strDestination)‘打开工作簿,strDestination为一个EXCEL报表文件Set xlSheet = xlBook.Worksheets(1)‘设定工作表---- 二. 用EXCEL 97设计报表的模版文件---- EXCEL 97是一个非常优秀的创建报表的工具。它提供的单元格任意合并、拆分和绘图功能基本上能够满足设计所有复杂报表的需求。它对任意一个单元格的格式随意控制,更为随心所欲地设计报表提供了强大的支持。---- 根据用户提供的报表,我们可以很快在EXCEL里生成模版文件。所谓生成模版文件只是为了满足用户多方面的需求而设计的。也是为了适合报表以后的更改而做的一点预备工作。例如用户需要打印几百张职工履历表,但其格式都是一致的,并且随着时间和实际情况的变化,表格格式有可能需要改变,我们设计一个模版文件显然可以“以不变应万变”了。---- 生成工作表时我们应当记录下要填充内容的单元格编号和该单元格内要填充的数据字段。这样形成一个表格,在写程序时一目了然。如:Cell(4,2) 职工姓名 Cell(6,6) 毕业学校Cell(4,4) 职工性别 Cell(6,7) 所学专业Cell(4,6) 职工民族 Cell(6,9) 工作时间(表一)---- 在程序里我们当然不要对模版文件进行操作了,我们只需要对模版文件的一个拷贝进行操作就行(这也是我们设计模版文件的一个目的和好处)。如下面的例子:Dim strSource, strDestination As StringstrSource = App.Path & "\Excels\RegisterFee.xls" ‘RegisterFee.xls就是一个模版文件strDestination = App.Path & "\Excels\Temp.xls" FileCopy strSource, strDestination‘将模版文件拷贝到一个临时文件---- 三. 生成工作表内容---- 有了上述两步工作的铺垫,我们下面接着就只要根据(表一)的格式给各单元格赋值了。如: datPrimaryRS.Recordset.MoveFirst‘datPrimaryRS为Data控件 If IsNull(datPrimaryRS.Recordset!姓名) = False Then xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名 End If If IsNull(datPrimaryRS.Recordset!性别) = False Then xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性别 End If If IsNull(datPrimaryRS.Recordset!民族) = False Then xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族 End If………………---- 四. 打印报表---- 生成了工作表后,就可以对EXCEL发出打印指令了。---- 注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作,以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件,让用户觉得莫名其妙。如下语句:xlBook.Save ‘保存文件 xlSheet.PrintOut ‘执行打印 xlApp.Quit ‘退出EXCEL---- 至此读者应该看到,我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程,他们只看到一张张漂亮的报表轻易地被打印出来了。 你可以利用EXCEL 生成图形,用宏 lihonggen0(用VB) ,有具体例子的代码么 你也可以用MSChart1控件生成饼图、柱图表,然后在报表中调用此图Private Sub Command1_Click() If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据 With MSChart1 .chartType = VtChChartType2dPie .ColumnCount = 2 .RowCount = 1 Dim XXX As Double XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) .TitleText = "饼图示例 完成百分比" .Column = 1 .Row = 1 .Data = XXX .ColumnLabel = "完成百分比" & Str(XXX) & "%" .Column = 2 .Row = 1 .Data = 100 - XXX .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%" End With ' With MSChart1' .ChartType = VtChChartType2dPie' .ColumnCount = 2' .RowCount = 1' Dim XXX As Double' XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))' .TitleText = "饼图示例 完成百分比"' .Column = 1' .Row = 1' .Data = XXX' .ColumnLabel = "完成百分比" & Str(XXX) & "%"' .Column = 2' .Row = 1' .Data = 100 - XXX' .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%"' End With End IfEnd Sub 如果用EXCEL则可以在EXCEL中把宏写好,把代码粘贴在VB里,好久没写了,大概是这样的具体方法请参阅VBA开发 Excel也有Chart对象ChartWizard 方法 修改给定图表的属性。可用本方法迅速设定图表的格式,而不必逐个设置所有属性。本方法是非交互式的,并且仅修改指定的属性。语法expression.ChartWizard(Source, Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)expression 必选。该表达式返回一个 Chart 对象。Source Variant 类型,可选。包含新图表的源数据的区域。如果省略本参数,Microsoft Excel 将修改活动图表工作表,或活动工作表中处于选定状态的嵌入式图表。Gallery Variant 类型,可选。图表类型。可为下列 XlChartType 常量之一:xlArea、xlBar、xlColumn、xlLine、xlPie、xlRadar、xlXYScatter、xlCombination、xl3DArea、xl3DBar、xl3DColumn、xl3DLine、xl3DPie、xl3DSurface、xlDoughnut 或 xlDefaultAutoFormat。Format Variant 类型,可选。内置自动套用格式的编号。可为从 1 到 10 的数字,其取值依赖于图库类型。如果省略本参数,Microsoft Excel 将依据图库类型和数据源选择默认值。PlotBy Variant 类型,可选。指定系列中的数据是来自行还是来自列。可为下列 XlRowCol 常量之一:xlRows 或 xlColumns。CategoryLabels Variant 类型,可选。表示包含分类标志的源区域内行数或列数的整数。有效取值为从 0(零)至小于相应的分类或系列中最大值的某一数字。SeriesLabels Variant 类型,可选。表示包含系列标志的源区域内行数或列数的整数。有效取值为从 0(零)至小于相应的分类或系列中最大值的某一数字。HasLegend Variant 类型,可选。若指定 True,则图表将具有图例。Title Variant 类型,可选。图表标题文字。CategoryTitle Variant 类型,可选。分类轴标题文字。ValueTitle Variant 类型,可选。数值轴标题文字。ExtraTitle Variant 类型,可选。三维图表的系列轴标题,或二维图表的第二数值轴标题。说明如果省略 Source,并且选定内容不是活动工作表中的嵌入式图表或者活动工作表不是当前存在的图表,则该方法失败并产生错误。详细请看C:\Program Files\Microsoft Office\Office\2052\VBAXL9.CHM command 凸出的边框 关于Excel打印的问题 求助啦~~~~ vb中的datagrid控件的列宽怎么固定阿 Setup Factory打包问题 关于数据库的连接? VB6 如何在文件复制完毕后提示成功呢??? 数据库难题 怎样用VB实现用字事本打开一个文本文件如a.txt?在线等候 VB中怎样控制数字显示格式?比如我想要a(decimal)格式为"#######.##"? 请问一个ToolsBar控件的问题。 昨天的问题,希望大家继续帮我。
---- 数据库管理系统的开发人员经常感叹的一个问题就是:我们中国人的报表太复杂了!无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧,设计数据操作也固然需要一定的逻辑分析能力,但这些问题对一般的开发人员来说应该是不成为问题的。用户可是不管你采用了多么灵活的算法多么方便的操作,他们最感兴趣的是最后他们出来的报表如何漂亮,出报表的操作如何简单(最好是一个按钮解决所有的问题)。笔者在开发数据库管理系统方面也稍有些经验,从FoxPro、Delphi、PowerBuilder一直到现在用的VB,都遇到过设计打印报表的问题,这些软件在设计报表的过程中可谓各有千秋,我这里不一一细说。我在这里只向大家介绍一种我迄今为止最为满意的一种设计打印报表的方法:利用VB操作EXCEL来生成复杂的报表。---- 一. 用VB创建外部EXCEL对象---- 大多数大型 ActiveX-enabled 应用程序和其它 ActiveX 部件,在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问,并且还提供对整个应用程序起作用的方法和属性。---- 例如,每个 Microsoft Office 应用程序提供一个顶层 Application 对象。下面语句显示了对Microsoft Excel的 Application 对象的引用:Dim xlApp As Excel.Application
Set xlApp = New Excel.Application---- 然后,可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如:Set xlApp = CreateObject("Excel.Application")
‘激活EXCEL应用程序
xlApp.Visible = False ‘隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
‘打开工作簿,strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1)
‘设定工作表---- 二. 用EXCEL 97设计报表的模版文件---- EXCEL 97是一个非常优秀的创建报表的工具。它提供的单元格任意合并、拆分和绘图功能基本上能够满足设计所有复杂报表的需求。它对任意一个单元格的格式随意控制,更为随心所欲地设计报表提供了强大的支持。---- 根据用户提供的报表,我们可以很快在EXCEL里生成模版文件。所谓生成模版文件只是为了满足用户多方面的需求而设计的。也是为了适合报表以后的更改而做的一点预备工作。例如用户需要打印几百张职工履历表,但其格式都是一致的,并且随着时间和实际情况的变化,表格格式有可能需要改变,我们设计一个模版文件显然可以“以不变应万变”了。---- 生成工作表时我们应当记录下要填充内容的单元格编号和该单元格内要填充的数据字段。这样形成一个表格,在写程序时一目了然。如:Cell(4,2) 职工姓名 Cell(6,6) 毕业学校
Cell(4,4) 职工性别 Cell(6,7) 所学专业
Cell(4,6) 职工民族 Cell(6,9) 工作时间
(表一)---- 在程序里我们当然不要对模版文件进行操作了,我们只需要对模版文件的一个拷贝进行操作就行(这也是我们设计模版文件的一个目的和好处)。如下面的例子:Dim strSource, strDestination As String
strSource = App.Path & "\Excels\RegisterFee.xls"
‘RegisterFee.xls就是一个模版文件
strDestination = App.Path & "\Excels\Temp.xls"
FileCopy strSource, strDestination
‘将模版文件拷贝到一个临时文件---- 三. 生成工作表内容---- 有了上述两步工作的铺垫,我们下面接着就只要根据(表一)的格式给各单元格赋值了。如: datPrimaryRS.Recordset.MoveFirst
‘datPrimaryRS为Data控件
If IsNull(datPrimaryRS.Recordset!姓名) = False Then
xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名
End If
If IsNull(datPrimaryRS.Recordset!性别) = False Then
xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性别
End If
If IsNull(datPrimaryRS.Recordset!民族) = False Then
xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族
End If
………………---- 四. 打印报表---- 生成了工作表后,就可以对EXCEL发出打印指令了。---- 注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作,以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件,让用户觉得莫名其妙。如下语句:xlBook.Save ‘保存文件
xlSheet.PrintOut ‘执行打印
xlApp.Quit ‘退出EXCEL---- 至此读者应该看到,我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程,他们只看到一张张漂亮的报表轻易地被打印出来了。
你可以利用EXCEL 生成图形,用宏
Private Sub Command1_Click()
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.chartType = VtChChartType2dPie
.ColumnCount = 2
.RowCount = 1
Dim XXX As Double
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
.TitleText = "饼图示例 完成百分比"
.Column = 1
.Row = 1
.Data = XXX
.ColumnLabel = "完成百分比" & Str(XXX) & "%"
.Column = 2
.Row = 1
.Data = 100 - XXX
.ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%"
End With
' With MSChart1
' .ChartType = VtChChartType2dPie
' .ColumnCount = 2
' .RowCount = 1
' Dim XXX As Double
' XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
' .TitleText = "饼图示例 完成百分比"
' .Column = 1
' .Row = 1
' .Data = XXX
' .ColumnLabel = "完成百分比" & Str(XXX) & "%"
' .Column = 2
' .Row = 1
' .Data = 100 - XXX
' .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%"
' End With
End IfEnd Sub
则可以在EXCEL中把宏写好,把代码粘贴在VB里,好久没写了,大概是这样的
具体方法请参阅VBA开发
修改给定图表的属性。可用本方法迅速设定图表的格式,而不必逐个设置所有属性。本方法是非交互式的,并且仅修改指定的属性。语法expression.ChartWizard(Source, Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)expression 必选。该表达式返回一个 Chart 对象。Source Variant 类型,可选。包含新图表的源数据的区域。如果省略本参数,Microsoft Excel 将修改活动图表工作表,或活动工作表中处于选定状态的嵌入式图表。Gallery Variant 类型,可选。图表类型。可为下列 XlChartType 常量之一:xlArea、xlBar、xlColumn、xlLine、xlPie、xlRadar、xlXYScatter、xlCombination、xl3DArea、xl3DBar、xl3DColumn、xl3DLine、xl3DPie、xl3DSurface、xlDoughnut 或 xlDefaultAutoFormat。Format Variant 类型,可选。内置自动套用格式的编号。可为从 1 到 10 的数字,其取值依赖于图库类型。如果省略本参数,Microsoft Excel 将依据图库类型和数据源选择默认值。PlotBy Variant 类型,可选。指定系列中的数据是来自行还是来自列。可为下列 XlRowCol 常量之一:xlRows 或 xlColumns。CategoryLabels Variant 类型,可选。表示包含分类标志的源区域内行数或列数的整数。有效取值为从 0(零)至小于相应的分类或系列中最大值的某一数字。SeriesLabels Variant 类型,可选。表示包含系列标志的源区域内行数或列数的整数。有效取值为从 0(零)至小于相应的分类或系列中最大值的某一数字。HasLegend Variant 类型,可选。若指定 True,则图表将具有图例。Title Variant 类型,可选。图表标题文字。CategoryTitle Variant 类型,可选。分类轴标题文字。ValueTitle Variant 类型,可选。数值轴标题文字。ExtraTitle Variant 类型,可选。三维图表的系列轴标题,或二维图表的第二数值轴标题。说明如果省略 Source,并且选定内容不是活动工作表中的嵌入式图表或者活动工作表不是当前存在的图表,则该方法失败并产生错误。详细请看C:\Program Files\Microsoft Office\Office\2052\VBAXL9.CHM