|
Savoir comment utiliser Excel pour lire un répertoire et créer une feuille listant le contenu du répertoire vous permet d'utiliser Excel comme une application de gestion de fichiers . Par exemple, vous pourriez fournir à l'utilisateur une liste de répertoire à partir duquel elle peut choisir une table de base de données Access à importer dans le classeur Excel actuel . Le projet de cet article repose sur le langage de programmation , Visual Basic pour Applications, ou VBA d'Excel pour faire court. Vous pouvez utiliser cette langue pour automatiser n'importe quelle tâche Excel qui ne nécessite pas l'intervention de l' utilisateur . Une façon efficace d'apprendre cette langue est d'utiliser la commande " Enregistrer une macro " d'Excel sur l'onglet "Developer " . Instructions
1 Cliquez sur le bouton " Options" sur le bouton Office , puis cliquez sur l'option "Afficher développeur " case à cocher pour révéler l'onglet « Développeur ». Cet onglet contient des boutons pour les macros Visual Basic . Vous utilisez une macro VBA pour lister les fichiers dans un répertoire et de stocker cette liste dans une nouvelle feuille de calcul.
2 Cliquez sur l'onglet " développeur" , puis cliquez sur le bouton " Visual Basic " à pénétrer dans l'environnement de programmation Visual Basic. Double- cliquez sur l'élément " Ce classeur " dans le volet de navigation à gauche de l'écran . Cette action ouvre une nouvelle fenêtre de programmation dans laquelle vous pouvez entrer votre programme d' inscription dans l'annuaire .
3 Collez le programme suivant dans la fenêtre de programmation. Ce programme utilise la fonction VBA "Dir " pour lire un répertoire. La sortie de cette fonction est un fichier de ce répertoire.
Option Explicit
listfiles Public Sub ()
Dim. d
d = Dir ( "c: * \\ windows \\ " dans le menu )
MsgBox d
End Sub
4 Cliquez sur l'un des énoncés du programme , puis cliquez sur "Exécuter" de "Exécuter" commande pour exécuter le programme. Excel affiche une boîte de message indiquant le nom d'un fichier dans le dossier "C: . \\ Windows "
5 Collez le programme après le "sub End" déclaration du premier programme . Ce programme crée un classeur et d'insérer une valeur dans l'une de ses cellules . Votre programme définitif qui répertorie les fichiers d'un répertoire utilisera les déclarations contenues dans ce programme pour insérer des noms de fichiers dans un nouveau classeur .
Option Explicit
MakeNewWorkbook Public Sub ()
des classeurs . Ajouter
ACTIVECELL = " Bonjour à tous"
End Sub
6 Exécutez le programme que vous avez fait la précédente , puis cliquez sur l'icône « Excel » dans la barre des tâches Windows pour revenir à Excel . Votre programme va ajouter un nouveau classeur dont la feuille de calcul actuelle affiche le texte " Bonjour à tous" dans la cellule A1 .
7 étape d' utilisation de 2 de Les instructions pour retourner à l'environnement de programmation VBA , puis collez- le programme après l'instruction " End Sub " du programme précédent . Ce programme utilise la fonction " Dir" pour rassembler tous les fichiers dans le répertoire "C : \\ windows " du dossier . Le programme enregistre chaque fichier dans sa propre ligne dans une feuille de calcul d'un nouveau classeur.
Option Explicit
publique ListOneFile Sub ( )
Dim. d
d = Dir ( "c: \\ windows \\ *")
Workbooks.Add
faire jusqu'à d = ""
ActiveCell = d
' descendre
ActiveCell.Offset (1). Sélectionnez
d = Dir
boucle
End Sub
8 exécutez le programme que vous avez fait les précédents, puis revenir à Excel en utilisant les instructions de l'étape 6. Vous verrez une nouvelle feuille de calcul dont les cellules afficher une liste de tous les fichiers dans le répertoire "C : \\ windows " . Répertoire
|
