asp execl 技术总结

　一、 环境设置

　　服务器端的环境设置从参考数据上看，微软系列的设置应该都行，即：

　　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即可，版本通用的好象都能。

　　二、 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

　　三、 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、 插入列

　　四、 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

　　五、 服务器端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 暂存目录

　　六、 附录

　　出错时Excel出现的死进程出现是一件非常头疼的事情。在每个档前加上“On Error Resume Next”将有助于改善这种情况，因为他会不管档是否产生错误都坚持执行到“Application.Quit”，确保每次程式执行完不留下死进程。

　　补充两点：

　　1、其他Excel具体操作能通过录制宏来解决。

　　2、服务器端打开SQL企业管理器也会产生问题。

　　七、例子

　　<%

　　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")

　　objExcelSheet.Range("B4:k4").Value = Array("10", "10", "8", "27", "33", "37", "50", "54", "10", "10")

　　objExcelSheet.Range("B5:k5").Value = Array("23", "3", "86", "64", "60", "18", "5", "1", "36", "80")

　　objExcelSheet.Cells(3,1).Value="Internet Explorer"

　　objExcelSheet.Cells(4,1).Value="Netscape"

　　objExcelSheet.Cells(5,1).Value="Other"

　　objExcelSheet.Range("b2:k5").Select

　　objExcelApp.Charts.Add

　　objExcelApp.ActiveChart.ChartType = 97

　　objExcelApp.ActiveChart.BarShape =3

　　objExcelApp.ActiveChart.HasTitle = True

　　objExcelApp.ActiveChart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage"

　　objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1

　　objExcelApp.ActiveChart.Location 1

　　’objExcelApp.ActiveChart.HasDataTable = True

　　’objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

　　objExcelBook.SaveAs strAddr & "＼Temp＼Excel.xls"

　　objExcelApp.Quit

　　set objExcelApp = Nothing

　　%>

　　<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

　　<HTML>

　　<HEAD>

　　<TITLE> New Document </TITLE>

　　<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">

　　<META NAME="Author" CONTENT="">

　　<META NAME="Keywords" CONTENT="">

　　<META NAME="Description" CONTENT="">

　　</HEAD>

　　<BODY>

　　</BODY>

　　</HTML>

　　我在这儿再提供。将网页中表格，保存的方法。

　　例如：TABLE 的 ID=MYTABLE

　　<!--生成EXCEL?-->

　　sub btnExport_onclick()

　　dim objExcel

　　on error resume next

　　Set objExcel = CreateObject("excel.application")

　　With objExcel

　　.visible =true

　　.workbooks.add

　　.sheets("sheet1").select

　　End with

　　m_row="0"

　　for a=0 to document.all.mytable.rows.length-1

　　m_row = cstr(int (m_row)+1)

　　for b=0 to document.all.mytable.rows(a).cells.length-1

　　m_col = chr(asc("A")+b)

　　objexcel.range(m_col&m_row).select

　　M_value = document.all.mytable.rows(a).cells(b).innerText

　　objexcel.activecell.value=cstr(m_value)

　　next

　　next

　　objexcel.visible=true

　　objexcel.range("A1").select

　　End sub