vbscript ms owc 封�代码

复制代码 代码如下:

”owc.vbs

class owc

private o

‘传入物件

public property set set_obj(o_id)

set o=o_id

end property

‘画图矩形图

‘chart_bgcolor_图表的背景颜色

‘chartCaption_图表的标题

‘chartCaption_fontColor_图表标题颜色

‘Interior_Color_矩形内的填充颜色

‘Caption_名称

‘categories_名称数组

‘values_值数组串

public sub bar(chart_bgcolor_,chartCaption_,chartCaption_fontColor_,Interior_Color_,Caption_,categories_,values_)

o.Clear

set cht = o.Charts.Add

set c = o.Constants

cht.Type = c.chChartTypeColumnClustered

‘设背景色或是填充

o.Charts(0).PlotArea.Interior.SetSolid chart_bgcolor_

‘加上图表的标题

o.HasChartSpaceTitle = True

set cst=o.ChartSpaceTitle

cst.Caption = chartCaption_

cst.Font.Color = chartCaption_fontColor_

cst.Font.Italic = False

cst.Font.Name = “Arial”

cst.Font.Size = 12

cst.Font.Underline = c.owcUnderlineStyleSingle

‘添加数据

cht.SetData c.chDimCategories, c.chDataLiteral, categories_

cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_

‘直条的背景色进行设定

set sc=o.Charts(0).SeriesCollection(0)

sc.Interior.Color=Interior_Color_

‘直条上的显示设置

sc.Caption=Caption_

set dl = cht.SeriesCollection(0).DataLabelsCollection.Add

dl.HasValue = True

dl.HasPercentage = False

dl.Font.Size = 9

dl.Font.Color = “red”

dl.Position = c.chLegendPositionRight

dl.NumberFormat = “00.00%”

‘左边百分比的属性设置

Set cta = cht.Axes(c.chAxisPositionLeft)

cta.Font.Size = 9

cta.NumberFormat = “0.0%”

cta.MajorUnit = 0.1

end sub

‘多系列矩形图

‘chart_bgColor_图表的背景颜色

‘chartCaption_图表的标题

‘chartCaption_fontColor_图表标题颜色

‘color_颜色数组

‘caption_名称数组

‘categories_名称数组

‘values_值数组

public sub serBar(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,caption_,categories_,values_)

o.Clear

o.Charts.Add

Set c = o.Constants

‘图表的类型

o.Charts(0).type=c.chChartTypeColumnClustered

‘给绘图区加背景色

o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_

”加上图表的标题

o.HasChartSpaceTitle = True

o.ChartSpaceTitle.Caption = chartCaption_

‘标题的属性

o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_

o.ChartSpaceTitle.Font.Italic = False

o.ChartSpaceTitle.Font.Name = “Arial”

o.ChartSpaceTitle.Font.Size = 12

o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle

‘用循环来新增SeriesCollection以及里面的内容

for i=0 to ubound(caption_)

valuetemp=””

for j = i*(ubound(categories_)+1) to (i+1)*(ubound(categories_)+1)-1

valuetemp = valuetemp & “,” & values_(j)

next

valuearr = split(mid(valuetemp,2),”,”)

o.Charts(0).SeriesCollection.Add

o.Charts(0).SeriesCollection(i).Caption = caption_(i)

o.Charts(0).SeriesCollection(i).Interior.Color = color_(i)

o.Charts(0).SeriesCollection(i).SetData c.chDimCategories, c.chDataLiteral, categories_

o.Charts(0).SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr

set dl = o.Charts(0).SeriesCollection(i).DataLabelsCollection.Add

dl.HasValue = True

dl.HasPercentage = False

dl.Font.Size = 9

dl.Font.Color = “red”

dl.Position = c.chLegendPositionRight

dl.NumberFormat = “00.00%”

next

”图例的设定

o.Charts(0).HasLegend = True

o.Charts(0).Legend.Font.Size = 9

o.Charts(0).Legend.Position = c.chLegendPositionBottom

”左边百分比的属性设置

Set cta = o.Charts(0).Axes(c.chAxisPositionLeft)

cta.Font.Size = 9

cta.NumberFormat = “0.00%”

cta.MajorUnit = 0.1

end sub

‘画圆饼图

‘chart_bgColor_绘图区加背景色

‘chartCaption_图表的标题

‘chartCaption_fontColor_图表标题颜色

public sub Pie(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_)

o.Clear

Set cht = o.Charts.Add

Set c = o.Constants

cht.Type = c.chChartTypePie3d

‘给绘图区加背景色

o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_

cht.ExtrudeAngle = 90

cht.ChartDepth = 169

cht.AspectRatio = 120

cht.Rotation =180

cht.Inclination=70

o.HasChartSpaceTitle = True

o.ChartSpaceTitle.Caption = chartCaption_

o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_

o.ChartSpaceTitle.Font.Name = “Arial”

o.ChartSpaceTitle.Font.Size = 12

o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle

cht.HasLegend = True

cht.Legend.Font.Size = 9

cht.Legend.Position = c.chLegendPositionBottom

cht.SetData c.chDimCategories, c.chDataLiteral, categories_

cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_

set sc=o.Charts(0).SeriesCollection(0)

sc.Caption=Caption_

Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add

dl.Separator = “：”

dl.HasValue = false

dl.HasSeriesName = false

dl.HasCategoryName=true

dl.HasPercentage = true

dl.Font.Size = 9

dl.Font.Color = “red”

dl.NumberFormat = “00.00%”

end sub

‘拆线图

‘chart_bgColor_绘图区加背景色

‘chartCaption_图表的标题

‘chartCaption_fontColor_图表标题颜色

public sub line(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_)

o.Clear

Set cht = o.Charts.Add

Set c = o.Constants

cht.Type = c.chChartTypeLineMarkers

‘给绘图区加背景色

o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_

o.HasChartSpaceTitle = True

o.ChartSpaceTitle.Caption = chartCaption_

o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_

o.ChartSpaceTitle.Font.Name = “Arial”

o.ChartSpaceTitle.Font.Size = 12

o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle

cht.SetData c.chDimCategories, c.chDataLiteral, categories_

cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_

set sc=o.Charts(0).SeriesCollection(0)

sc.Caption=Caption_

Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add

dl.HasValue = True

dl.HasPercentage = False

dl.Font.Size = 9

dl.Font.Color = “red”

Set categoryAxis = cht.Axes(c.chAxisPositionBottom)

categoryAxis.Font.Size = 9

Set categoryAxis = cht.Axes(c.chAxisPositionLeft)

categoryAxis.Font.Size = 9

end sub

‘多系列拆线图

‘chart_bgColor_图表的背景颜色

‘chartCaption_图表的标题

‘chartCaption_fontColor_图表标题颜色

‘color_颜色数组

‘caption_名称数组

‘categories_名称数组

‘values_值数组

public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_)

o.Clear

Set cht = o.Charts.Add

Set c = o.Constants

‘设置图表类型

cht.Type = c.chChartTypeLineMarkers

‘给绘图区加背景色

o.Charts(0).PlotArea.Interior.Color=chart_bgColor_

‘加上标题

o.HasChartSpaceTitle = True

o.ChartSpaceTitle.Caption = chartCaption_

o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_

o.ChartSpaceTitle.Font.Name = “Arial”

o.ChartSpaceTitle.Font.Size = 12

”添加数据

cht.SetData c.chDimseriesNames, c.chDataLiteral, SeriesNames_

cht.SetData c.chDimCategories, c.chDataLiteral, Categories_

set categoryAxis = cht.Axes(c.chAxisPositionBottom)

categoryAxis.Font.Size = 9

Set categoryAxis = cht.Axes(c.chAxisPositionLeft)

categoryAxis.Font.Size = 9

for i = 0 to ubound(SeriesNames_)

valuetemp = “”

for j = i*(ubound(Categories_)+1) to (i+1)*(ubound(Categories_)+1)-1

valuetemp = valuetemp & “,” & values_(j)

next

valuearr = split(mid(valuetemp,2),”,”)

cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr

cht.SeriesCollection(i).Line.Color = color_(i)

cht.SeriesCollection(i).Line.Weight = c.owcLineWeightThin

cht.SeriesCollection(i).Marker.Style = c.chMarkerStyleDiamond

cht.SeriesCollection(i).Interior.Color = color_(i)

Set dl = cht.SeriesCollection(i).DataLabelsCollection.Add

dl.HasValue = true

dl.HasPercentage = false

dl.Font.Size = 9

dl.font.color=”red”

next

end sub

‘清除图型

public sub clear()

o.Clear

end sub

end class

使用测试代码：


复制代码 代码如下:

<html>

<head>

<title>vbscript owc class test</title>

<script language=”vbscript” src=”owc.vbs”></script>

<script language=”vbscript”>

sub window_onload()

set t = new owc

categories =Array(“A2-1″,”A2-2″,”A2-3″,”A3-1″,”A3-2”,”A3-3″_

,”B2-1″,”B2-2″,”B2-3″,”B3-1″,”B3-2″,”B3-3″_

,”C2-1″,”C2-2″,”C3-1″,”C3-2″,”C3-3″)

values = Array(0.813,0.689,0.800,0.833,0.681,0.864,0.743_

,0.894,0.822,0.874,0.746,0.908,0.850_

,0.728,0.731,0.734,0.624)

set t.set_obj=document.getElementById(“cs1”)

t.bar “#FFFFFF”,”报表标题”,”BLUE”,”#CCCC00″,”组别”,categories,values

color=Array(“#CCFFFF”,”#99CCFF”,”#00CCFF”,”#FF0000″,”#660066″,”#FF8080″)

caption=Array(“第1周”,”第2周”,”第3周”,”第4周”)

categories=Array(“A栋”,”B栋”)

values=Array(0.6951,0.5798,0.7075,0.512,0.7907,0.7493,0.8691,0.7716)

set t.set_obj=document.getElementById(“cs2”)

t.serbar “#FFFFFF”,”2008年10月坑头三厂各周各楼层达成率比较图”,”red”,color,caption,categories,values

categories=array(“台北”,”上海”)

values = array(238760,912560.62)

set t.set_obj=document.getElementById(“cs3”)

t.Pie “#FFFFFF”,”销售金额所�比例(城市分类)”,”BLUE”,”城市”,categories,values

categories =array(“2008/11/1″,”2008/11/2″,”2008/11/3″,”2008/11/4″,”2008/11/5″,”2008/11/6″,”2008/11/7″,”2008/11/8″,”2008/11/9″,”2008/11/10″,”2008/11/11″,”2008/11/12″,”2008/11/13″,”2008/11/14″,”2008/11/15″,”2008/11/16″,”2008/11/17″,”2008/11/18″,”2008/11/19″,”2008/11/20″,”2008/11/21″,”2008/11/22″,”2008/11/23″,”2008/11/24″,”2008/11/25″,”2008/11/26″,”2008/11/27″,”2008/11/28″,”2008/11/29″,”2008/11/30”)

values = array(67239.89,60400.26,7202.89,18453.12,28889.29,102136.25,78826.39,146291.6,93743.29,44204.44,45349.28,50730.6,37900.21,84359.87,169333.62,114594.96,75334.77,51360.32,55853.05,37912.63,45068.22,63930.98,72993.71,18699.5,24714.5,34792.91,39414.58,92171.2,74433.06,3998894.41)

set t.set_obj=document.getElementById(“cs4”)

t.line “#FFFFFF”,”销售金额”,”BLUE”,”日期”,categories,values

color=Array(“#CCFFFF”,”#99CCFF”,”#00CCFF”,”#FF0000″)

SeriesNames = array(“A产品”,”B产品”,”C产品”,”D产品”)

Categories = array(“2005/3/24″,”2005/3/25″,”2005/3/26″,”2005/3/27″,”2005/3/28”)

values = array(50,100,20,80,89,40,60,20,90,70,20,50,55,25,60,80,20,75,58,100)

set t.set_obj=document.getElementById(“cs5”)

t.serline “#FFFFFF”,”达成率月报表”,”red”,color,SeriesNames,categories,values

set t=nothing

end sub

</script>

</head>

<body>

<div id=”c1″><object id=”cs1″ name=”cs1″ classid=”CLSID:0002E55D-0000-0000-C000-000000000046″ codebase=”owc11.dll” style=”width:100%;height:350″></object></div>

<div id=”c2″><object id=”cs2″ name=”cs2″ classid=”CLSID:0002E55D-0000-0000-C000-000000000046″ codebase=”owc11.dll” style=”width:100%;height:350″></object></div>

<div id=”c3″><object id=”cs3″ name=”cs3″ classid=”CLSID:0002E55D-0000-0000-C000-000000000046″ codebase=”owc11.dll” style=”width:100%;height:350″></object></div>

<div id=”c4″><object id=”cs4″ name=”cs4″ classid=”CLSID:0002E55D-0000-0000-C000-000000000046″ codebase=”owc11.dll” style=”width:100%;height:350″></object></div>

<div id=”c5″><object id=”cs5″ name=”cs5″ classid=”CLSID:0002E55D-0000-0000-C000-000000000046″ codebase=”owc11.dll” style=”width:100%;height:350″></object></div>

</body>

</html>

owc是什么？

Office Web Components是一组的COM控件，设计的目的是为众多的控件容器提供交互的电子表格建模，数据报表和数据可视化功能。OWC库包含四个主要的组件：电子表格组件，图表组件，透视表组件和数据源组件。

　　“Office Web Components”名称中的单词”Office”表示这些控件就是由那些开发微软Excel和Access的程序员中的一部分人开发的，并且这些控件被设计成在外观，使用感受和行为表现上就像是他们的微软Office兄弟的精简版一样。这些控件确实不包含Excel和Access中的所有的功能――换句话说，你也不会为了在浏览器中查看一个报表而动态的下载完整的Excel和Access，这些控件也确实包含了许多的常用功能，尤其是那些在与已有内容进行交互时所必需的功能。此外，这些控件还能够读写Excel 2000的HTML格式的文件，允许用户点击一个按钮，将当前的数据加载到Excel中，以便作更加强大的分析。