hola amigos tengo una hoja en excel con una columna que contiene 5 registros con numeros lo que deseo yo es desde una pagina asp modificar los numeros de esa columna espero que alguien me ayude}
de antemano gracias
| ||||
si mal no recuerdo en las faqs o en la biblioteca de funciones alguien postio todo sobre el uso de Excel desde ASP... date una vuelta... saludos PD: en el foro tambien se ha tratado bastante el tema usa el buscador
__________________ Haz la guerra en la cama y el amor donde se te de la gana... El tiempo es el mejor maestro, lo único malo es que te mata...¡¡Aprovecha tu tiempo!! |
| ||||
Prueba con esto...... <!-- 'Componente que se instala cuando posee office instalado sino NO SIRVE 'Set appExcel = Server.CreateObject("Excel.Application") 'appExcel.Workbooks.Open("C:\Inetpub\wwwroot\intra net\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 --> permite acualizar una hoja excel desde asp. Saludos |
| ||||
pucha no me funciono me dice que el objeto no se puede abrir me manda error en la linea Set appExcel = Server.CreateObject("Excel.Application")
__________________ Para ayudar en lo que se pueda:Zzz: |
| ||||
Cita: 'Componente que se instala cuando posee office instalado sino NO SIRVE
__________________ Manual de ASP Avanzado ;-) |
| ||||
que no tiene puesto: la linea u office?
__________________ Manual de ASP Avanzado ;-) |
| ||||
lo puce asi i no me funciona Cita: 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 %>
__________________ Para ayudar en lo que se pueda:Zzz: |