TUTORIAL DE LA APLICACIÓN

1. Diseño del Formulario



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

2. Codificación

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


Video Demostrativo

Copyright © 2014 Trujillo - Perú