 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
现在我们针对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 \\\' populate the cells 添EXCEL表格 MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10") MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array("10", "10", "8", "27", "33", "37", "50", "54", "10", "10") MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array("23", "3", "86", "64", "60", "18", "5", "1", "36", "80") MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer" MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape" MyExcelChart.ActiveSheet.Cells(5,1).Value="Other" \\\' 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" %> Now lets complete the HTML tags. 下面是HTML代码 <HTML> <HEAD> <TITLE>MyExcelChart</TITLE> </HEAD> <BODY> </BODY> </HTML> This completes yer ASP page, look below for the complete code of myexcelchart.asp 下面是源程序myexcelchart.asp的完整代码 <%@ LANGUAGE="VBSCRIPT" %> <% Set MyExcelChart = CreateObject("Excel.Sheet") MyExcelChart.Application.Visible = True MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10") MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array("10", "10", "8", "27", "33", "37", "50", "54", "10", "10") MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array("23", "3", "86", "64", "60", "18", "5", "1", "36", "80") MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer" MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape" MyExcelChart.ActiveSheet.Cells(5,1).Value="Other" MyExcelChart.ActiveSheet.Range("b2:k5").Select MyExcelChart.Charts.Add 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 MyExcelChart.SaveAs "c:chart.xls" %> <HTML> <HEAD> <TITLE>MyExcelChart</TITLE> </HEAD> <BODY> </BODY> </HTML> 返回类别: 教程 上一教程: FSO组件之文件操作 下一教程: ADODB.STREAM的属性和用法 您可以阅读与"如何用ASP建立图表"相关的教程: · 如何使用ASP在自己的网站建立投票机制(二) · 如何用ASP输出HTML文件 · 如何用ASP编写网站统计系统（二） · 如何用ASP编写网站统计系统三 · 如何用ASP编写网站统计系统 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
