TUTORIAL IMPORTAR DATOS A UN DATAGRIDVIEW DESDE EXCEL EN VB.NET

TUTORIAL DE LA APLICACIÓN

SOLO configurar las propiedades indicadas en cada uno de los controles del formulario(Ver Cuadro de Controles), lo que no se indica dejarlo tal como está.

Cuadro de Controles
Botones	TextFields	DataGridViews
Para el boton "XLS": Name: btnXLS FlatStyle: Flat	Para el campo "Ruta XLS": Name: txtRutaXLS BorderStyle: FixedSingle ReadOnly: True	Para el DataGridView: Name: dgvImportacion AllowUserToAddRows: False AllowUserToDeleteRows: False ReadOnly: True SelectionMode: FullRowSelect

Ingresar el siguiente código dentro del Formulario

Imports System.Data.OleDb 'Importacion necesaria para trabajar con ficheros excel

Public Class FrmImportacionDatos
    'EVENTO CLICK DEL BOTON XLS
    Private Sub btnXLS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXLS.Click
        'Instanciamos nuestro cuadro de dialogo
        Dim openFileDialog1 As New OpenFileDialog
        'Directorio Predeterminado
        openFileDialog1.InitialDirectory = "C:\"
        'Filtramos solo archivos con extension *.xls
        openFileDialog1.Filter = "Archivos de Microsoft Office Excel (*.xls)|*.xls"

        'Si se presiona abrir entonces...
        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            'Asignamos la ruta donde se almacena el fichero excel que se va a importar
            txtRutaXLS.Text = openFileDialog1.FileName

            'Instanciamos nuestra cadena de conexion especial para excel,indicando la ruta del fichero
            Dim cadconex As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.txtRutaXLS.Text.Trim & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
            Dim cn As New OleDb.OleDbConnection(cadconex)
            Dim cmd As New OleDbCommand
            Dim da As New OleDb.OleDbDataAdapter
            Dim dt As New DataTable

            cmd.Connection = cn
            'Consultamos la hoja llamada Clientes de nuestro archivo *.xls
            cmd.CommandText = "select * from [Clientes$]"
            cmd.CommandType = CommandType.Text

            da.SelectCommand = cmd
            'Llenamos el datatable
            da.Fill(dt)
            'Llenamos el Datagridview
            dgvImportacion.DataSource = dt
            'Ajustamos las columnas del DataGridView
            dgvImportacion.AutoSizeColumnsMode = 6
        End If
    End Sub
End Class