服务器之家

服务器之家 > 正文

ASP与Excel结合生成数据表和Chart图的代码

时间:2019-09-06 11:57     来源/作者:服务器之家

目录 
一、  环境配置 
二、  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、  改变单元格文字颜色 
objExcelSheet.Cells(3,1).Font.Color=vbred 
4、  单元格四周画线条 
objExcelSheet.Cells(3.1).Borders(1).LineStyle =1 
objExcelSheet.Cells(3.1).Borders(2).LineStyle =1 
objExcelSheet.Cells(3.1).Borders(3).LineStyle =1 
objExcelSheet.Cells(3.1).Borders(4).LineStyle =1 
区域中间画线条 
objExcelSheet.Range(“A1:G7”).Borders(7).LineStyle =1 
objExcelSheet.Range(“A1:G7”).Borders(8).LineStyle =1 

8、  单元格设定背景色 
objExcelSheet.Cells(3.1).Interior.colorindex=17 
9、  合并单元格 
objExcelSheet.Range(“A1:G7”).Merge 
10、  设置左右对齐方式 
2 left 3 middle 4 right 
objExcelSheet.Range("A1").HorizontalAlignment = 2 
11、  设置上下对齐方式 
2 为居中 
objExcelSheet.Range("A1")..VerticalAlignment = 2 


四、  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 = "=" 
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企业管理器也会产生问题。 

复制代码代码如下:


<% 
OnErrorResumeNextstrAddr=Server.MapPath(".")setobjExcelApp=CreateObject("Excel.Application") 
objExcelApp.DisplayAlerts=false 
objExcelApp.Application.Visible=false 
objExcelApp.WorkBooks.Open(strAddr&"\Templet\Null.xls") 
setobjExcelBook=objExcelApp.ActiveWorkBook 
setobjExcelSheets=objExcelBook.Worksheets 
setobjExcelSheet=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="InternetExplorer" 
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= 
"Visitorslogforeachweekshowninbrowserspercentage" 
objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.Range("A1:k5"),1 
objExcelApp.ActiveChart.Location1 
'objExcelApp.ActiveChart.HasDataTable=True 
'objExcelApp.ActiveChart.DataTable.ShowLegendKey=TrueobjExcelBook. 
SaveAsstrAddr&"\Temp\Excel.xls"objExcelApp.Quit 
setobjExcelApp=Nothing 
%> 
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN"> 
<HTML> 
<HEAD> 
<TITLE>NewDocument</TITLE> 
<METANAME="Generator"CONTENT="MicrosoftFrontPage5.0"> 
<METANAME="Author"CONTENT=""> 
<METANAME="Keywords"CONTENT=""> 
<METANAME="Description"CONTENT=""> 
</HEAD> 
<BODY> 
</BODY> 
</HTML> 

 
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
叠猫猫队长可以退出吗 叠猫猫队长怎么换队伍
叠猫猫队长可以退出吗 叠猫猫队长怎么换队伍 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部