ASP与电子表格EXCEL的交互操作 -友情网中网「Www.33EE.Com」

ASP文摘

ASP教程
 ASP文摘
 ASP实例
 ASP FAQ
ASP安全
 ASP组件
 ASP其它

本类阅读TOP10

·负载平衡环境下的ASP会话管理（转）（二）
·Chinaasp论坛精华帖全文检索器技术内幕
·如何解决图形和文字的显示问题
·ASP中处理#include
·Microsoft Script Debugger说明书
·在ASP处理程序时，进度显示
·全面考察“禁用浏览器后退按钮”
·ASP中FSO的神奇功能 - 权限许可
·用ASP创建Microsoft Word 文件
·关于数据库连接的一点浅见

→ 精品推荐

ASP与电子表格EXCEL的交互操作

作者：未知来源：未知 加入时间：2004-12-1

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

' Save the the excelsheet to chart.xls
MyExcelChart.SaveAs "c:\chart.xls"

%>
<HTML>
<HEAD>
<TITLE>MyExcelChart</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>

（出处：不详）

相关文章：
相关软件：


\| 网络工具 \| 系统工具 \| 应用软件 \| 多媒体类 \| 联络聊天 \| 行业软件 \| 图形图像 \| 安全相关 \| 编程开发 \| 教育教学 \| 游戏娱乐 \| \| 程序源码 \| ASP 源码 \| CGI 源码 \| PHP 源码 \| 驱动下载 \| 字体下载 \| 素材下载 \| 桌面大全 \| 闪客天地 \| 外挂插件 \| 考题下载 \|


站内搜索：