Public Function importarExcel(ByVal ruta As String, ByVal hoja As String, ByVal rango As String)
Try
'declarando las variables
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim DtSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
'declarando variable de conexión
MyConnection = New System.Data.OleDb.OleDbConnection _
("provider=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source='" & ruta & "'; " & _
"Extended Properties='Excel 8.0;HDR=NO'")
'creando consulta para extraer contenido del archivo de excel y ejecutandola
MyCommand = New System.Data.OleDb.OleDbDataAdapter _
("select * from [" & hoja & "$" & rango & "]", MyConnection)
MyCommand.TableMappings.Add("Table", "TestTable")
DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)
'tabla.DataSet = DtSet.
'ubicando el resultado en el datagridview
dgvDatos.DataSource = DtSet.Tables(0)
'cerrando conexión
MyConnection.Close()
Catch ex As Exception
'imprimiendo mensaje de error
MsgBox(ex.ToString)
End Try
Return False
End Function