Prova questo codice ma calcola devi gestire i fogli e il cambio delle tabelle se sei pratico di asp crea un loop e con una variabile spostati sulla casella excel selezionata
<%
' Crea l'istanza dell'oggetto Excel
Set ExcelApp = CreateObject("Excel.Application")
' Imposta l'esecuzione in background
ExcelApp.Application.Visible = False
' Genera i fogli
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.Worksheets(1).Cells(1, 1).Font.Name = "Verdana"
ExcelBook.Worksheets(1).Cells(1, 1).Font.Size = 10
ExcelBook.Worksheets(1).Cells(1, 1).Font.Italic = true
ExcelBook.Worksheets(1).Cells(1, 1).Value="DAITARN"
ExcelBook.Worksheets(1).Cells(1, 1).HorizontalAlignment = 1
ExcelBook.Worksheets(1).Cells(1, 1).Font.Color = RGB(0,0,0)
' Cancella i fogli secondari
ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete
' Salva su disco
ExcelBook.SaveAs Server.MapPath("FileExcel.xls")
' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing
%>
la fortuna aiuta la mente preparata