Solucion Grabar en excel en otra hoja

[angula]

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.

[trasgukabi]

ASÍ. ASÍ exactamente va a ser como éste pedazo de foro nuestro va a subir hasta las estrellas (aunque ya andamos cerquita).

Gracias Angula!!!!

[El_Metallick]

Exelente amigo... muchisimas gracias... saludos