[Resolvido] Preencher DataSet com arquivo Excel

[NS-5 Without the 3 Law 0]

Bom dia galera.

 

Então a duvida é a seguinte.

 

Eu sei preencher um arquivo excel com um dataset ou datatable, mas eu gostaria de preencher um dataset ou datatable apartir de um arquivo excel.

 

Isso é possivel ?

 

Alguém teria algum exemplo ai ?

[NS-5 Without the 3 Law 0]

Achei um exemplo na net e adaptei e funcionou.

 

Se alguem precisar está ai.

 

Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dev\Proj\ResolutionFeedback_sln\Tabela e Dados.xls;Extended Properties=Excel 8.0;"
        Dim cn As OleDbConnection = New OleDbConnection(strConnection)

        cn.Open()


        ' define um objeto dataAdapater
        Dim strSql As String = "SELECT * FROM [dadosfelipe$]"
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(strSql, cn)
        Dim dc As New OleDbCommandBuilder(da)
        Dim ds As New DataSet("Data")
        da.FillSchema(ds, SchemaType.Source, "[dadosfelipe$]")
        da.Fill(ds, "[dadosfelipe$]")

        Try
            da.Fill(dsAlunos, "dadosfelipe")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Não se esqueçam de dar o Imports System.Data (Em vb)

 

Desculpe o duble post.