
04/05/2004, 10:59
|
| | Fecha de Ingreso: agosto-2002
Mensajes: 301
Antigüedad: 22 años, 9 meses Puntos: 2 | |
nadie se anima un poco:
<%
Dim objApp
Dim objBook
Dim objSheet
Set objApp = Server.CreateObject("Excel.Application")
Set objBook = objApp.Workbooks.Add
Set objSheet = objBook.Sheets.Item(0)
objSheet.Range("A1").Value = "This text is set from ASP"
objBook.Close True
objApp.Quit
Set objSheet = Nothing
Set objBook = Nothing
Set objApp = Nothing
%>
le podrian echar un vistaso |