[Débutant] connection vb.net à un fichier Excel

Le code suivant fonctionne. Le problème venait de la connectionstring qui n’était pas valable (elle provoquait le message d'erreur "Pilote ISAM introuvable").

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
         Dim filepath As String = "d:\test.xls"
        Dim conn As OleDbConnection
 
        Try
            conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & filepath & "';Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
 
            conn.Open()
 
            Dim req As String = "SELECT * FROM [Janvier$]"
            Dim cmd As OleDbCommand = New OleDbCommand(req, conn)
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
            Dim ds As DataSet = New DataSet
            ds.Clear()
            da.Fill(ds, "de")
            MsgBox(ds.Tables("de").Rows(0).Item(1))
        Catch ex As Exception
            MsgBox("ex.message")
        End Try