Feuille X dans Excel en VB.NET

Version imprimable

Bonjour à tous,

Voici, j'ai un bout de code qui lit un fichier Excel pour l'ajouter dans une table.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strFilePath & ";" & _ "Extended Properties=""Excel 8.0;HDR=YES""" Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1) conn1.Open() Dim cmd1 As New System.Data.OleDb.OleDbCommand("Select * From [Feuil1$]", conn1) Dim rdr As OleDbDataReader = cmd1.ExecuteReader Do While rdr.Read() ... Loop
Ma question est... y a-t-il quelqu'un qui connait un truc pour être capable de lire la première feuille d'un fichier Excel, peut importe son nom?

Quelque chose du genre : Select * From [Worksheet(0)$]...

Quelqu'un a une idée?

Merci

Bonsoir

Et tous simplement en utilisant une variable passer en paramètre ?

un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports System.Data.OleDb
 
Module Module1
    Dim strFilePath As String = "MonChemin"
    Dim Feuille As String = "Feuil1"
    Sub Main()
        MySub(strFilePath, Feuille)
    End Sub
 
    Sub MySub(ByVal Chemin As String, ByVal Table As String)
        Dim m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=" & strFilePath & ";" & _
       "Extended Properties=""Excel 8.0;HDR=YES"""
 
        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        conn1.Open()
        Dim cmd1 As New System.Data.OleDb.OleDbCommand("Select * From[" & Feuille & "$]", conn1)
        Dim rdr As OleDbDataReader = cmd1.ExecuteReader
        Do While rdr.Read()
 
        Loop
    End Sub
End Module

14/02/2008, 16h35
TCW78

Bonne idée mais ça ne prendra pas automatiquement la première feuille du fichier Excel. :?

Je cherche vraiment un bout de code qui ferait que VB.NET prend la première feuille du fichier Excel, peut importe son nom.
14/02/2008, 18h27
Skalp

Tu peux essayer de récupérer la structure de ta source de données Excel :
Récupération de la structure de la source de données (métadonnées) d'Excel

A partir de là, tu peux essayer de retrouver quelle est la première feuille (en fonction des noms de colonnes peut-être ?), mais je ne pense pas qu'il y ait l'information de position de la feuille, car dans ton cas, tu considères Excel comme une source de données et donc cela ne me semble pas étonnant qu'il n'y ait pas ce genre d'information.
18/02/2008, 17h25
TCW78

Je laisse tomber, en effet, il se peut que cette propriété "Nom de la feuille" ne soit pas paramétrable dans la structure Excel.

Je vais forcer mes usagers à indiquer le nom de la feuille.

Merci pour votre aide.