Importer des CSV en masse : Différence entre versions
De zBasic
(Page créée avec « Chaque CSV est localisé dans un répertoire dédié sous la forme "1","01","Ain","AIN","ain","A500" "2","02","Aisne","AISNE","aisne","A250" "3","03","Allier","ALLIER",... ») |
|||
| (Une révision intermédiaire par le même utilisateur non affichée) | |||
| Ligne 7 : | Ligne 7 : | ||
* La 2nde colonne du CSV doit être considérée comme du texte | * La 2nde colonne du CSV doit être considérée comme du texte | ||
Une feuille nommée "CSV_" suivi d'un numéro incrémenté sera créée. | Une feuille nommée "CSV_" suivi d'un numéro incrémenté sera créée. | ||
| + | |||
| + | '''Attention''' : n'oubliez pas que OpenOffice Calc est limité à '''256''' feuilles | ||
| + | |||
Sub Main | Sub Main | ||
GlobalScope.BasicLibraries.loadLibrary ("zBasic") | GlobalScope.BasicLibraries.loadLibrary ("zBasic") | ||
| Ligne 21 : | Ligne 24 : | ||
next | next | ||
End Sub | End Sub | ||
| − | [[Catégorie: | + | [[Catégorie:Exemples]] |
Version actuelle en date du 8 janvier 2024 à 17:12
Chaque CSV est localisé dans un répertoire dédié sous la forme
"1","01","Ain","AIN","ain","A500" "2","02","Aisne","AISNE","aisne","A250" "3","03","Allier","ALLIER","allier","A460" "5","05","Hautes-Alpes","HAUTES-ALPES","hautes-alpes","H32412" ...
- La 2nde colonne du CSV doit être considérée comme du texte
Une feuille nommée "CSV_" suivi d'un numéro incrémenté sera créée.
Attention : n'oubliez pas que OpenOffice Calc est limité à 256 feuilles
Sub Main
GlobalScope.BasicLibraries.loadLibrary ("zBasic")
sChemin = "c:\temp\test"
oTablo = zBasic.ListeFichiers(sChemin, "csv")
oListe = zTable.VersListe(oTablo)
for each sFichier in oListe
i=i+1
oFiltre = zCSV.Demarre(sFichier,"V")
zCSV.Parametre(oFiltre, "JEU", "UTF-8")
zCSV.Colonne(oFiltre, 2, "TEXTE")
zFeuille.Importe(sFichier, "CSV_" & i, oFiltre)
next
End Sub
