algun tipo de seguridad para crear archivos excel en el servidor ???

[Gaby_Corr]

HOla que tal, he estado probando con este codigo generar un archivo de excel, pero no puedo me marca este error:

Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied: 'CreateObject'
/expos/excel.asp, line 9

y este es el codigo:




<%
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
%>

[Trulala de cordoba]

Amigo, aparentemete es que no tenes perimisos de escritura en esa carpeta. Consulta con el soporte de tu hosting, comentandoles el error.
Suerte.

[Gaby_Corr]

lo estoy haciendo de manera local , q podra ser ???

[AlZuwaga]

Mmm... intentá colocando ésta línea en vez de la que tenés:

Set ExcelApp = Server.CreateObject("Excel.Application")

[Gaby_Corr]

mmmm no, me marca el mismo error !!

[Myakire]

mmmmmm, ¿Tienes excel instalado en el servidor?

[Gaby_Corr]

mi pc lo tiene, y lo estoy probando de manera local entonces si lo tiene cierto ?

[u_goldman]

Pero cual es la linea 9?

[Gaby_Corr]

u_goldman es esta:


Set ExcelApp = Server.CreateObject("Excel.Application")

[AlZuwaga]

Acá te dejo un script que tengo funcionando para generar un archivo XLS:

Código:

Dim oExcel 
Set oExcel = Server.CreateObject("OWC.Spreadsheet")

' Coloca el nombre de los campos en la primer fila
iCol = 1
For Each Campo in RS.Fields
'objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
oExcel.Cells(1,iCol).Value = Campo.Name
oExcel.Cells(1,iCol).Font.Bold = True
oExcel.Cells(1,iCol).Interior.Color = "SILVER"
iCol = iCol + 1
Next


'Coloca los datos:
'Desde el primero hasta el último "registro"...
for Fila = 0 to UBound(miTabla,2)
	'Desde el primero hasta el último "campo"...
	for Columna = 0 to Ubound(miTabla, 1)
		Celda = miTabla(Columna, Fila)
		If IsNull(Celda) Then Celda = "s/d"
		oExcel.Cells(Fila + 2,Columna + 1).Value = Celda
	next
next

' Autoajusta el ancho de las columnas al tamaño máximo de su contenido:
For iCol = 1 to Columna + 1
	oExcel.Columns(iCol).AutoFitColumns
Next

'	oExcel.ActiveSheet.Range("A:A").EntireColumn.Hidden = True
	NameVariable = Request.Cookies("Usuario")("Nick") & "_" & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now()) & ".xls"
	Path=Server.MapPath("bco_datos/archivos_tmp/" & NameVariable)
	oExcel.ActiveSheet.Export Path, 0

Vale aclarar que los datos los obtiene de un array llamado "miTabla" usando GetRows sobre un recordset llamado RS (y también hace uso del RS para obtener los nombre de campos)

Código:

miTabla = Rs.GetRows

Saludos

[Gaby_Corr]

ok, entonces no usas una tabla fisica o si???

[AlZuwaga]

Einn???

Eso si que no lo entendí!

[Gaby_Corr]

jejeje, sorry es q no kise escribir eso pero se envio por error
es que estaba viendo un ejemplo con el getrows, pero no le entiendo muy bien a tu codigo, primero tengo q tener algun componente OWC instalado o ya viene , otra cosa ahi tenes una tabla donde tomas los valores o no ? I don't understand ok?
thanks =D

[Myakire]

OFF2000: Licensing the Office 2000 Web Components and Office ... - [ Traduzca esta página ]
Qualifying licenses include Office 2000 Premium, Office 2000 ... Running the OWC
on a server requires an Office 2000 license for that server and for each ...
support.microsoft.com/support/kb/articles/Q243/0/06.ASP

Remember that

[Gaby_Corr]

mmmmm, entonces necesito tener una licencia de office 2000, y aki tengo de xp snif, snif
gracias

[Myakire]

Necesitan cada uno de los clientes, tener la licencia del office, no tanto el servidor (que también), por eso, no se debe usar en Internet

[Gaby_Corr]

ahhh ok, muchas gracias Myakire !!!!!!!!!!

[AlZuwaga]

Ah, pero yo lo estoy usando en una intranet

:santo: