Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/06/2008, 05:57
estoquera44
 
Fecha de Ingreso: mayo-2003
Mensajes: 70
Antigüedad: 21 años, 8 meses
Puntos: 0
Leer celdas determinadas en un excel

Buenos dias,

queria saber si alguien sabe como podria leer unas celdas determinadas en un excel mediante codigo asp.net

Hasta ahora, he podido leer un excel completo con una fila de cabecera pero ahora necesito leer otro, pero solo para obtener los datos desde la celda a4 hasta la d7, es decir, olvidandome de los datos de las filas anteriores y sin cabecera. Os pongo una muestra del archivo:

(A1)CUENTA (B1)CENT.COSTE (C1)DEBE (D1)HABER

(A4)60108000 (B4)317012 (C4)259.403,20 (D4)25
(A5)22000100 (B5)P317019 (C5)4.571,97 (D5)20
(A6)50100000 (B6)P316407 (C6)4.571,97 (D6)15
(A7)50100000 (B7)P31600 (C7)1.271,89 (D7)50


Olvidandome de los datos de las filas anteriores.
El codigo que suelo utilizar para leer todo es este:
Código:
Dim excelConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Server.MapPath("~/App_Data/" & Request.QueryString("whatfile") & "") & ";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes"""

 
        ' Create Connection to Excel Workbook 
        Using connection As New OleDbConnection(excelConnectionString)
            Dim command As New OleDbCommand("Select Numerito,Dia,Dist,Type,Surface,Period FROM [DATA$]", connection)
            ' Dim command As New OleDbCommand("Select campo1 FROM [DATA$]", connection)

            connection.Open()

            ' Create DbDataReader to Data Worksheet 
            Using dr As DbDataReader = command.ExecuteReader()
                ' SQL Server Connection String 
                Dim sqlConnectionString As String = "Data Source=xxx"
                While dr.Read()

                    campo1 = Left(dr("Numerito") & blancos, 30)
                    campo2 = Left(dr("Dia") & blancos, 30)
                    campo3 = Left(dr("Dist") & blancos, 30)
                    campo4 = Left(dr("Type") & blancos, 30)
                    campo5 = Left(dr("Surface") & blancos, 30)
                    campo6 = Left(dr("Period") & blancos, 30)

                    'Aqui hago el resto de operaciones
                   
              End While
                
                
            End Using
        End Using
pero ahora lo que necesito es leer solo parte del archivo, como decia anteriormente desde la A4 a la D7.

Alguien me puede echar una mano.
Gracias.