Discussion :

[Franck2mars]

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

Code :

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

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,

[bidou]

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

Code :

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

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)

[Franck2mars]

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

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

Merci

[godmich]

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.

[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