04/05/2013, 08:12
|
| | Fecha de Ingreso: marzo-2011
Mensajes: 36
Antigüedad: 13 años, 10 meses Puntos: 1 | |
Respuesta: Leer datos de excel desde vb.net Bueno yo uso la dll EPPlus me funciona muy bien, te anexo mi codigo para que puedas realizar lo que tu necesitas
Dim NewFile As FileInfo = New FileInfo(Server.MapPath("uploaded.xlsx"))
Dim NewTemplate = New FileInfo(Server.MapPath("uploaded.xlsx"))
Dim XlPackage = New ExcelPackage(NewFile, NewTemplate)
Dim sheetDatos = XlPackage.Workbook.Worksheets(Me.TxtHoja.Text)
If sheetDatos IsNot Nothing Then
Dim Termine As Boolean = False
Dim Fila As Integer = 9
While Not Termine
archivo = sheetDatos.Cells("C" & Fila).Value
Try
If archivo IsNot Nothing Then
If Fila = 9 Then
Dim Fecha As Date = sheetDatos.Cells("P" & Fila).Value
Query.BorrarMesalSubir(Fecha.Month, Fecha.Year)
End If
row = tabla.NewRow
row.Item = sheetDatos.Cells("A" & Fila).Value
row.Planta = sheetDatos.Cells("B" & Fila).Value
tabla.Rows.Add(row)
adapt.Update(tabla)
Else
Termine = True
End If
Fila = Fila + 1
Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
End While
End If
Catch ex As Exception
End Try |