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