asp生成excel

Dim xlWorkSheet

Dim xlApplication

Set xlApplication = Server.CreateObject("Excel.Application")

xlApplication.Visible = False

xlApplication.DisplayAlerts=False

xlApplication.Workbooks.Add

Set xlWorksheet = xlApplication.Worksheets(1)

set oRS=Server.CreateObject("ADODB.Recordset")

'if Request("ImportExcel")="ImportExcel" then

  randomize

  rannum=int(90000*rnd)+10000

   

  rndfile=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum

  strFile = rndfile

  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="&strFile&".xls"

  'Response.ContentType = "application/vnd.ms-excel"

  sql="select a.out_trade_no,a.total_fee,a.orderDate,b.realname,b.addr,b.postcode,b.tel from Np_Order a inner join [Np_User] b on a.userId=b.id order by a.id asc"

  oRS.open sql,conn,1,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,11).Value = "起始订期"

  xlWorksheet.Cells(1,12).Value = "截止订期"

  xlWorksheet.Cells(1,13).Value = ""

  xlWorksheet.Cells(1,14).Value = "折扣类型"

  xlWorksheet.Cells(1,15).Value = "金额"

  xlWorksheet.Cells(1,16).Value = "站名"

  xlWorksheet.Cells(1,17).Value = "投递段"

  xlWorksheet.Cells(1,18).Value = "投递方式"

  xlWorksheet.Cells(1,19).Value = "投递类型"

  

  xlWorksheet.Cells(1,6).ColumnWidth=30

  xlWorksheet.Cells(1,2).ColumnWidth=20

  xlWorksheet.Cells(1,11).ColumnWidth=10

  xlWorksheet.Cells(1,12).ColumnWidth=10

  

  iRow = 2

  If Not oRS.EOF Then

   Do while not oRS.EOF

  xlWorksheet.Cells(iRow,1).Value = ""

  xlWorksheet.Cells(iRow,2).NumberFormatLocal = "@"

  xlWorksheet.Cells(iRow,2).Value = CStr(oRS("out_trade_no"))

  xlWorksheet.Cells(iRow,3).Value = "报卡"

  xlWorksheet.Cells(iRow,4).Value = ""

  xlWorksheet.Cells(iRow,5).Value = Trim(oRS("realname"))

  xlWorksheet.Cells(iRow,6).Value = Trim(oRS("addr"))

  xlWorksheet.Cells(iRow,7).Value = Trim(oRS("postcode"))

  xlWorksheet.Cells(iRow,8).Value = Trim(oRS("tel"))

  xlWorksheet.Cells(iRow,9).Value = Trim(oRS("tel"))

  xlWorksheet.Cells(iRow,10).Value = "郑州晚报1年报刊定制"

  xlWorksheet.Cells(iRow,11).Value = FormatDateTime(oRS("orderDate"),2)

  xlWorksheet.Cells(iRow,12).Value = FormatDateTime(DateAdd("yyyy",oRs("orderDate")),13).Value = ""

  xlWorksheet.Cells(iRow,14).Value = ""

  xlWorksheet.Cells(iRow,15).Value = Trim(oRS("total_fee"))

  xlWorksheet.Cells(iRow,16).Value = ""

  xlWorksheet.Cells(iRow,17).Value = ""

  xlWorksheet.Cells(iRow,18).Value = ""

  xlWorksheet.Cells(iRow,19).Value = ""

  

    iRow = iRow + 1

    oRS.MoveNext

  Loop

  End If

  oRS.Close

  set oRS=nothing

  closeconn

  

  xlWorksheet.SaveAs Server.MapPath(strFile & ".xls")

  xlApplication.Quit

  'Close the Workbook

  Set xlWorksheet = Nothing

  Set xlApplication = Nothing

  Response.Write("生成网址:"&strFile&".xls")

'end if