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

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”，保证每次程序执行完不留下死进程。

posted on 2005-03-08 17:07 爬行的E.T 阅读(6) 评论(1)  编辑 收藏

评论

# re: ASP操作Excel技术总结    

这个程序一共由三个文件构成，**个文件的文件名为：toexcel.asp是主文件，内容如下：

<%

'前面是和来链接到数据库,请自行书写相关语句，此处略过

sql="select * from [tx_use]" '这里是要输出EXCEL的查询语句，如 "SESECT * FORM CAI WHERE 性别='女'"

filename="excel.xls" ' 要输出的EXCEL文件的文件名, 你只要改以上两句就行了,其它的都不要改.

'你只要修改以上两变量就行了.其它的我都做好了.

call toexcel(FILENAME,sql)

set conn=nothing

function ReadText(FileName) '这是一个用于读出文件的函数

set adf=server.CreateObject("Adodb.Stream")

with adf

.Type=2

.LineSeparator=10

.Open

.LoadFromFile (server.MapPath(FileName))

.Charset="GB2312"

.Position=2

ReadText=.ReadText

.Cancel()

.Close()

end with

set ads=nothing

end function

sub SaveText(FileName,Data) '这是一个用于写文件的函数

set fs= createobject("scripting.filesystemobject")

set ts=fs.createtextfile(server.MapPath(FileName),true)

ts.writeline(data)

ts.close

set ts=nothing

set fs=nothing

end sub

sub toexcel(filename,sql) '这是一个根据SQL语句和FILENAME生成EXCEL文件

Set rs=Server.CreateObject("ADODB.RecordSet")

rs.Open sql,conn,1,3

TOEXCELLR="<table width='100%'><tr >"

set myfield=rs.fields

dim fieldname(50)

for i=0 to myfield.count-1

toexcellr=toexcellr&"<td class=xl24>"&MYFIELD(I).NAME&"</td>"

fieldname(i)=myfield(i).name

if myfield(i).type=135 then datename=datename&myfield(i).name&","

next

toexcellr=toexcellr&"</tr>"

do while not rs.eof

toexcellr=toexcellr&"<tr>"

for i=0 to myfield.count-1

if instr(datename,fieldname(i)&",")<>0 then

if not isnull(rs(fieldname(i))) then

TOEXCELLR=TOEXCELLR&"<td class=xl25 ><p align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"

else

TOEXCELLR=TOEXCELLR&"<td class=xl25 ><p align='left'>　</p></td>"

end if

else

TOEXCELLR=TOEXCELLR&"<td class=xl24 >"&rs(fieldname(i))&"</td>"

end if

next

toexcellr=toexcellr&"</tr>"

rs.movenext

loop

toexcellr=toexcellr&"</table>"

tou=readtext("tou.txt")

di=readtext("di.txt")

toexcellr=tou&toexcellr&di

call savetext(filename,toexcellr)

end sub

%>

<html>

<head>

<meta http-equiv="refresh" content="3;URL=<%=filename%>">

<meta http-equiv="Content-Language" content="en-us">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>正在生成EXLCE文件</title>

</head>

<BODY>

正在生成EXLCE文件....

</BODY>

</HTML>

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二个文件名为：di.txt 内容如下：

<table x:str border=0 cellpadding=0 cellspacing=0 width=288 style='border-collapse:

collapse;table-layout:fixed;width:216pt'>

<![if supportMisalignedColumns]>

<tr height=0 style='display:none'>

<td width=72 style='width:54pt'></td>

<td width=72 style='width:54pt'></td>

<td width=72 style='width:54pt'></td>

<td width=72 style='width:54pt'></td>

</tr>

<![endif]>

</table>

＊＊＊＊＊＊＊＊＊＊＊＊第三个文件的文件名为：tou.TXT　内容如下：

<html xmlns:o="urn:schemas-microsoft-com:office:office"

xmlns:x="urn:schemas-microsoft-com:office:excel"

xmlns="http://www.w3.org/TR/REC-html40">

<head>

<meta http-equiv=Content-Type content="text/html; charset=GB2312">

<meta name=ProgId content=Excel.Sheet>

<meta name=Generator content="Microsoft Excel 9">

<link rel=File-List href="./222.files/filelist.xml">

<link rel=Edit-Time-Data href="./222.files/editdata.mso">

<link rel=OLE-Object-Data href="./222.files/oledata.mso">

<!--[if gte mso 9]><xml>

<DocumentProperties>

<Author>xky</Author>

<LastAuthor>xky</LastAuthor>

<Created>2002-05-27T17:51:00Z</Created>

<LastSaved>2002-06-22T10:03:03Z</LastSaved>

<Company>zydn</Company>

<Version>9.2812</Version>

</DocumentProperties>

<OfficeDocumentSettings>

<DownloadComponents/>

<LocationOfComponents HRef="file:///E:/msowc.cab"/>

</OfficeDocumentSettings>

</xml><![endif]-->

<style>

<!--table

{mso-displayed-decimal-separator:"\.";

mso-displayed-thousand-separator:"\,";}

@page

{margin:1.0in .75in 1.0in .75in;

mso-header-margin:.5in;

mso-footer-margin:.5in;}

tr

{mso-height-source:auto;

mso-ruby-visibility:none;}

col

{mso-width-source:auto;

mso-ruby-visibility:none;}

br

{mso-data-placement:same-cell;}

.style0

{mso-number-format:General;

text-align:general;

vertical-align:bottom;

white-space:nowrap;

mso-rotate:0;

mso-background-source:auto;

mso-pattern:auto;

color:windowtext;

font-size:9.0pt;

font-weight:400;

font-style:normal;

text-decoration:none;

font-family:宋体;

mso-generic-font-family:auto;

mso-font-charset:134;

border:none;

mso-protection:locked visible;

mso-style-name:常规;

mso-style-id:0;}

td

{mso-style-parent:style0;

padding-top:1px;

padding-right:1px;

padding-left:1px;

mso-ignore:padding;

color:windowtext;

font-size:9.0pt;

font-weight:400;

font-style:normal;

text-decoration:none;

font-family:宋体;

mso-generic-font-family:auto;

mso-font-charset:134;

mso-number-format:General;

text-align:general;

vertical-align:bottom;

border:none;

mso-background-source:auto;

mso-pattern:auto;

mso-protection:locked visible;

white-space:nowrap;

mso-rotate:0;}

.xl24

{mso-style-parent:style0;

border:.5pt solid windowtext;}

.xl25

{mso-style-parent:style0;

mso-number-format:"Long Date";

text-align:left;

border:.5pt solid windowtext;}

ruby

{ruby-align:left;}

rt

{color:windowtext;

font-size:9.0pt;

font-weight:400;

font-style:normal;

text-decoration:none;

font-family:宋体;

mso-generic-font-family:auto;

mso-font-charset:134;

mso-char-type:none;

display:none;}

-->

</style>

<!--[if gte mso 9]><xml>

<x:ExcelWorkbook>

<x:ExcelWorksheets>

<x:ExcelWorksheet>

<x:Name>Sheet1</x:Name>

<x:WorksheetOptions>

<x:DefaultRowHeight>225</x:DefaultRowHeight>

<x:print>

<x:ValidPrinterInfo/>

<x:paperSizeIndex>9</x:paperSizeIndex>

<x:HorizontalResolution>-3</x:HorizontalResolution>

<x:VerticalResolution>0</x:VerticalResolution>

</x:print>

<x:Selected/>

<x:panes>

<x:pane>

<x:Number>3</x:Number>

<x:ActiveRow>24</x:ActiveRow>

<x:ActiveCol>5</x:ActiveCol>

</x:pane>

</x:panes>

<x:protectContents>False</x:protectContents>

<x:protectObjects>False</x:protectObjects>

<x:protectScenarios>False</x:protectScenarios>

</x:WorksheetOptions>

</x:ExcelWorksheet>

<x:ExcelWorksheet>

<x:Name>Sheet2</x:Name>

<x:WorksheetOptions>

<x:DefaultRowHeight>225</x:DefaultRowHeight>

<x:protectContents>False</x:protectContents>

<x:protectObjects>False</x:protectObjects>

<x:protectScenarios>False</x:protectScenarios>

</x:WorksheetOptions>

</x:ExcelWorksheet>

<x:ExcelWorksheet>

<x:Name>Sheet3</x:Name>

<x:WorksheetOptions>

<x:DefaultRowHeight>225</x:DefaultRowHeight>

<x:protectContents>False</x:protectContents>

<x:protectObjects>False</x:protectObjects>

<x:protectScenarios>False</x:protectScenarios>

</x:WorksheetOptions>

</x:ExcelWorksheet>

</x:ExcelWorksheets>

<x:WindowHeight>6600</x:WindowHeight>

<x:WindowWidth>12000</x:WindowWidth>

<x:WindowTopX>0</x:WindowTopX>

<x:WindowTopY>1395</x:WindowTopY>

<x:protectStructure>False</x:protectStructure>

<x:protectWindows>False</x:protectWindows>

</x:ExcelWorkbook>

</xml><![endif]-->

</head>

<body link=blue vlink=purple>