Creare un foglio di Excel

Questo script crea un foglio di Excel sul server, ma ovviamente deve essere installato il programma.

<%

' 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

%>