Importer des CSV en masse : Différence entre versions

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