Importar varios archivos excel a gridview

[ragde23fer]

Hola a todo, me gustaria poder importar varios archivos de excel que tengo una determinada carpeta a mi gridview, pero solo me importa el ultimo, imagino q es por q le doy siempre DataSource, por favor alguien q me ayude a lograrlo?... dejare mi codigo para q me ayuden con la modificacion y quizas a alguien le sirva en sus proyectos.

Estoy usando Windows 8 64bits, Office 2013 y Visual Studio 2012.

Saludos

Código HTML:

Imports System.Data.OleDb

Public Class NImporta1
    Dim Archivo As String

    Private Sub NImporta1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'NORTHWINDDataSet1.Dato_Importados' Puede moverla o quitarla según sea necesario.
        Me.Dato_ImportadosTableAdapter.Fill(Me.NORTHWINDDataSet1.Dato_Importados)

    End Sub

    Private Sub btnExtraer_Click(sender As Object, e As EventArgs) Handles btnExtraer.Click
        Dim cn As New OleDbConnection
        Dim cm As New OleDbCommand
        Dim foundFile As String

        For Each foundFile In My.Computer.FileSystem.GetFiles("D:\SISTEMA DEMO\ARCHIVOS")
            Archivo = Replace(Replace(foundFile, "D:\SISTEMA DEMO\ARCHIVOS\", ""), ".xlsx", "")
            Me.LstEmpleado.Items.Add(Archivo)

            'EMPIEZA LA CARGA
            Try
                Dim stRuta As String = foundFile
                Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";")))
                Dim cnConex As New OleDbConnection(stConexion)
                Dim Cmd As New OleDbCommand("Select * From [Hoja1$]")
                Dim Ds As New DataSet
                Dim Da As New OleDbDataAdapter
                Dim Dt As New DataTable
                cnConex.Open()
                Cmd.Connection = cnConex
                Da.SelectCommand = Cmd
                Da.Fill(Ds)
                Dt = Ds.Tables(0)
                'Me.gvArchivos.Columns.Clear()
                Me.gvArchivos.DataSource = Dt
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End Try
            'TERMINA LA CARGA
        Next

    End Sub
End Class

[TheAlkaline]

Ya no utilizo mucho VB, pero a ver si te algo te ayuda. Intenta utilizar un solo DataSet, en tu for each estas inicializando uno nuevo cada vez que pasas por un archivo excel, es por eso que solo te muestra el ultimo.

[ragde23fer]

Iniciado por TheAlkaline

Ya no utilizo mucho VB, pero a ver si te algo te ayuda. Intenta utilizar un solo DataSet, en tu for each estas inicializando uno nuevo cada vez que pasas por un archivo excel, es por eso que solo te muestra el ultimo.

Hola, gracias por tu respuesta, pero entonces declararia fuera del for a mi datatable???

[ragde23fer]

Iniciado por TheAlkaline

Ya no utilizo mucho VB, pero a ver si te algo te ayuda. Intenta utilizar un solo DataSet, en tu for each estas inicializando uno nuevo cada vez que pasas por un archivo excel, es por eso que solo te muestra el ultimo.