ASP导出数据到Excel

1、用Office组件完成。 sub Test() dim objExcel dim objExcelSheets,objExcelBook,objExcelSheet if Isobject(objExcel) then objExcel.Quit set objExcel=nothing end if strsql="SELECT id, title, author,url FROM article_title" adors.open strsql,adoconn,1,1 set objExcel=CreateObject("Excel.Application") '打开Excel模板 objExcel.Workbooks.Open(server.mappath("Report.xls")) '打开Excel objExcel.DisplayAlerts = false objExcel.Application.Visible = false set objExcelBook = objExcel.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) '写数据 On Error Resume Next i=2 while not adors.EOF j=1 for each x in adors.Fields objExcelSheet.cells(i,j)=x.value j=j+1 next adors.MoveNext i=i+1 wend adors.Close adoconn.Close objExcel.ActiveWorkbook.save filename=Server.Mappath("temp\"&month&"月统计.xls") objExcel.Save(filename) call downloadfile(filename) On Error Resume Next objExcel.Quit set objExcel=Nothing set objExcelBook=nothing set objExcelSheet=nothing set adors=nothing set adoconn=nothing response.write "报表生成成功" end sub 2、用Table的方式导出Excel。这种方式服务器上不用装Office，只能输出Table。 sub stat() strsql="SELECT id, title, author,url FROM article_title" adors.open strsql,adoconn,1,1 strline="

编号

标题

作者

连接地址

" response.Write strline adors.Close adoconn.Close set adors=nothing set adoconn=nothing '一定要加上这句话。 Response.ContentType="application/vnd.ms-excel" end sub

转载于:https://www.cnblogs.com/lonelywolf/archive/2006/04/10/371314.html