Server.CreateObject("OWC.Spreadsheet")

[Hgmhelio]

use ptro metodo SPREADSHET es otra onda pero no tan completa ...

La funcion de este codigo es que en el templete tengo una serie de columnas de las cuales obtengo formulas y graficas, esas columnas las lleno de una BD mediante ASP y las graficas como estan linkiadas a las celdas modificadas cambian de acuerdo a mi codio ASP



<%
Dim Path, ExcelApp
Set ExcelApp = Server.CreateObject("Excel.Application")
Path=Server.MapPath("Templete.xls") 'Templete a modificar
ExcelApp.Workbooks.Open Path

for vc = 5 to 16
ExcelApp.Cells(vc,3).Value = 6810000
ExcelApp.Cells(vc,4).Value = 22
ExcelApp.Cells(vc,5).Value = 17531011
ExcelApp.Cells(vc,6).Value = 53
next

ExcelApp.Cells(4,8).EntireColumn.Delete

'***Verifica que no exista el archivo si existe se elimina
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\proyectos\prohosa\manager\pati to.xls")) Then
'el archivo si existe por lo que se elimina
fso.DeleteFile("c:\proyectos\prohosa\manager\patit o.xls")
End If

ExcelApp.ActiveWorkbook.SaveAs "c:\proyectos\prohosa\manager\patito.xls"
ExcelApp.Workbooks.Close
Response.redirect "patito.xls"
%>