importation excel vers dataset

Bonjour,

Je suis étudiant, je suis en train de réaliser une application en vb.net.

Je voudrais réaliser un code vb.net qui permettera d'importer les colonnes d'un fichier excel. Pas toutes les colonnes mais seulement quelques colonnes selon le nom de colonnes.

Auriez vous une piste à me proposer qui me permettrait de réaliser cela ?

Mercii.. d'avance

Voici le code que j'utilise pour afficher des données apartir d'un fichier excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 Dim DS As System.Data.DataSet
    Dim FeuillesExcel As DataTable
    Dim Commande As System.Data.OleDb.OleDbDataAdapter
    Dim MyConnection As System.Data.OleDb.OleDbConnection
    Dim NomFeuille As String
    Dim IndiceFeuille As Integer = 0
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            MyConnection = New System.Data.OleDb.OleDbConnection( _
             "provider=Microsoft.Jet.OLEDB.4.0; " & _
             "data source=chemin de fichier .xls; " & _
             "Extended Properties=Excel 8.0;")
            MyConnection.Open()
            FeuillesExcel=MyConnection.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing,Nothing, Nothing, "TABLE"})
            NomFeuille = "[" & FeuillesExcel.Rows(IndiceFeuille).Item("TABLE_NAME").ToString() & "]"
 
            Commande = New System.Data.OleDb.OleDbDataAdapter("select chmps from " & NomFeuille, MyConnection)
 
            DS = New System.Data.DataSet
 
            Commande.Fill(DS)
 
            Commande.FillSchema(DS, SchemaType.Mapped)
            DataGrid.DataSource = DS.Tables(0)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If Not MyConnection Is Nothing Then
                MyConnection.Close()
            End If
        End Try
    End Sub

Merci bien