<%
set xlApp = Server.CreateObject(“Excel.Application”)
xlApp.Visible = falsexml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ 使æÂÂå¡端ä¸Âåºç°ExcelçªÂå£.
set myWorkbook = xlApp.Workbooks.Add
‘ 建ç«Âä¸Â个worksheet.
set myWorksheet = myWorkbook.Worksheets(1)
myWorksheet.Range(“A1”).Value = ‘精彩æÂ¥é£ÂéÂÂ讯彑
myWorksheet.Range(“A1”).Font.Size = 12
myWorksheet.Range(“A1”).Font.Bold = true
myWorksheet.Range(“A2”).Value = ‘å§Âå‘
myWorksheet.Range(“B2”).Value = ‘å°å‘
myWorksheet.Range(“C2”).Value = ‘çµ译
myWorksheet.Range(“D2”).Value = ‘æÂÂ溑
‘ 以ä¸Â7è¡Â建ç«Â表头.
myWorksheet.Range(“A2:D2”).Font.Bold = true
strFileName = Session.SessionID & “.xls”
‘ ç¡®ä¿ÂæÂÂ件åÂÂå¯ä¸Â.
strAppPath = Request.ServerVariables(“PATH_trANSLATED”)
strAppPath = Left(strAppPath, InstrRev(strAppPath, “\”))
strFullPath = strAppPath & strFileName
myWorkbook.SaveAs(strFullPath)
‘ ä¿ÂÃ¥ÂÂæÂÂ件.
myWorkbook.Close
‘ Ã¥Â
³éÂÂExcel.
xlApp.Quit
set myWorksheet = Nothing
set myWorkbook = Nothing
set myxlApp = Nothing
Response.Redirect strFileName
‘ Ã¥ÂÂå°ASP页é¢,å³æµÂè§Âå¨ä¸Â.
%>
[1]