Exportar a excel y leer archivo

[BACH]

Buenos dias
Estoy haciendo una exportacion de datos a excel usan do Response.ContentType = "application/vnd.ms-excel" y lo hace bien, pero ese mismo archivo lo necesito para leerlo despues desde otra pag y ahi se presenta el problema. Cuando abro el archivo exportado este aparece sin lineas de division de celdas y fondo blanco, supongo que se guarda con formatos html, y este archivo no lo puedo leer (uso el objeto Dundas.Upload.2), pero si abro la aplicacion de excel y creo un archivo y lo guardo normalmente éste si lo puedo leer ¿Como puedo hacer para exportar el archivo en formato excel normal?

Gracias

[JuanRAPerez]

te marca algún error a la hora de leerlo?


has probado crear una pagina que te genere el xls sin formato?
sin fondo de celdas, ni tipos de letras, solo con el efecto de usarlo en el otro server?

[BACH]

Gracias por responder...Realmente no es un me saca un error si no q al intentar hacer la consulta sobre la Hoja con:

set rs= Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & RUTA & ";" & _
"Extended Properties=""Excel 8.0;"""
rs.Source = "Select * from [Hoja1$]"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rTabla.Open()
rs_numRows = 0
%>

<%
'
nCols=rTabla.Fields.Count
%>

la variable nCols devuelve 0, lo q indica q no ha leido la hoja.

por lo cual no puedo seguir con el proceso de insertar los datos del archivo a una tabla.

[Myakire]

No leas el recordCount para ver si trae o no registros, lee el recordSet:

Código asp:

<%
    Dim sSourceXLS
 
    sSourceXLS = Server.MapPath(".") & "\Excel\RollosCosteados.xls"
 
    Dim oConn
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & sSourceXLS & ";" & _
               "Extended Properties=""Excel 8.0;HDR=YES;"""
 
    Dim oRS 
    Set oRS = Server.CreateObject("ADODB.Recordset")
    oRS.Open "Select * from [Rollos$A1:Y1000]", oConn, 1, 3
    
        %>
        <table width="100%" border="1">
        <%
    Do While Not (oRS.EOF)
        %><tr><%
        For i = 0 To 24
                    %><td><%=oRS.Fields(i).Value%><%
        Next
        oRS.MoveNext
    Loop
        %>
        </table>
        <%
    
    oRS.Close
    Set oRS = Nothing
    
    oConn.Close
    Set oConn = Nothing
%>
 

[Esfinge02]

bueno si lo que quieres al final de cuentas es solo crear un archivo de excel normal vasta con agregar estas lineas al inicio de la pagina...

<%
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=nonbre_del_archivo.xls"
%>