elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  leer un archivo excel con asp
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: leer un archivo excel con asp  (Leído 3,864 veces)
jorgexl30

Desconectado Desconectado

Mensajes: 33


Ver Perfil
leer un archivo excel con asp
« en: 5 Marzo 2012, 20:57 »

hola Estimados estoy con un problema ,necesito leer un archivo excel  pero no en forma secuencial y no se como hacerlo ,ojala me pudieran ayudar envio el codigo
gracias de antemano
Jorge

<html>
<body>
<%

'Arreglo (0,0)=3
%>

<%

writeExcelData()

%>



</body>
</html>

<%




function writeExcelData()

   Dim rs,sql,i
   Dim arreglo()
   ReDim arreglo(0,0)

   sql = "SELECT * FROM [hoja1$];"

   if runsql(sql,rs) then

   ROWFON = rs.Fields.Count - 1
   
   redim arreglo (ROWFON,5)
   
   columnas = rs.Fields.Count - 1
   
      %>
      <table border="1">
          <thead>
             <tr>
                 <%
               linea1=""
                 For I = 0 To columnas
                  linea1 = rs.Fields.Item(I).Name
                     Response.Write "<th>" &  Linea1 & "</th>"
                  arreglo(columnas,0) = linea1
                 Next
                 %>
              </tr>
          </thead>
          <tbody>
          <%
         contar =0


          Do While Not rs.EOF

              Response.Write "<tr>"

              For I = 0 To columnas
               
               valor = rs.Fields.Item(I).Value
               if isnull(valor) = true  then valor= "&nbsp;"
               Response.Write "<td>" & valor & "</td>"
                 
               contar= contar +1
            Next

              Response.Write "</tr>"

              rs.MoveNext
          Loop
          %>
          </tbody>
      </table>
      <%

      rs.Close

   end if

   Set rs = Nothing

end function




function runSQL(SQL,rs)

   on error resume next

   dim myrs

   set myRs = createobject("ADODB.recordset")
   myRs.Open SQL,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prueba.xls") & ";Extended Properties=""Excel 8.0;IMEX=1;""", 1, 3
   set rs = myRs
   if err then
      runSQL = false

      response.write err.description

   else
      runSQL = true
   end if

end function

%>



<br>
<br>
como se lleno
<br>
<br>

<%
Response.Write arreglo,2
Response.End
response.write arreglo,2

COL = Ubound(arreglo,2)
FIL = Ubound(arreglo,1)


For lnRowCounter = 0 To  COL
   For lnColumnCounter = 0 To FIL
      Response.Write arreglo(lnColumnCounter, lnRowCounter)
   Next
Next
%> :huh:

este es el archivo


En línea

jorgexl30

Desconectado Desconectado

Mensajes: 33


Ver Perfil
Re: leer un archivo excel con asp
« Respuesta #1 en: 7 Marzo 2012, 15:00 »

Hola estimados e logrado leer los datos pero estoy con un problema aun no puedo meter los  registros en un array bidemencional ,habra alguien que me pueda ayudar gracias este es el codigo


<html>
<body>
<%
writeExcelData()
%>
</body>
</html>

<%

function writeExcelData()

   Dim rs,sql,i
   Dim arreglo()
   ReDim arreglo(0,0)

   sql = "SELECT * FROM [hoja1$];"

   if runsql(sql,rs) then
 
   ROWFON = rs.Fields.Count - 1
 
      redim arreglo (ROWFON,ROWFON)
   
         
              Response.Write "<table border=1><tr>"   
          Do While Not rs.EOF
           Response.Write "<tr>"
              For I = 0 To ROWFON
               valor = rs.Fields.Item(I).Value
               if isnull(valor) = true  then valor= "&nbsp;"
               'Response.Write "<td>" & valor & "</td>"
                                         'aca lo lleno
                      arreglo(lnColumnCounter,I-1) = valor
                     
                      arreglo(I - 1 , lnRowCounter) = valor
                   
                     
                             Response.Write     "<td>" &arreglo(lnColumnCounter, lnRowCounter)& "</td>"
            Next
              Response.Write "</tr>"
              rs.MoveNext
          Loop
              
                
   COL = ubound(arreglo,2)
   FIL = ubound(arreglo,1)

   response.write "COL  ("&COL&")  FIL ("&FIL&")" 
   
   response.write "<table>"
   
For lnRowCounter = 0 To  COL
response.write "</tr>"
   For lnColumnCounter = 0 To FIL
      response.write "</td>"
      Response.Write arreglo(lnColumnCounter, lnRowCounter)
      response.write "</td>"
   Next
   response.write "</tr>"
Next

'Response.Write arreglo(0,0)

   response.write "</table>"
   
   response.end
   
   
      

end function




function runSQL(SQL,rs)

   on error resume next

   dim myrs

   set myRs = createobject("ADODB.recordset")
   myRs.Open SQL,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prueba.xls") & ";Extended Properties=""Excel 8.0;IMEX=1;""", 1, 3
   set rs = myRs
   if err then
      runSQL = false

      response.write err.description

   else
      runSQL = true
   end if

end function

%>



<br>
<br>
como se lleno ,se llena mostrando la variable valor mas arriba porque ?
<br>
<br>

<%

SentStr = "Four score and seven years ago our fathers brought forth"
ListArray = split(SentStr, " ")

response.write ubound(ListArray)



COL = ubound(arreglo,2)
FIL = ubound(arreglo,1)


For lnRowCounter = 0 To  COL
   For lnColumnCounter = 0 To FIL
      Response.Write arreglo(lnColumnCounter, lnRowCounter)
   Next
Next
%>


En línea

jorgexl30

Desconectado Desconectado

Mensajes: 33


Ver Perfil
Re: leer un archivo excel con asp
« Respuesta #2 en: 12 Marzo 2012, 16:58 »

bueno ya que no hubo respuesta de parte de los amigos del foro aca le dejo el codigo funcionando ,por si a  a alguno le interesa


<!--#INCLUDE FILE="Include/Conexion.asp" -->
<html>
<body>
<%
'writeExcelData()
%>
</body>
</html>

<%


   Dim rs,sql,i
   Dim arreglo()
   ReDim arreglo(0,0)

   sql = "SELECT * FROM [hoja1$];"

   if runsql(sql,rs) then
               ROWFON = rs.Fields.Count - 1
 
                redim arreglo (ROWFON+160,ROWFON)
         
                lnRowCounter=0
                Do While Not rs.EOF
             
            
                    For I =1 To ROWFON
                     valor = rs.Fields.Item(I).Value
                         'aca lo lleno
                          arreglo(lnRowCounter,I) = valor
                    'response.write "("&lnRowCounter&","&I&") = " & valor &"|"
                    'response.write  arreglo(lnRowCounter,I)
                         arreglo(I,lnColumnCounter) = valor
               
                 Next
               lnRowCounter=lnRowCounter + 1
               rs.MoveNext
           
            Loop   
   
      end if

   'response.End

'function writeExcelData()

 
           
     'response.write arreglo(3,2) 'año
     'response.write arreglo(5,2) 'rut nombre profesor
    'response.write arreglo(8,2) 'codigo y nombre de la asignatura
    'response.write arreglo(4,2) 'periodo
    'response.write arreglo(11,2)'carrera
     'response.write arreglo(16,3)'codcli
     'response.write arreglo(16,4)'nombre alumno
     'response.write arreglo(14,7)'fecha asistencia
     'response.write arreglo(16,6)'Asistencia
     'Response.Write  "<br>"
     ' response.write arreglo(3,2) 'año
     'response.write arreglo(5,2) 'rut nombre profesor
    'response.write arreglo(8,2) 'codigo y nombre de la asignatura
    'response.write arreglo(4,2) 'periodo
    'response.write arreglo(11,2)'carrera
     'response.write arreglo(17,3)'codcli
     'response.write arreglo(17,4)'nombre alumno
     'response.write arreglo(14,8)'fecha asistencia
     'response.write arreglo(17,6)&"<br>---------"'Asistencia
     
   
             
             
'end if
    'end function  'fin funcion  writeExcelData()
   
   
   
   
     
     
      'function guardar ()
     
'
      'Response.End
   
      if runsql(sql,rs) then
            for  x=6 to ROWFON
            if   arreglo(14,X)<>"" then
           ' Response.Write x&"<br>"
            'Response.Write  arreglo(40,4)
               for  I=16 to   ROWFON+160
             
                     if   arreglo(I,4)<>""   then
                          response.write arreglo(3,2) 'año
                          response.write arreglo(4,2) 'periodo
                          response.write arreglo(5,2) 'rut nombre profesor
                          response.write arreglo(6,2)'segundo profesor
                          response.write arreglo(7,2)'ayudante
                          response.write arreglo(8,2) 'codigo y nombre de la asignatura
                          response.write arreglo(9,2) 'sección
                          response.write arreglo(10,2)'horas
                         
                         response.write arreglo(I,1)'carrera
                         response.write arreglo(I,3)'matricula
                         response.write arreglo(I,4)'nombre alumno
                         response.write arreglo(14,X)'fecha asistencia
                         response.write arreglo(I,x)&"<br>"' asistencia
                        
             sql = "Insert Into ra_asistencia (ano,periodo,docente1,docente2,profayudante,codramo,descripramo,sección,horas,cod_carrera,descripcarrera,matricula,nombre,fecha,asistencia,porcentaje,Fecha_guardadatos)"
            sql = sql & " Values ('"&arreglo(3,2)&"','"&arreglo(4,2)&"','"&arreglo(5,2)&"','"&arreglo(6,2)&"','"&arreglo(7,2)&"','codramo','"&arreglo(8,2)&"','"&arreglo(9,2)&"','"&arreglo(10,2)&"',"
              sql = sql & "'"&arreglo(I,1)&"','descripcarrera','"&arreglo(I,3)&"','"&arreglo(I,4)&"','"&arreglo(14,x)&"','"&arreglo(I,X)&"','0',getdate())"      
             
           Conn.Execute sql
             Response.write sql
             'Response.End             
                   end if 
                      next
                      end if   
                      next
                      end if   
              'end function ' fin funcion guardar

function runSQL(SQL,rs)

   on error resume next

   dim myrs
   dim nombre
   dim ruta
   nombre ="prueba.xls"
    ruta=Server.MapPath(nombre)
 
   set myRs = createobject("ADODB.recordset")
   myRs.Open SQL,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta & ";Extended Properties=""Excel 8.0;IMEX=1;""", 1, 3
   set rs = myRs
   if err then
      runSQL = false

      response.write err.description

   else
      runSQL = true
   end if

end function

%>

En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
previa de un archivo de excel
Programación Visual Basic
kakashi20 2 2,501 Último mensaje 21 Enero 2010, 02:35
por kakashi20
Guardar/Leer datos en un archivo excel
.NET (C#, VB.NET, ASP)
adan-2994 3 2,275 Último mensaje 6 Diciembre 2013, 14:26
por fran800m
Problema al respaldar archivo excel
Windows
Martin512 2 1,183 Último mensaje 15 Junio 2014, 23:13
por Car0nte
[Excel][VB6] Ejecutar archivo Excel.Solucionado
Programación Visual Basic
FranciskoAsdf 2 2,088 Último mensaje 15 Julio 2014, 04:33
por FranciskoAsdf
leer excel
.NET (C#, VB.NET, ASP)
PETTETE 3 1,213 Último mensaje 10 Junio 2017, 00:26
por Eleкtro
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines