Asp操作Excel的一些基本实现

录

一、 环境配置

二、 ASP对Excel的基本操作

三、 ASP操作Excel生成数据表

四、 ASP操作Excel生成Chart图

五、 服务器端Excel文件浏览、下载、删除方案

六、 附录
正文

一、 环境配置

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

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