前往顾页
以后地位: 主页 > 收集编程 > Asp实例教程 >

ASP对excel的操纵入门

时候:2010-05-14 22:23来源:知行网www.zhixing123.cn 编辑:麦田守望者

目次
一、 环境建设
2、 ASP对Excel的根基操纵
3、 ASP操纵Excel天生数据表
4、 ASP操纵Excel天生Chart图
5、 办事器端Excel文件浏览、下载、删除计划
6、 附录

注释
一、 环境建设
办事器端的环境建设从参考质料上看,微软系列的建设应当都行,即:
1.Win9x+PWS+Office
2.Win2000 Professional+PWS+Office
3.Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特别请求,考虑到客户机建设的不肯定性和下兼容特性,建议办事器端Office版本不要太高,以避免客户机下载后无法精确显现。
办事器端环境建设另有两个偶尔的发明是:
1. 笔者开辟机器上本来装有金山的WPS2002,成果Excel工具建立始终呈现问题,卸载WPS2002后,错误消逝。
2. 笔者开辟ASP代码喜欢用FrontPage,成果发明如果FrontPage翻开(办事器端),工具建立呈现不不变征象,时而成功时而不成功。扩展考查后发明,Office系列的软件如果在办事器端运行,则Excel工具的建立很难成功。
办事器端还必必要设置的一点是COM组件的操纵权限。在号令行键入“DCOMCNFG”,则进入COM组件建设界面,挑选Microsoft Excel后点击属性按钮,将三个单选项一律挑选自定义,编辑中将Everyone插手所有权限。保存结束后从头启动办事器。
客户端的环境建设没发明甚么特别讲究的处所,只需装有Office和IE便可,版本通用的好象都可以。

2、 ASP对Excel的根基操纵
1、 建立Excel工具
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false  不显现警告
objExcelApp.Application.Visible = false  不显现界面
2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、 另存Excel文件
objExcelBook.SaveAs strAddr & "\Temp\Table.xls"
5、 保存Excel文件
objExcelBook.Save  (笔者测试时保存成功,页面报错。)
6、 加入Excel操纵
objExcelApp.Quit 必然要加入
set objExcelApp = Nothing

3、 ASP操纵Excel天生数据表
1、 在一个范围内拔出数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、 在一个单位格内拔出数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、 选中一个范围
4、 单位格左边画粗线条
5、 单位格右边画粗线条
6、 单位格上边画粗线条
7、 单位格下边画粗线条
8、 单位格设定布风景
9、 归并单位格
10、 拔出行
11、 插出列

4、 ASP操纵Excel天生Chart图
1、 建立Chart图
objExcelApp.Charts.Add
2、 设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注:二维折线图,4;二维饼图,5;二维柱形图,51
3、 设定Chart图题目
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、 经由过程表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、 直接设定图形数据(保举)
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、 绑定Chart图
objExcelApp.ActiveChart.Location 1
7、 显现数据表
objExcelApp.ActiveChart.HasDataTable = True
8、 显现图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

5、 办事器端Excel文件浏览、下载、删除计划
浏览的处理体例很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以实现,建议用客户端的别例,启事是给办事器更多的时候天生Excel文件。
下载的实现要费事一些。用网上现成的办事器端下载组件或本身定制开辟一个组件是比较好的计划。别的一种体例是在客户端操纵Excel组件,由客户端操纵办事器端Excel文件另存至客户端。这类体例请求客户端开放不宁静ActiveX控件的操纵权限,考虑到告诉每个客户将办事器设置为可托站点的费事程度建议还是用第一个别例比较费事。
删除计划由三部分构成:
A: 同一用户天生的Excel文件用同一个文件名,文件名可用用户ID号或SessionID号等可确信不反复字符串构成。如许新文件天生时主动覆盖上一文件。
B: 在Global.asa文件中设置Session_onEnd事件激起时,删除这个用户的Excel暂存文件。
C: 在Global.asa文件中设置Application_onStart事件激起时,删除暂存目次下的所有文件。
注:建议目次布局 \Src 代码目次 \Templet 模板目次 \Temp 暂存目次

6、 附录
出错时Excel呈现的死过程呈现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改良这类环境,因为它会不管文件是不是产生错误都对峙履行到“Application.Quit”,包管每次法度履行完不留下死过程。

弥补两点:
1、其他Excel详细操纵可以经由过程录制宏来处理。
2、办事器端翻开SQL企业办理器也会产生问题。

7、例子

<%
On Error Resume Next

strAddr = Server.MapPath(".")

set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Null.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)

objExcelSheet.Range("B2:k2").Value = Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10")
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")

------分开线----------------------------
标签(Tag):asp技能 asp教程
------分开线----------------------------
保举内容
猜你感兴趣