ObjWorkbook SaveAs

[pablo_ch123]

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.