Asp 导出Excel

原创 2011年01月16日 14:16:00

<%
Dim xlWorkSheet
Dim xlApplication
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
set oRS=Server.CreateObject("ADODB.Recordset")
if Request("ImportExcel")="ImportExcel" then
  'If Response.IsClientConnected Then 
'  Response.Flush 
'  Else 
'  Response.End
'  End If
  Response.Expires = 0
  Response.Expiresabsolute = Now() - 1
  Response.AddHeader "Content-type","application/octet-stream"
  Response.AddHeader "Accept-Ranges","bytes"
  Response.AddHeader "Content-Disposition","attachment; filename=kl178exp.xls"
  'Response.ContentType = "application/msexcel"
  sql =session("SQL")  
  oRS.open sql,conns,1,3,1
  xlWorksheet.Cells(1,1).Value = "用户名"
  xlWorksheet.Cells(1,2).Value = "真实姓名"
  xlWorksheet.Cells(1,3).Value = "用户类型"
  xlWorksheet.Cells(1,4).Value = "注册时间"
  xlWorksheet.Cells(1,5).Value = "首次登录时间"
  xlWorksheet.Cells(1,6).Value = "最后登录时间"
  xlWorksheet.Cells(1,7).Value = "使用频率"
  xlWorksheet.Cells(1,8).Value = "停留时间"
  xlWorksheet.Cells(1,9).Value = "券商名称"
  xlWorksheet.Cells(1,10).Value = "业务员"
  xlWorksheet.Cells(1,1).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,2).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,3).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,4).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,5).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,6).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,7).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,8).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,9).Interior.ColorIndex = 16
  xlWorksheet.Cells(1,10).Interior.ColorIndex=16
  xlWorksheet.Cells(1,4).ColumnWidth=20
  xlWorksheet.Cells(1,5).ColumnWidth=20
  xlWorksheet.Cells(1,6).ColumnWidth=20
  
  iRow = 2
  If Not oRS.EOF Then
   Do Until oRS.EOF
  xlWorksheet.Cells(iRow,1).Value = oRS("UserName")
  xlWorksheet.Cells(iRow,2).Value = oRS("realName")
  xlWorksheet.Cells(iRow,3).Value = GetUserType(oRS("Usertype"))
  xlWorksheet.Cells(iRow,4).Value = FormatDate(oRS("RegisterTime"))
  xlWorksheet.Cells(iRow,5).Value = FormatDate(oRS("FirstLoginTime"))
  xlWorksheet.Cells(iRow,6).Value = FormatDate(oRS("LastLoginTime"))
  xlWorksheet.Cells(iRow,7).Value = oRS("UsedGroup")
  xlWorksheet.Cells(iRow,8).Value = oRS("UsedTime")
  xlWorksheet.Cells(iRow,9).Value = GetCompanyNameByID(oRS("CompanyID"))
  xlWorksheet.Cells(iRow,10).Value =oRS("introducer")
  iRow = iRow + 1
  oRS.MoveNext
  Loop
  End If
   rannum=int(1000*rnd)
   YoureIp=trim(Request.ServerVariables("REMOTE_ADDR"))
   YoureIp=left(YoureIp,len(YoureIp)-4)
   YoureIp=replace(YoureIp,".","")
  rndfile=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum&YoureIp
  strFile = rndfile
  xlWorksheet.SaveAs Server.MapPath(strFile & ".xls")
  xlApplication.Quit
  'Close the Workbook
  Set xlWorksheet = Nothing
  Set xlApplication = Nothing
  response.Redirect(strFile & ".xls")
end if

%>

Asp导出数据库数据到Excel

最近做ASP,需要导出数据库数据到Excel中,结果卡住好久没有进展。 今天终于解决了,总结下过程: 1.整体代码 ...
  • u010393758
  • u010393758
  • 2015年12月29日 03:19
  • 3058

ASP导出excel文件的代码(自己试验成功并且一直在使用的哟)

dim  conn,strconn  strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test"  set conn=s...
  • ailincn
  • ailincn
  • 2007年03月14日 22:39
  • 4119

ASP&nbsp;access导出到Excel

  dim s,sql,filename,fs,myfile,x    Set fs = server.CreateObject(
  • haibo0668
  • haibo0668
  • 2016年06月02日 13:04
  • 181

ASP 导出excel时出现乱码情况

http://192.168.40.8/gmm/exportexcel3.asp导出方法很简单:Response.ContentType="application/vnd.ms-excel"  正常的...
  • e_zhiwen
  • e_zhiwen
  • 2009年08月26日 09:08
  • 928

asp导出EXCEL数字格式及自动适应宽度的问题

asp导出EXCEL数字格式及自动适应宽度的问题下面直接进行代码演示:If Response.IsClientConnected Then Response.Flush Else Response.E...
  • jeefchen
  • jeefchen
  • 2009年12月23日 12:49
  • 3183

asp导出excel表格的所有方法评点

1.js 创建excel对象。 因为考虑到安全性所以在客户端浏览器默认是几乎是无法直接执行的,得做好多设置,你能让每个用户按照你的要求来设置internet选项吗? 2.导出csv文件的方式...
  • sysdzw
  • sysdzw
  • 2011年02月22日 14:21
  • 2588

ASP在线生成excel文件源码

ASP在线生成excel文件源码 
  • wangsdong
  • wangsdong
  • 2008年02月24日 17:08
  • 520

ASP excel导出/导入Access数据库(代码+实例下载)

Excel导出函数Sub   ExportToExcel     Response.ContentType   =   "application/vnd.ms-Excel"   Response.Ad...
  • jeefchen
  • jeefchen
  • 2009年12月23日 12:39
  • 9154

Asp将查询结果导出到excel里

是Office的OWC版本问题。2000,2002XP,2003各不相同,加入Office的版本检查即可,完整代码如下: function exportExcel(atblData,dirPath){...
  • jeefchen
  • jeefchen
  • 2009年12月23日 12:47
  • 4104

[收藏]ASP输出Excel文本格式确定 | asp设置Excel单元格类型为文本

              .xlsText{mso-style-parent:style0;mso-number-format:"/@";}     /* 设置单元格类型为文本*/ ...
  • fly29
  • fly29
  • 2010年12月01日 13:28
  • 2706
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Asp 导出Excel
举报原因:
原因补充:

(最多只允许输入30个字)