riesco ad aprire Excel cosi:
(prima tramite asp apro un recordsert "rs")

poi cosi:

<script language="vbscript">
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True

Set ExcelBook = ExcelApp.Workbooks.Add
dim i

do until rs.eof

ExcelBook.Worksheets(1).Cells(i, 1).Font.Name = "Verdana"
ExcelBook.Worksheets(1).Cells(i, 1).Font.Size = 10
ExcelBook.Worksheets(1).Cells(i, 1).Value=rs("id")
rs.movenext
loop

</script>

ma mi apre solo la pagina ezxcel senza scrivere niente