|
|
|
|
Le code suivant permet de parcourir toutes les cellules des différentes feuilles d'un fichier XLS. // Nom du fichier sNomFichierExcel est une chaîne  // Sélection par l'utilisateur du fichier à ouvrir sNomFichierExcel = fSélecteur("", sNomFichierExcel, "Indiquer le fichier Excel à lire", ... "Classeur Excel (*.XLS)" + TAB + "*.XLS" + RC + "Tous fichiers (*.*)" + TAB + "*.*", ... "*.XLS", fselOuvre + fselExiste)  // Annulation ? SI sNomFichierExcel = "" ALORS RETOUR  // Ouvre le fichier xlsdoc est un xlsDocument xlsdoc = xlsOuvre(sNomFichierExcel) SI ErreurDétectée ALORS Erreur("Echec de l'ouverture du classeur Excel", ErreurInfo()) RETOUR FIN  nNumFeuille est un entier nNbLigneFeuille est un entier nNbColonneFeuille est un entier nNumLigne est un entier nNumColonne est un entier  // Pour chaque feuille du classeur POUR nNumFeuille = 1 _À_ xlsdoc.NombreFeuille // On se positionne sur la feuille indiquée xlsdoc.Feuille = nNumFeuille // Nombre de lignes nNbLigneFeuille = xlsdoc.NombreLigne nNbColonneFeuille = xlsdoc.NombreColonne // Jauge JAUGE_Jauge = 0 JAUGE_Jauge.BorneMax = nNbLigneFeuille POUR nNumLigne = 1 _À_ nNbLigneFeuille JAUGE_Jauge++ POUR nNumColonne = 1 _À_ nNbColonneFeuille Trace("Ligne" + nNumLigne + ", Colonne" + nNumColonne + "=" + .. xlsdoc.Cellule[nNumLigne, nNumColonne]) FIN FIN FIN  Info("Lecture terminée")
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|