Crear un fichero Excel con ASP
Publicado por Kevedin (1 intervención) el 30/09/2002 17:22:45
Estoy intentando crear un fichero excel (*.xls) con ASP. Para ello utilizo el siguiente código:
<%
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.Worksheets(1).Cells(2, 2).Font.Name = "Verdana"
ExcelBook.Worksheets(1).Cells(2, 2).Font.Size = 10
ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
ExcelBook.Worksheets(1).Cells(2, 2).Value="Hello world"
ExcelBook.Worksheets(1).Cells(2, 2).HorizontalAlignment = 1
ExcelBook.Worksheets(1).Cells(2, 2).Font.Color = RGB(0,0,0)
ExcelBook.SaveAs "c:\yourfile.xls"
ExcelApp.Application.Quit
Set ExcelApp = Nothing
%>
pero me da el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución error '800a01ad'
El componente ActiveX no puede crear el objeto: 'Excel.Application'
/iceberg/Excel/excel2.asp, line 2
He probado con otros códigos, pero con todo me pasa lo mismo:
A ver si alguien me puede decir que es lo que me ocurre.
Gracias.
<%
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.Worksheets(1).Cells(2, 2).Font.Name = "Verdana"
ExcelBook.Worksheets(1).Cells(2, 2).Font.Size = 10
ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
ExcelBook.Worksheets(1).Cells(2, 2).Value="Hello world"
ExcelBook.Worksheets(1).Cells(2, 2).HorizontalAlignment = 1
ExcelBook.Worksheets(1).Cells(2, 2).Font.Color = RGB(0,0,0)
ExcelBook.SaveAs "c:\yourfile.xls"
ExcelApp.Application.Quit
Set ExcelApp = Nothing
%>
pero me da el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución error '800a01ad'
El componente ActiveX no puede crear el objeto: 'Excel.Application'
/iceberg/Excel/excel2.asp, line 2
He probado con otros códigos, pero con todo me pasa lo mismo:
A ver si alguien me puede decir que es lo que me ocurre.
Gracias.
Valora esta pregunta


0