como actualizar datos de un excel con asp

[mc_quake]

lo puce asi i no me funciona

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

appExcel.Workbooks.Open("C:\Inetpub\wwwroot\prueba s\Grafico\grafico.xls")

appExcel.Sheets("Valores").activate

appExcel.Range("B" & 2).Value = "AAAAAAAAAAA"

For i = 4 To 10 ' empiezo a escribir desde la linea 4 hasta la 10

appExcel.Range("A" & i).Value = "PEPE"
appExcel.Range("B" & i).Value = i
appExcel.Range("C" & i).Value = "Profecional"
appExcel.Range("D" & i).Value = 40
appExcel.Range("E" & i).Value = "=B" & i & "+D" & i

Next

appExcel.ActiveWorkbook.SaveAs ("C:\Inetpub\wwwroot\pruebas\Grafico\grafico.xl s") 'salvo elarchivo

appExcel.Workbooks.Close ' cierro el objeto y listo
%>