Comment créer des dossiers à partir d'une feuille de calcul Excel

April 24

Comment créer des dossiers à partir d'une feuille de calcul Excel


Des feuilles de calcul Excel peuvent vous aider à automatiser la tâche de créer plusieurs dossiers. Une façon de générer des dossiers est de créer un script en utilisant des plages de données et la commande batch "md". Une autre méthode consiste à utiliser une macro par la fonction MkDir, un composant de Microsoft Excel VBA. Cette offre une flexibilité, et il est moins de temps. Inclure seulement les noms de dossiers appropriés dans votre feuille de calcul pour ces techniques de travail. Les noms de dossier ne doivent pas contenir de guillemets, ou l' un des caractères "\", "/", ":", "?", "*", "<", ">" Et "|".

Instructions

Arrange your folder names in a single column. 1 Disposez vos noms de dossier dans une seule colonne. Cliquez sur l'en-tête de la colonne et tapez "foldernames" dans le champ de nom à côté de la barre de formule.

Add a blank column to the left of the "FOLDERNAMES" column by right-clicking the column header and choosing "Insert." 2 Ajouter une colonne vide à gauche de la colonne "foldernames" en cliquant droit sur ​​l' en- tête de colonne et en choisissant "Insérer".

Highlight the first cell in the blank column. 3 Mettez en surbrillance la première cellule dans la colonne vide. Entrez le texte suivant dans la barre de formule, et le copier dans les autres cellules vides. = "Md" & foldernames

Open your plain text editor and create a blank document. 4 Ouvrez votre éditeur de texte et de créer un document vierge. Copiez et collez le code ci-dessous au début du fichier. Remplacer "C: \ Temp" avec le chemin complet vers le répertoire dans lequel vous souhaitez ajouter des dossiers. Par exemple, pour ajouter des dossiers à "Songs" dans votre lecteur "D", utilisez le chemin "D: \ Songs". @echo off cd "C: \ Temp"

Return to your Excel workbook. 5 Retour à votre classeur Excel. Cliquez-droit sur l'en-tête de la colonne contenant les "MD" formules et choisissez "Copier". Retour à votre éditeur de texte, et coller les valeurs à la fin du fichier. Votre fichier devrait ressembler à quelque chose comme ceci: @echo off cd "c: \ Temp" md foldername1 md foldername2 ..

Save the file on your Desktop as "CreateFolders.bat." 6 Enregistrez le fichier sur votre bureau comme "CreateFolders.bat." Allez sur le bureau, et exécuter le fichier de commandes en double-cliquant sur son icône. Vos dossiers sont maintenant prêts à être utilisés.

Open the Excel workbook. 1 Ouvrez le classeur Excel. Maintenez la touche "Alt" enfoncée et appuyez sur "F8" pour ouvrir la fenêtre Macros.

Enter "MakeFolders" under "Macro Name," and click the "Create" button. 2 Entrez "MakeFolders" sous "Nom de la macro," et cliquez sur le bouton "Créer". Cela ouvre l'éditeur VBA.

Copy and paste the following macro in the editor: Sub MakeFolders() Dim Rng As Range Dim maxRows, maxCols, r, c As Integer Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub 3 Copiez et collez la macro suivante dans l'éditeur: MakeFolders Sub () Dim Rng Comme Range Dim maxRows, maxCols, r, c As Integer Set Rng = Sélection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count Pour c = 1 Pour maxCols r = 1 r Do While <= maxRows Si Len (Dir (ActiveWorkbook.Path & "\" & Rng (r, c), vbDirectory)) = 0 Puis MkDir (ActiveWorkbook.Path & "\" & Rng ( r, c)) On Error Resume Next End If r = r + 1 boucle suivante c End Sub

Save your file as a macro-enabled workbook by opening the "File" menu and choosing "Save As." 4 Enregistrez votre fichier en tant que macro-enabled classeur en ouvrant le menu "Fichier" et en choisissant "Enregistrer sous." Entrez votre nom de fichier préféré et choisissez "Workbook Macro-Enabled Excel" à côté de "Enregistrer sous Type de fichier." Cliquez sur le bouton "Enregistrer".

Highlight the cells containing the folder names. 5 Mettez en surbrillance les cellules contenant les noms de dossier. Maintenez la touche enfoncée et appuyez sur "Alt" "F8" pour ouvrir la fenêtre Macros. Double-cliquez sur "MakeFolders." Les dossiers sont maintenant prêts à être utilisés.