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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| 'Nécessite d'activer la référence
'"Microsoft ActiveX Data Objects 2.x Library"
'
Dim Rc As ADODB.Recordset
Dim cn As String, Chemin As String, Fichier As String, x As String
Dim i As Long
'répertoire contenant les fichiers texte
Chemin = "C:\dossier"
'Ouvre un nouveau fichier Texte pour compiler les données
'! attention à ne pas le placer dans le meme repertoire que les autres fichiers...
Open "C:\Compilation.txt" For Output As #1
'boucle sur l'ensemble des fichiers txt
Fichier = Dir(Chemin & "\*.txt")
Do While Fichier <> ""
'----- requète pour récupérer le contenu du fichier txt
cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Chemin & ";Extensions=asc,csv,tab,txt"
Set Rc = New ADODB.Recordset
Rc.Open Source:="SELECT * FROM [" & Fichier & "]", ActiveConnection:=cn
'--- recuperation de la première ligne
For i = 0 To Rc.Fields.Count - 1
x = x & Rc.Fields(i).Name & ";"
Next i
Print #1, Left(x, Len(x) - 1) & vbCrLf;
'---
Print #1, Rc.GetString(adClipString, -1, ";", vbCrLf, "")
Rc.Close
x = ""
'-------------------------
Fichier = Dir
Loop
'Fermeture du fichier Compilation
Close #1
MsgBox "Opération terminée" |
Partager