Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/08/2012, 14:45
pablo_ch123
 
Fecha de Ingreso: noviembre-2010
Mensajes: 43
Antigüedad: 14 años, 5 meses
Puntos: 0
ObjWorkbook SaveAs

Buenas tardes compa;eros tengo un problema al querer almacenar mi archivo excel en el server, les dejo el codigo:

Código:
Response.Clear
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Set objWorkbook = CreateObject("OWC10.Spreadsheet")
Set objSheet1 = objWorkbook.Worksheets(1)
objSheet1.Name = "Mi hoja 1"
Set c = objWorkbook.Constants
objSheet1.Activate
Call Agregar()
Call Llenar()
objSheet1.Activate

objWorkbook.Cells(1, 1).Select
Response.Write objWorkbook.XMLData
Response.End
Set objWorkbook = Nothing
Set c = Nothing
Set objSheet1 = Nothing

ObjWorkbook.SaveAs "C:\Inetpub\wwwroot\inte\Exprueba\patito.xls"
Lo que pasa es que no me almacena nada, espero que me puedan ayudar, de antemano muchas gracias.