[SOLUCIONADO] Leer datos de excel desde vb.net

[maialenlopez]

Hola, necesito leer los datos que hay en un excel desde vb.net. Ya he echo la conexión y abro el xls pero no se como coger los datos. Os pongo el código para que me echéis una mano.

Código vb.net:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim xls_cn As New OleDbConnection
        Dim xls_cmd As New OleDbCommand
        Dim xls_reader As New OleDbDataAdapter
        Dim mysql_conn As New MySqlConnection
        Dim mysql_comando As New MySqlCommand
        Dim xls_sql, mysql_connstring, insert As String
 
        If Me.servidor.Text = "" Or Me.usuario.Text = "" Or Me.password.Text = "" Or Me.bbdd.Text = "" Then
            MsgBox("Completa datos de conexión")
            Exit Sub
        End If
 
        Try
            If xlsx = "" Then
 
                MsgBox("Selecciona un archivo.")
                Exit Sub
            Else
 
                Dim strExtension As String = ""
                Dim nombreXls As String
                Dim m_Excel As Microsoft.Office.Interop.Excel.Application
 
                nombreXls = Path.GetFileName(xlsx)
                strExtension = Path.GetExtension(xlsx)
                If strExtension = ".xls" Or strExtension = ".xlsx" Then
                    'MsgBox("es un archivo excel")
                    If (File.Exists(xlsx)) Then
                        xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsx + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'"
                        'xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" + xlsx + ";Extended Properties='Excel 12.0;HDR=YES'"
                        Using xls_cn
 
                            m_Excel = CreateObject("Excel.Application")
                            m_Excel.Workbooks.Open(xlsx)
                            xls_cn.Open()
                            xls_cmd.CommandText = "SELECT * FROM [Hoja1$]"
                            xls_cmd.Connection = xls_cn
                            xls_reader.SelectCommand = xls_cmd
                            
 
                            [B]'quiero aquí obtener los datos del excel ya que algunos de ellos luego tengo que guardarlos en una base de datos[/B]
 
                        End Using
 
                        'Eliminamos la instancia de Excel de memoria
                        If Not m_Excel Is Nothing Then
 
                            m_Excel.Quit()
                            m_Excel = Nothing
                        End If
                    End If
                Else
 
                    MsgBox("Introduzca un archivo .xls o .xlsx .")
                    Exit Sub
                End If
            End If
 
        Catch ex As Exception
            MsgBox("Error" & Chr(13) & Chr(13) & ex.Message)
        End Try
    End Sub
 

[josemanuel31675]

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

[maialenlopez]

Iniciado por josemanuel31675

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

Hola,
No entiendo muy bien como lo haces.
¿No se podría hacer como lo estoy haciendo yo? ¿Alguien me puede echar una mano?

[emmax]

Con el codigo que ya tienes puedes hacer un OleDbDataAdapter y llenar un DataTable con el y ya despues una opcion seria llenar un DataGridView para ver los datos....

[maialenlopez]

Iniciado por emmax

Con el codigo que ya tienes puedes hacer un OleDbDataAdapter y llenar un DataTable con el y ya despues una opcion seria llenar un DataGridView para ver los datos....

Esto es lo que me has comentado?? He echo lo siguiente pero me tarda muchisimo para llegar a leer una fila cada vez.

Código vb.net:

'obtener el nombre del archivo
                nombreXls = Path.GetFileName(xlsx)
                'obtener la extension del archivo
                strExtension = Path.GetExtension(xlsx)
                If strExtension = ".xls" Or strExtension = ".xlsx" Then
                    'MsgBox("es un archivo excel")
                    If (File.Exists(xlsx)) Then
                        xls_cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsx + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'")
                        'xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsx + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'"
                        'xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" + xlsx + ";Extended Properties='Excel 12.0;HDR=YES'"
                        m_Excel = CreateObject("Excel.Application")
                        m_Excel.Workbooks.Open(xlsx)
 
                        Dim dt As New DataTable("Datos")
 
                        Using xls_cn
 
                            xls_cn.Open()
                            xls_cmd.CommandText = "SELECT * FROM [Hoja1$]"
                            xls_cmd.Connection = xls_cn
                            xls_reader.SelectCommand = xls_cmd
 
                            'contar candidad de filas del excel
                            total = m_Excel.Range("a1").CurrentRegion.Rows.Count
 
                            For i = 0 To total - 2
                                'Guardamos los datos en el DataTable
                                Dim da As New OleDbDataAdapter(xls_cmd)
                                da.Fill(dt)
 
                                fecha = dt.Rows(i).Item(2)
                                factura = dt.Rows(i).Item(3)
                                telefono = dt.Rows(i).Item(4).ToString
                                extension = dt.Rows(i).Item(5).ToString
                                tTrafico = dt.Rows(i).Item(6)
                                cantidad = dt.Rows(i).Item(8)
                                bruto = dt.Rows(i).Item(10)
                                neto = dt.Rows(i).Item(13)
                                facturado = dt.Rows(i).Item(16)
                            Next
                            MsgBox("valor de i: " + i)
                        End Using
                    End If
                Else
 
                    MsgBox("Introduzca un archivo .xls o .xlsx .")
                    Exit Sub
                End If
 

Porque puede ser? estoy haciendo algo mal?

[maialenlopez]

Me respondo a mi misma. Eso me pasa por que tengo que sacar lo siguiente fuera del for.

Código vb.net:

'Guardamos los datos en el DataTable
Dim da As New OleDbDataAdapter(xls_cmd)
da.Fill(dt)
 

No me había dado cuenta.

[Piluso2015]

Estimada maialenlopez,
entiendo que ha transcurrido bastante tiempo, pero necesito su ayuda. He cargado este código y no funciona correctamente, tarda demasiado tiempo en ejecutarse. Quizás no he copiado bien el code a pesar que lo he revisado.
Agradeceré me ayudes con esto.

saludos