El inconveniente es que el archivo Excel tiene encabezados por lo tanto tengo que importar desde una fila específica hacia abajo hasta que encuentre una fila en blanco que indicaría el fin de las filas a importar.
Tengo el siguiente código que funciona pero debido a que estoy mandando como parámetro el rango de celdas a importar, recordemos que los rangos pueden variar por eso necesito que importe de una fila hacia abajo.
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