domino生成Excel图表

现在创建一个视图操作名为 Generate Chart1，功能是统计各个年龄段（20 以下，20~29,30~39,40~49,50~59,60 及以上）的人数的百分比并以 Chart1.xls 为模板生成 Excel 饼图，如果想生成不同的图表，只需要将模板中的图表格式类型改变并保存即可。代码如下：

Sub Click(Source As Button)

'定义一个数组来保存各个年龄段的人数

Dim countArr(5) As Integer

Dim s As New NotesSession

Dim ws As New NotesUIWorkspace

Dim db As NotesDatabase

Set db = s.CurrentDatabase

Dim vw As NotesView

Set vw = db.GetView("ExcelTest")

Dim doc As NotesDocument

Set doc = vw.GetFirstDocument

'计算各个年龄段人数

While Not doc Is Nothing

age% = Cint(doc.Age(0))

If age%<20 Then

countArr(0) = countArr(0) + 1

Elseif age%>=20 And age%<30 Then

countArr(1) = countArr(1) + 1

Elseif age%>=30 And age%<40 Then

countArr(2) = countArr(2) + 1

Elseif age%>=40 And age%<50 Then

countArr(3) = countArr(3) + 1

Elseif age%>=50 And age%<60 Then

countArr(4) = countArr(4) + 1

Else

countArr(5) = countArr(5) + 1

End If

Set doc = vw.GetNextDocument(doc)

Wend

'生成Excel图表

Call generateExcelChart1(countArr, "C:\Chart1.xls")

Dim uiChartDoc As NotesUIDocument

Set uiChartDoc = ws.ComposeDocument( "", "", "Chart" )

uiChartDoc.GotoField("Body")

'将生成的Excel图表粘贴到一个文档中

Call uiChartDoc.Paste

End Sub

其中生成 Excel 图表的过程 generateExcelChart1() 代码如下：

Sub generateExcelChart1(countArr As Variant, excelFileName As String)

'定义Excel相关变量

Dim excelApplication As Variant

Dim excelWorkbook As Variant

Dim excelSheet As Variant

'创建Excel对象

Set excelApplication = CreateObject("Excel.Application")

'将Excel程序设置为不可见

excelApplication.Visible = False

'打开模版文件

Set excelWorkbook = excelApplication.Workbooks.Open(excelFileName)

Set excelSheet = excelWorkbook.Worksheets("Sheet1")

'为图表填充源数据

excelSheet.Cells(2,2) = countArr(0)

excelSheet.Cells(2,3) = countArr(1)

excelSheet.Cells(2,4) = countArr(2)

excelSheet.Cells(2,5) = countArr(3)

excelSheet.Cells(2,6) = countArr(4)

excelSheet.Cells(2,7) = countArr(5)

'将生成的图表复制到剪贴板

excelSheet.ChartObjects(1).Chart.ChartArea.Copy

'不保存退出Excel应用程序

excelWorkbook.Close False

excelApplication.Quit

End Sub

domino生成Excel图表相关推荐

基于Visual C++2010 与office2010开发办公自动化(25)-如何使用自动化生成Excel图表
VS2010新特性: Office Word 2010 Office Word 2010 增强了 Navigation Pane 特性,用户可在 Navigation Pane 中快速切换至任何一章节 ...
python根据excel生成报表_python生成Excel图表（通过xlsxwriter）
前面介绍了pandas的简单用法,pandas的数据可以通过matlab第三方包将数据生成报表,但是我想将报表生成在Excel中,这时候就可以借助xlsxwriter第三方包来生成图标缺点:xlsx ...
Java使用poi和jfreechart生成excel图表图片
最近项目在频繁的操作excel,里边涉及到很多和图表有关的东西.有时候需要使用java操作excel自带的图标,比较复杂的我们都是使用excel模板的形式实现. 除此之外,也有一些功能只需要生成对应 ...
Qt Xlsx使用教程、Qt操作Excel、Qt生成Excel图表、跨平台不依赖Office
文章目录 1.Qt Xlsx库简介 2. 用法①:使用Xlsx作为Qt5的附加模块 2.1 构建模块 2.2 下载QtXlsx源代码 2.3 为编译器安装Xlsx模块 2.3.1 打开 MinGW 7 ...
JXLS生成Excel图表
很多时候,项目会要求我们在导出的Excel中显示图表,例如饼图.拆线图和柱状图,JXLS可以导出图表,不过显示,如果我的使用方法没错的话,使用JXLS导出柱状图会比较麻烦,或者说,比较不灵活. 先看下 ...
使用Epplus生成Excel 图表
原文转自:https://www.cnblogs.com/Cjb8973/archive/2017/11/23/7885914.html //首页执行 DataTable dt = DBhelper. ...
poi导出excel文件,并生成原生图表(包括折线图,柱状图,饼状图,面积图)
前段时间,因为客户需要,要做一个导出excel文件功能,并能生成原生的图表的(不是把图片插入到excel文档),找了很多文档看,也看了很多别人的代码,个人也总结了一下,不足之处,请各位大牛谅解. 需要 ...
在.NET中不安装Office使用EPPlus生成带图表(Chart)的Excel报表
在开发.NET应用中可能会遇到需要生成带图表(Chart)的Excel报表的需求,特别是在一些ASP.NET网站中,有时候我们并不能保证Web服务器上一定安装了Office组件,所以使用微软的Offi ...
使用PHPExcel生成Excel文件和图表
After my article "How To Make Microsoft Word Documents with PHP" (using Interop capability ...
在excel中用VBA生成PPT图表
常常需要按照excel中的数据来在PPT中生成图表展示出来,有的方法是在excel生成好图表,再复制到ppt中,这里不采用. 这里先将excel数据读进数组,再在PPT中生成图表,将数组中的数据写进图 ...

domino生成Excel图表

domino生成Excel图表相关推荐

最新文章

热门文章