Manipulación de archivos excel ya creados desde asp

07/01/2004 - 19:47 por edwin vargas | Informe spam
Buenas Tardes..

Necesito insertar datos en un archivo de excel que tiene
un formato ya determinado con datos que consulto en una
base de datos access desde asp. solo tengo codigos
mediante OWC pero crean nuevamente el archivo y no me
permite manupular uno ya existente


por favor alguien que me ayude...


edwin vargas


Nota:

disculpen que lo repita pero no adjunte mi dirección
electronica.
 

Leer las respuestas

#1 tatiana acevedo
08/01/2004 - 00:09 | Informe spam
Como estan...


Una forma bien practica es la que es la siguiente...

crear un docuemnto base y hacer que el codigo tome este en
memoria para crear uno nuevo..

asi:

<%@ Language=VBScript %>

<%

Dim sSourceXLS
Dim sDestXLS

sSourceXLS = Server.MapPath(".")
& "\EmpDataTemplate.xls"
sDestXLS = Server.MapPath(".") & "\EmpData.xls"

'Copy the source workbook file (the "template") to the
destination filename
Dim fso
Set fso = Server.CreateObject
("Scripting.FileSystemObject")
fso.GetFile(sSourceXLS).Copy sDestXLS
Set fso = Nothing

'Open the ADO connection to the destination Excel
workbook
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sDestXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""

'Add values to individual cells
oConn.Execute "Insert into Last_Name (F1) Values
('Edwin')"
oConn.Execute "Insert into First_Name (F1) Values
('Vargas')"
oConn.Execute "Insert into Title (F1) Values ('Sales
Manager')"
oConn.Execute "Insert into Hire_Date (F1) Values
(#11/1/00#)"
oConn.Execute "Insert into Comments (F1) Values ('This
is a line of long text " & _
"that will wrap in the cell.This is a
line of long text that will " & _
"wrap in the cell.')"
'Close the connection
oConn.Close

Response.Write _
"<META HTTP-EQUIV=""REFRESH""
Content=""0;URL=EmpData.xls"">"


%>


el nombre de las celdas es tomado como el alias que se
crea en el formato.

Preguntas similares