Importer des CSV en masse
De zBasic
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