如何用asp把access中数据导出到excel表格中.doc

如何用asp把access中数据导出到excel表格中？ASP操作Excel技术总结目录一、环境配置二、ASP对Excel的基本操作三、ASP操作Excel生成数据表四、ASP操作Excel生成Chart图五、服务器端Excel文件浏览、下载、删除方案六、附录正文一、环境配置服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：1Win9x+PWS+Office2Win2000Professional+PWS+Office3Win2000Server+IIS+Office目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。服务器端环境配置还有两个偶然的发现是：1笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。2笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择MicrosoftExcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。二、ASP对Excel的基本操作1、建立Excel对象setobjExcelApp=CreateObject(Excel.Application)objExcelApp.DisplayAlerts=false不显示警告objExcelApp.Application.Visible=false不显示界面2、新建Excel文件objExcelApp.WorkBooks.addsetobjExcelBook=objExcelApp.ActiveWorkBooksetobjExcelSheets=objExcelBook.WorksheetssetobjExcelSheet=objExcelBook.Sheets(1)3、读取已有Excel文件strAddr=Server.MapPath(.)objExcelApp.WorkBooks.Open(strAddr&TempletTable.xls)setobjExcelBook=objExcelApp.ActiveWorkBooksetobjExcelSheets=objExcelBook.WorksheetssetobjExcelSheet=objExcelBook.Sheets(1)4、另存Excel文件objExcelBook.SaveAsstrAddr&TempTable.xls5、保存Excel文件objExcelBook.Save（笔者测试时保存成功，页面报错。）6、退出Excel操作objExcelApp.Quit一定要退出setobjExcelApp=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=InternetExplorer3、选中一个范围4、单元格左边画粗线条5、单元格右边画粗线条6、单元格上边画粗线条7、单元格下边画粗线条8、单元格设定背景色9、合并单元格10、插入行11、插入列四、ASP操作Excel生成Chart图1、创建Chart图objExcelApp.Charts.Add2、设定Chart图种类objExcelApp.ActiveChart.ChartType=97注：二维折线图，4；二维饼图，5；二维柱形图，513、设定Chart图标题objExcelApp.ActiveChart.HasTitle=TrueobjExcelApp.ActiveChart.ChartTitle.Text=AtestChart4、通过表格数据设定图形objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.Range(A1:k5),15、直接设定图形数据（推荐）objExcelApp.ActiveChart.SeriesCollection.NewSeriesobjExcelApp.ActiveChart.SeriesCollection(1).Name=333objExcelApp.ActiveChart.SeriesCollection(1).Values=6、绑定Chart图objExcelApp.ActiveChart.Location17、显示数据表objExcelApp.ActiveChart.HasDataTable=True8、显示图例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出现的死进程出现是一件很头疼的事情。在每个文件前加上“OnErrorResumeNext”将有助于改善这种情况，因为它会不管文件是否产生错误都坚持执行到“Application.Quit”，保证每次程序执行完不留下死进程。*把我的SIMS程序的一个文件给你吧。就是Access导出EXCEL文件的。导出Excel表1thenCallMainelseResponse.writeNoViewendifSubMainDimExcelSqlDimrsExcelSql=request.form(ExcelSql)Response.writeExcelSqlexitsubOnerrorresumenextSetrs=conn.execute(ExcelSql)iferr.Number0thenResponse.writeerr.Description&aspButton(返回上一页,1)rs.closesetrs=nothingexitsubendififrs.eofthenResponse.write没有记录可导出！&aspButton(返回上一页,1)rs.closesetrs=nothingexitsubendifDimApp,Book,Shts,ShtsetApp=CreateObject(Excel.Application)App.DisplayAlerts=false不显示警告App.Application.Visible=false不显示界面添加Excel表App.WorkBooks.addsetBook=App.ActiveWorkBooksetShts=Book.WorksheetssetSht=Book.Sheets(1)Sht.Range(A1:O1).Value=Array(学号,姓名,系别,专业,月份,是否暂缓,ABC类型,单位名,单位城市,联系电话,联系人,单位性质,岗位名称,就业状态,审核)Dimr行数r=2从第二行开始写DimDeferOctEmp,IsCheckdowhilenotrs.eofIfrs(DeferOctEmp)ThenDeferOctEmp=是elseDeferOctEmp=否endifIfrs(IsCheck)=3thenIsCheck=系主任审核elseifrs(IsCheck)=4thenIsCheck=就业指导中心审核elseIsCheck=未审核endifSht.Range(A&r&:O&r).Value=Array(cstr(rs(StudentID),rs(StudentName),rs(DepartmentName),rs(SpecialtyName),rs(CountMonth),DeferOctEmp,rs(ABCsort),rs(CompanyName),rs(CityName),rs(CompanyPhone),rs(LinkName),rs(CompanyType),rs(JobAppellation),rs(ObtainEmpType),IsCheck)rs.movenextr=r+1looprs.closesetrs=nothing设置自动列宽Sht.Range(A1:O&(r-1).Columns.AutoFit保存Excel文件DimExcelFileExcelFile=Excel/&UserID&.xlsBook.S