Ouverture d'un fichier Excel avec ADO

Version imprimable

Bonjour à tous,

Je travaille sur une application vb.net en ce moment, qui ouvre des fichiers Excel pour y lire des données.
J'utilise la méthode ADO, dont voici un extrait de mon code:
Code:

1 2 3 4 5 6 7 8 _strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & fileUrl & ";" & _ "Extended Properties=""Excel 8.0;""" 'Définition et alimentation du DataSet _myDataset = New DataSet() _myData = New OleDbDataAdapter("SELECT * FROM [" & SheetName & "$]", _strConn)
Le système fonctionne correctement, mais je dois faire évoluer le produit.
Ici, dans la requête SELECT, le nom de la feuille excel doit être connu à l'avance. Dans l'application, il est donc convenu d'appeler la première feuille "Feuil1".
Cependant, je dois rendre l'outil plus souple et rendre l'application capable d'ouvrir n'importe quel nom de feuille.

Ma question est la suivante : comment ouvrir un document Excel avec ADO sans connaître le nom de la première feuille du fichier?

Merci de votre aide

15/12/2008, 18h05
Gold Bug

Citation:

Envoyé par sorlok

Cependant, je dois rendre l'outil plus souple et rendre l'application capable d'ouvrir n'importe quel nom de feuille.

Excel, c'est l'opposé de la souplesse ;)

Personnellement, j'exporterais les données au format CSV pour pouvoir les manipuler directement avec un TextReader.
15/12/2008, 18h12
sorlok

Malheurreusement le client est l'opposé de la souplesse aussi...
Je gère déjà les csv (et la, noooo problem évidement).

Ma question perdure donc...
snif

Sèche tes larmes sorlok, car Excel est bien plus souple que certains le pensent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
string filePath = @"C:\Classeur1.xls";
string connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties=\"Excel 8.0\";";
System.Data.OleDbConnection connection = new OleDbConnection(connectionString);
connection.Open();
 
System.Data.DataTable dt = connection.GetSchema("tables");
 
for (int i = 0; i < dt.Rows.Count; i++)
{
    Console.WriteLine(dt.Rows[i].ItemArray[2].ToString());
}
 
connection.Close();

Alors dis-nous ce que tu vois sur ta console ? :roll:

Citation:
Envoyé par Skalp
Sèche tes larmes sorlok, car Excel est bien plus souple que certains le pensent :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 string filePath = @"C:\Classeur1.xls"; string connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties=\"Excel 8.0\";"; System.Data.OleDbConnection connection = new OleDbConnection(connectionString); connection.Open(); System.Data.DataTable dt = connection.GetSchema("tables"); for (int i = 0; i < dt.Rows.Count; i++) { Console.WriteLine(dt.Rows[i].ItemArray[2].ToString()); } connection.Close();
Alors dis-nous ce que tu vois sur ta console ? :roll:
J'avoue que la même chose en vb.net ce serait le dream :D
J'ai du mal à faire la transposition :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
dim filePath as string = "C:\Classeur1.xls"
dim connectionString as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties=""Excel 8.0"";"
dim connection as System.Data.OleDbConnection = new OleDbConnection(connectionString)
connection.Open()
 
dim dt as System.Data.DataTable = connection.GetSchema("tables")
while  dt.Rows.hasrow
 
    Console.WriteLine(dt.Rows[i].ItemArray[2].ToString())
do
 
connection.Close()

voilà ce que ça donne normalement en VB.NET
j'ai fait ça direct dans l'éditeur du forum, il y a peut etre des erreurs.

Bon, je me suis un peu acharné et j'ai réussi à modifier mon code pour l'adapter au vb.net (tu avais déjà fait le gros du boulot ;) )
Et ça fonctionne parfaitement! Je vais adapter ça pour mon soft, un big big merci, tu as parfaitement ciblé mon problème. Génial!

Pour info voici la source une fois transposée en vb.net :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Imports System.Data.OleDb [...] Dim filePath As String = "C:\Classeur1.xls" Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath & ";Extended Properties=""Excel 8.0"";" Dim connection As OleDbConnection = New OleDbConnection(connectionString) connection.Open() Dim dt As System.Data.DataTable = connection.GetSchema("tables") For i As Integer = 0 To dt.Rows.Count - 1 MsgBox(dt.Rows(i).ItemArray(2).ToString()) Next connection.Close()

16/12/2008, 10h29
sorlok

lol bon ben joli travail commun.
Encore merci pour tout et très bonne journée!
16/12/2008, 13h40
Skalp

N'oublie pas de cliquer sur :resolu: (tout en bas de cette page) lorsque ton problème est résolu :ccool:
17/12/2008, 09h59
sorlok

Je le cherchais hier sans le trouver.
Je devais être déconnecté.

Désolé et encore merci pour votre aide!