No se si esto ya estaba solucionado pero dandole vueltas al tema y despues de leer mucho e conseguido modificar datos de un archivo excel existente (kk.xls) poner datos en Hoja2 y grabarlo con otro nombre. Dios que alegria tengo por conseguirlo.
codigo basado en otro de eagrella y publicado en el foro:
Código:
<%
'Componente que se instala cuando posee office instalado sino NO SIRVE
Set appExcel = Server.CreateObject("Excel.Application")
appExcel.Workbooks.Open("C:\Inetpub\wwwroot\intranet\pruebas\KK.XLS")
appExcel.Sheets("Hoja2").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\intranet\pruebas\KK2.XLS") 'salvo elarchivo
appExcel.Workbooks.Close ' cierro el objeto y listo
%>
la clave del cambio de hoja es
appExcel.Sheets("Hoja2").activate
Como para mi es una gran solucion para mi intranet lo comparto con todos, porque yo tambien he aprendido mucho con vosotros. Gracias a tod@s.