Discussion :

[TCW78]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Capitaine Kirk]

Bonsoir

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

un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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.

[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.