asp操作excel文件

来源:互联网 发布:商业网站的域名 编辑:程序博客网 时间:2024/04/28 23:18
<%
dim connxls,connstrxls
connstrxls="DBQ=d:/newexcel.xls;DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};"
set connxls=server.createobject("ADODB.CONNECTION")
connxls.open connstrxls
Set rsxls=Server.CreateObject("ADODB.Recordset")
SQLxls = "select * from [new$]"
rsxls.open SQLxls,connxls,1,1
%> 

注意: 写法和连接ACCESS基本相同,不同的是,在调用工作表的时候,不能直接用表名,工作表名后要加$,而且要用“[]”括起来。

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.Save As strAddr&"/Temp/Table.xls"
%>
5、保存Excel文件
<%
objExcelBook.Save (笔者测试时保存成功,页面报错。)
%>
6、退出Excel操作
<%
objExcelApp.Quit  '一定要退出
setobjExcelApp=Nothing
%>
三、ASP操作Excel生成数据表
1、在一个范围内插入数据
objExcelSheet.Range("B3:k3").value="http://www.vcmblog.com/Array("67","87","5","9","7","45","45","54","54","10")
2、在一个单元格内插入数据
objExcelSheet.Cells(3,1).value="http://www.vcmblog.com/InternetExplorer"
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="AtestChart"
4、通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.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.Location1
7、显示数据表
objExcelApp.ActiveChart.HasDataTable=True
8、显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey=True五、服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以实现,建议用客户端的方法,原因是给服务器更多的时间生成Excel文件。
原创粉丝点击