[VB.NET] Accélerer la lecture d'un fichier excel

Version imprimable

J'ai un souci, je charge dans un tableau les données d'un fichier excel de la manière suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 For i = 2 To nblignes For j = 1 To nbcolonnes tablodata(x) = tablodata(x) & feuille.Cells(i, j).value If (j < nbcolonnes) Then tablodata(x) = tablodata(x) & "," EndIf Next x += 1 Next
Je mets les valeurs d'une meme ligne dans la meme case du tableau avec une virgule entre chaque données

Cependant, la lecture d'un fichier de 10K lignes prend 5 bonnes minutes, alors qu'il ne met meme pas 20 sec pour charger un fichier csv. Meme si je sais que je n'arriverai jamais a ce genre de performance, quelqu'un sait il s'il est possible d'accélerer l'acces aux données d'un fichier *.xls ??

Merci,

là je récupère un million de valeur en 5 secondes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim monExcel As New Excel.Application
Dim Classeur As Excel.Workbook, feuille As Excel.Worksheet
Dim Recup As System.Array
Classeur = monExcel.Workbooks.Open("e:\classeur1.xls")
feuille = Classeur.Worksheets(1)
Recup = CType(feuille.Range(feuille.Cells(1, 1), feuille.Cells(10000, 100)).Value, System.Array)
Classeur.Close(False)
feuille = Nothing
Classeur = Nothing
monExcel.Quit()
monExcel = Nothing
MsgBox(Recup(10, 10).ToString)

29/05/2006, 10h33
Franck2mars

EXCELLENT!!!! Merci pour ton aide, les temps de réponses sont incomparables.....

C'est encore plus rapide que le csv!!! 8O

Merci
16/11/2007, 09h38
godmich

1 pièce(s) jointe(s)

Bonjour,
Bon, je débute complétement en VB.net.
Lorsque j'éxecute le code, ça me renvoit l'exception "NullReferenceException" sur la ligne MsgBox(Recup(20, 20).ToString).

Si quelqu'un pouvait me dire pourquoi ça fait ça, ça m'aiderait beaucoup.
16/11/2007, 11h35
godmich

En fait, maintenant j'arrive à récupérer des valeurs mais ça me renvoie que des 0, alors qu'il y a vraiment des valeurs :S