 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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 :) First we set the type of script <%@ LANGUAGE="VBSCRIPT" %> Make the object, and set the object to an Excelsheet Dim MyExcelChart Set MyExcelChart = CreateObject("Excel.Sheet") Now lets write the rest of the script, see the comments \\\' show or dont show excel to user, TRUE or FALSE MyExcelChart.Application.Visible = True \\\' populate the cells 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 MyExcelChart.ActiveSheet.Range("b2:k5").Select \\\' Add the 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 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 MyExcelChart.SaveAs "c:chart.xls" %> Now lets complete the HTML tags. <HTML> <HEAD> <TITLE>MyExcelChart</TITLE> </HEAD> <BODY> </BODY> </HTML> This completes yer ASP page, look below for the complete code of myexcelchart.asp <%@ LANGUAGE="VBSCRIPT" %> <% \\\' Create Object Set MyExcelChart = CreateObject("Excel.Sheet") \\\' show or dont show excel to user, TRUE or FALSE MyExcelChart.Application.Visible = True \\\' populate the cells 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 MyExcelChart.ActiveSheet.Range("b2:k5").Select \\\' Add the 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 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 chart.xls MyExcelChart.SaveAs "c:chart.xls" %> <HTML> <HEAD> <TITLE>MyExcelChart</TITLE> </HEAD> <BODY> </BODY> </HTML> 返回类别: 教程 上一教程: 了解MSMQ，控制ASP进程 (二) 下一教程: 在ASP中使用SQL语句之6:存储查询 您可以阅读与"ASP与电子表格EXCEL的交互操作"相关的教程: · ASP.NET:访问Excel 电子表格 · asp实现在web中显示电子表格数据（三）创建数据表列表和名字范围 · ASP实现在WEB中显示电子表格数据(四)创建文件选择列表 · asp实现在web中显示电子表格数据（一）显示数据表格的应用 · ASP实现在WEB中显示电子表格数据(一)显示数据表格的应用 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
