A: Here we go again with another sample for Excel, this time we will be using ASP to create a chart. You all asked me for it, now here is the solution. Thanks again for all your nice comments :)
现在我们针对EXCEL举另外一个例子,大家都询问如何用ASP建立图表的问题,以下就是解决方案
First we set the type of script
首先设定脚本类型
<%@ LANGUAGE="VBSCRIPT" %>
Make the object, and set the object to an Excelsheet
建立Excelsheet对象
Dim MyExcelChart
Set MyExcelChart = CreateObject("Excel.Sheet")
' show or dont show excel to user, TRUE or FALSE
是否让用户看到EXCEL表格,真或假
MyExcelChart.Application.Visible = True
' Select the contents that need to be in the chart
在EXCEL表中选择要在图表(CHART)中显示的数据
MyExcelChart.ActiveSheet.Range("b2:k5").Select
' Add the chart
加载图表(CHART)
MyExcelChart.Charts.Add
' Format the chart, set type of chart, shape of the bars, show title, get the data for the chart, show datatable, show legend
初始化图表(CHART),设定图表类型,棒图的形状,要显示的标题,取得要作图的数据,显示数据表,显示图表
MyExcelChart.activechart.ChartType = 97
MyExcelChart.activechart.BarShape =3
MyExcelChart.activechart.HasTitle = True
MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage"
MyExcelChart.activechart.SetSourceData MyExcelChart.Sheets("Sheet1").Range("A1:k5"),1
MyExcelChart.activechart.Location 1
MyExcelChart.activechart.HasDataTable = True
MyExcelChart.activechart.DataTable.ShowLegendKey = True
' Save the the excelsheet to excelface
存入EXCEL表
MyExcelChart.SaveAs "c:\chart.xls"
%>