Importar tabla de excel completa a un gridview.

[aid_val]

Esta es la solución.

Código VISUAL:

Dim rutaArchivo As String = ddl_cargar_nombres.SelectedValue
        Dim Obj_Excel As Object
        Dim Obj_Libro As Object
        Dim Obj_Hoja As Object
        Dim dtExcel As New DataTable
 
        With dtExcel.Columns
            .Add("codigo", GetType(String))
            .Add("presupuesto", GetType(String))
            .Add("concepto", GetType(String))
            .Add("unidad", GetType(String))
            .Add("cantidad", GetType(String))
            .Add("unitario", GetType(String))
            .Add("importe", GetType(String))
        End With
 
        ' -- Crear nueva instancia de Excel   
        Obj_Excel = CreateObject("Excel.Application")
        ' -- Agregar nuevo libro
        Obj_Libro = Obj_Excel.workbooks.open(rutaArchivo)
        ' -- Referencia a la Hoja activa (la que añade por defecto Excel )
        Obj_Hoja = Obj_Excel.ActiveSheet
 
        Dim fila As Integer = 2
 
        Dim a As Integer = 0
        Dim b As Integer = 0
 
        Do While (Obj_Hoja.cells(fila, 1).value <> "")
            dtExcel.Rows.Add(Obj_Hoja.cells(fila, 1).value, Obj_Hoja.cells(fila, 2).value, Obj_Hoja.cells(fila, 3).value,
                             Obj_Hoja.cells(fila, 4).value, Obj_Hoja.cells(fila, 5).value, Obj_Hoja.cells(fila, 6).value,
                             Obj_Hoja.cells(fila, 7).value)
            fila += 1
        Loop
        gv_Excel.DataSource = dtExcel
        gv_Excel.DataBind()