把lotus notes数据生成EXCEL的图表

如何把lotus notes数据生成EXCEL的图表？

1.获取lotus notes数据，可以用AJAX来获取数据，也可用代理来print数据

2.把数据写入excel中

oXL = new ActiveXObject("Excel.Application");

var oWB = oXL.Workbooks.Add();

var oSheet = oWB.ActiveSheet;

var sheet2 = oWB.Worksheets(2);

for(i=j;i<backstr.getElementsByTagName("viewentry").length;i++)

{

//alert(newOpt.attributes[0].text)

var newOpt = backstr.getElementsByTagName("viewentry")[i];

if(newOpt.attributes[0].text=="2")

{

//alert(newOpt.childNodes[0].text)

sheet2.Cells(i-j+3, 2).value = newOpt.childNodes[0].text;

sheet2.Cells(i-j+3, 3).value = newOpt.childNodes[1].text;

}

else

{

break

}

}

sheet2.Activate

fullData=fullData+ "发文部门超时"

DispalyQuarterlySales(sheet2,i-j+2)

3.生成excel图表

function DispalyQuarterlySales(oWS,k)

{

var oResizeRange = oWS.Range(oWS.Cells(3, 2), oWS.Cells(k, 3)); //图表的数据源

var oChart = oWS.Parent.Charts.Add(); //增加图标

//设置图表的选项

oChart.ChartWizard(oResizeRange, -4100, null, 2,null,null,0,fullData+"统计图","部门","次数"); // -4100 = xl3dColumn

oChart.SetSourceData( oWS.Range(oWS.Cells(3, 2), oWS.Cells(k, 3)), 2) //设置图标的值数据源

oChart.SeriesCollection(1).XValues = oWS.Range(oWS.Cells(3, 2), oWS.Cells(k, 2))//设置柱形图的标题数据源

oChart.SeriesCollection(1).ApplyDataLabels(null,0,0,0,0,0,1)//图表数据样式

oChart.Axes(1, 1).CategoryType = -4105//图表分类类型

oChart.Axes(1).TickLabels.Orientation = 60//设置柱形图的标题倾斜度

oChart.ApplyCustomType("22","默认")//图表样式

oXL.ActiveWindow.Zoom = 80//显示窗口比例

}

以下是生成的图表



下面是excel中的帮助，这个函数很重要，大部分图表选项都是用这个函数设置

expression.ChartWizard(Source,
Gallery, Format,
PlotBy, CategoryLabels,
SeriesLabels, HasLegend,
Title, CategoryTitle,
ValueTitle, ExtraTitle)
expression 必需。该表达式返回“应用于”列表中的对象之一。

Source Variant 类型，可选。包含新图表的源数据的区域。如果省略本参数，Microsoft Excel 将更改活动图表工作表，或活动工作表中处于选定状态的嵌入图表。

Gallery XlChartType 类型，可选。图表类型。

XlChartType 可为以下 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 类型，可选。三维图表的系列轴标题，或二维图表的第二数值轴标题。