Set spread = Server.CreateObject("excel.application")
spread.Workbooks.Open sExcelPath
spread.ActiveWorkbook.Worksheets("data").Select
iNumCol = 0
for iNumCol = 0 to 3
 spread.ActiveWorkbook.ActiveSheet.Cells(1, iNumCol).Value = "col " &
iNumCol
next
spread.DisplayAlerts = False
spread.ActiveWorkbook.SaveAs spath & "\myExcelFile.xls"
spread.DisplayAlerts = True
spread.Workbooks.Close
spread.Quit

In order to write to any file which has a bespoke format (Word document,
PDF, Excel spreadsheet etc...) you need a handler - an API set which can
take input from a program and create the resultant file from it.

Without something installed which has the ability to create such files it's
not possible to write them.  What you could try however is moving your code
which creates the excel file client-side so instead of the ASP processing /
creating the spreadsheet, you have a resultant file which has client-side
script in essense doing the same thing.  This would of course very much
depend on how complicated your spreadsheet was, how much data was going into
it and where that data was comming from.

In short, no - you need some engine to create the spreadsheet in some form
or another.

Hope this helps,
Jon

www.insidetheregistry.com

---

It includes a link to this:
http://support.microsoft.com/kb/199841/

--
Microsoft MVP - ASP/ASP.NET - 2004-2007
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

A limitation is that you have no control over things like cell fonts, column
widths, etc.  Even this may be overcome to an extent by copying a
pre-formatted "template" workbook and populating it with data.  However the
example below (a WSH script for easy testing) creates a workbook from
scratch in the current directory:

Option Explicit

Private Const adCmdTable = 2
Private Const adLockOptimistic = 3
Private Const adOpenStatic = 3
Private Const adVarWChar = 202

Private catWB, tblWS, rsWS, intRow

Private Sub AddColumn(ByVal Table, ByVal ColName)
  Dim Column

  Set Column = CreateObject("ADOX.Column")
  Column.Name = ColName
  Column.Type = adVarWChar 'Can also use numeric types.
  Table.Columns.Append Column
End Sub

Set catWB = CreateObject("ADOX.Catalog")
catWB.ActiveConnection = _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='created.xls';" _
  & "Extended Properties='Excel 8.0;HDR=Yes'"
Set tblWS = CreateObject("ADOX.Table")
tblWS.Name = "Sample"
AddColumn tblWS, "First"
AddColumn tblWS, "Second"
AddColumn tblWS, "Third"
catWB.Tables.Append tblWS
Set tblWS = Nothing
Set rsWS = CreateObject("ADODB.Recordset")
With rsWS
  Set .ActiveConnection = catWB.ActiveConnection
  Set catWB = Nothing
  .Open "Sample", , adOpenStatic, adLockOptimistic, adCmdTable
  For intRow = 2 To 100
    .AddNew
    .Fields("First").Value = CStr(intRow * 10)
    .Fields("Second").Value = CStr(intRow * 100)
    .Fields("Third").Value = CStr(intRow + 10000)
    .Update
  Next
  .Close
End With
Set rsWS = Nothing

MsgBox "Complete!", vbOkOnly, "Create Workbook"

http://msdn.microsoft.com/en-us/library/bb226687(office.11).aspx
http://msdn.microsoft.com/en-us/library/bb226693(office.11).aspx

http://www.brainbell.com/tutorials/ms-office/excel/Save_To_Spreadshee...
http://www.brainbell.com/tutorials/ms-office/excel/Create_Spreadsheet...

http://support.microsoft.com/default.aspx?scid=kb;en-us;257757
http://support.microsoft.com/kb/199841/

--
Sylvain Lafontaine, ing.
MVP - Windows Live Platform
Email: sylvain2009 sylvainlafontaine com (fill the blanks, no spam please)
Independent consultant and remote programming for Access and SQL-Server
(French)

You might find it a lot easier to write out the excel file as xml.