1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
//supprimer le contenu de la table
TableSupprimeTout(TABLE_import1)
// mise en place d'un code pour importer les données d'un fichier EXCEL vers une table WINDEV
t est un entier
MaFeuille est un xlsDocument
sNomFichierXls est une chaîne
sNomFichierXls = fSélecteur("", "", ...
"Sélectionnez un fichier.....", ...
"Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre + fselExiste)
SI sNomFichierXls = "" ALORS RETOUR
MaFeuille = xlsOuvre(sNomFichierXls,xlsCompatible)
nligne est un entier
nligne = xlsNbLigne(MaFeuille,Vrai)
// nous partirons de la ligne 2 pour ne pas prendre en compte les entêtes de colonne.
POUR t = 16 A nligne
TableAjouteLigne(TABLE_import1,xlsDonnée(MaFeuille,t,1,Vrai),xlsDonnée(MaFeuille,t,3,Vrai),xlsDonnée(MaFeuille,t,4,Vrai),xlsDonnée(MaFeuille,t,6,Vrai),xlsDonnée(MaFeuille,t,7,Vrai),xlsDonnée(MaFeuille,t,9,Vrai) ,xlsDonnée(MaFeuille,t,11,Vrai),xlsDonnée(MaFeuille,t,13,Vrai),xlsDonnée(MaFeuille,t,15,Vrai),xlsDonnée(MaFeuille,t,17,Vrai))
FIN |
Partager