De CSV a DataGridView y de DatagridView a BBDD.

Leer un CSV

Se puede leer desde Visual Basic un archivo con formato separado por comas CSV, para que esto sea posible, el formato que debe cumplir un CSV debe cumplir estos requisitos:

Sea un fichero de texto plano cualquiera, eliminamos las cabeceras (suele ser la primera fila), y renombramos el fichero como .csv 

Si ahora lo abrimos (debemos tener en nuestro equipo un programa capaz de leer archivos .csv como LibreOffice por ejemplo).

Al intentar abrirlo nos muestra esta pantalla.

Leer una hoja de Excel desde Visual Basic y VB.Net

Vamos a ver lo que hay que hacer para leer un archivo Excel desde código de Visual Basic.Net y Visual Basic 6.0

Desde vb.net

Antes de tocar código vamos al administrador de paquetes de Nuget, para ellos desde el Explorador de soluciones pulsamos con en botón derecho del ratón y elegimos Administrar paquetes Nuget.

Hecho esto, elegimos ExcelDataReader y lo agregamos a nuestro proyecto.

Una vez tenemos agregada esta referencia a nuestro programa podemos leer una hoja de Excel desde nuestro código de Visual Basic .Net del siguiente modo:

Dim ExcelApp As New Excel.Application

Dim worksheet As Excel.Worksheet

Dim workbook As Excel.Workbook

Dim oRange As Excel.Range

Dim oRange_Leer As Excel.Range

Private Sub Lee_Excel()

workbook = ExcelApp.Workbooks.Open("C:\Ruta\Archivo_Excel.xlsx")         worksheet = workbook.Worksheets("Hoja1

oRange = worksheet.Range("A1")  

Dim str1 As String

       str1 = oRange.Value

       Text1.Text = str1

       ExcelApp.DisplayAlerts = False                

ExcelApp.Quit()

 End Sub

Para leer un rango de la Hoja de Excel

Private Sub Lee_Excel()

        Dim i As Integer

        workbook = ExcelApp.Workbooks.Open(strOrigenOriginator) ' Abre el archivo de Excel

        worksheet = workbook.Worksheets("Hoja1")

        oRange = worksheet.Range(strRangoOriginator)

        Dim str1 As String

        For i = 1 To Maximo_Valor_Rango

            str1 = DirectCast(oRange.Value, Object(,))(i, 1)

            If (str1) = cboComboBox.Text Then

                oRange_Leer = worksheet.Range(strRangoLeido & i) ' Lee el rango de celdas y lo almacena en un Combo               cbo_ComboBox.Items.Add(oRange_Leer.Value)

            End If

        Next i

        ExcelApp.DisplayAlerts = False ' Deshabilita las Notificaciones del tipo ¿Desea Guardar el archivo?”

        ExcelApp.Quit() 

    End Sub

Desde Visual Basic 6.0

En este caso se abrirá un libro Excel para leer su contenido y luego se cerrará.

Lo primero que hay que hacer es añadir a las referencias del proyecto la dll de Excel. Para ello sobre nuestro proyecto de Visual Basic  hacemos.  Proyecto -> referencias.