IMPORTAR ARCHIVO CSV A DATAGRIDVIEW

CODIFICACIÓN

MODULO DE IMPORTACIÓN

Module IMPORTACION

    Sub IMPORTARCSV(ByVal OFD As OpenFileDialog, ByVal TABLA As DataGridView, ByVal DELIMITADOR As String)

        Try

            Dim RUTA As String = ""

            OFD.InitialDirectory = "C:\TEMP\"

            OFD.Filter = "CSV FILES (*.CSV)|*.CSV"

            OFD.FilterIndex = 2

            OFD.RestoreDirectory = True

            If (OFD.ShowDialog() = Windows.FORMS.DIALOGRESULT.OK) Then

                RUTA = OFD.FileName

            End If

            Dim TEXTLINE As String = ""

            Dim SPLITLINE() As String

            If System.IO.File.Exists(RUTA) = True Then

                Dim OBJREADER As New System.IO.StreamReader(RUTA)

                Do While OBJREADER.Peek() <> -1

                    TEXTLINE = OBJREADER.ReadLine()

                    SPLITLINE = Split(TEXTLINE, DELIMITADOR)

                    TABLA.ColumnCount = SPLITLINE.Length - 1

                    TABLA.Rows.Add(SPLITLINE)

                Loop

            Else

                MsgBox("ARCHIVO INEXISTENTE", MsgBoxStyle.Information, "CSV INEXISTENTE")

            End If

        Catch EX As Exception

            MsgBox("ERROR DE IMPORTACION: " + EX.ToString)

        End Try

    End Sub

End Module

EN EL BOTÓN DONDE SE DESEE REALIZAR LA ACCIÓN COLOCAR EL SIGUIENTE CÓDIGO:

IMPORTARCSV(OPENFILEDIALOG1, DATAGRIDVIEW1, ",")

ü  DONDE OPENFILEDIALOG1 ES EL NOMBRE DEL COMPONENTE OPENFILEDIALOG

ü  DONDE DATAGRIDVIEW1 ES EL NOMBRE DEL DATAGRIDVIEW DONDE DESEA VISUALIZAR LA IMPORTACIÓN

ü  DONDE EL CARÁCTER “,” ES EL SEPARADOR DEL ARCHIVO CSV