[Excel-VBA]Pb de lire des fichiers textes et les mettre dans une table Variant

Version imprimable

20/02/2007, 17h54
tangjuncn

[Excel-VBA]Pb de lire des fichiers textes et les mettre dans une table Variant

Bonjour tout le monde,

J'ai besoin d'un exemple qui lit plusieurs fichiers texte en entrée(par ex: CSV), les stocker dans la mémoire dans un Variant, après les affiche tout d'un coup dans la sheet de destination.

Qn pourrait me donner un bout de code comme exemple? Merci bcp!!

:)
20/02/2007, 20h17
Pierre Fauconnier
Bonsoir

Pourquoi ne pas mettre directement le contenu dans la feuille de destination?

Si c'est en raison d'une lenteur d'affichage, place
Code:

1 2 application.screenupdating = false
en début de macro et

Code:

application.screenupdating = true

en fin de macro...
21/02/2007, 09h36
cafeine

Hello,

je rejoins Pierre, et à quoi sert de stocker les données dans un variant ?

Citation:

Envoyé par tangjuncn

Bonjour tout le monde,

J'ai besoin d'un exemple qui lit plusieurs fichiers texte en entrée(par ex: CSV), les stocker dans la mémoire dans un Variant, après les affiche tout d'un coup dans la sheet de destination.

Qn pourrait me donner un bout de code comme exemple? Merci bcp!!

:)
21/02/2007, 14h59
tangjuncn

Parce qu'il y a des manipulation et traitement de données à faire.
Au paravant, l'exécution entre Excel et VBA sont bcp plus lent que de faire simplement tout dans VBA,non?
Les gens m'on proposé de stocker toutes les donées dans une matrice de Variant, les manipuler et afficher d'un seul coup.
Afficher sur la feuille et les manipuler ralentit.

btw, il y a une méthode de récupérer directement une colonne de la matrice de Variant?
je ne vois pas trop comment faire8O
21/02/2007, 15h16
tangjuncn

qn sait si dans une table de 2 dimensions de variant, on peut récupérer directement une colonne ou pas?

Dans ce cas, autant utiliser DAO et faire un recordset sur ton fichier .CSV

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub GetCol()
 
Dim strPath As String
Dim strTable As String
Dim strFolder As String
 
strPath = "c:\temp\dat.csv"
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
strTable = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
strFolder = Left(strPath, InStrRev(strPath, "\") - 1)
Set db = DAO.OpenDatabase(strFolder, _
                        False, _
                        False, _
                        "Text;Database=" & strFolder & ";HDR=NO;Table=" & _
                            strTable)
 
' F1 = Field numéro 1
Set rs = db.OpenRecordset("SELECT F1 FROM [" & strTable & "]", DAO.dbOpenSnapshot, _
                                DAO.dbReadOnly, DAO.dbReadOnly)
 
ActiveSheet.Range("A2").CopyFromRecordset rs
 
Set rs = Nothing
Set db = Nothing
 
End Sub