Mappák készítése Excel-táblázatból

Az Excel-táblázatok segítségével automatizálhatja a több mappa létrehozását. A mappák létrehozásának egyik módja egy szkript létrehozása adattartományok és az „md” kötegparancs használatával. Egy másik módszer a makrók használata az MkDir függvényen keresztül, amely a Microsoft Excel VBA egyik összetevője. Ez rugalmasságot biztosít, és kevésbé időigényes. Csak megfelelő mappaneveket írjon be a táblázatba, hogy ezek a technikák működjenek. A mappanevek nem tartalmazhatnak idézőjeleket, vagy a "", "/", ":", "*", "?", "<", ">" és "|" karaktereket.

Kötegelt fájl használata

1. lépés

Rendezd a mappaneveket egyetlen oszlopba. Kattintson az oszlop fejlécére, és írja be a „FOLDERNAMES” kifejezést a képletsáv melletti névmezőbe.

2. lépés

Adjon hozzá egy üres oszlopot a „FOLDERNAMES” oszlop bal oldalán. Ehhez kattintson a jobb gombbal az oszlop fejlécére, és válassza a „Beszúrás” lehetőséget.

3. lépés

Jelölje ki az üres oszlop első celláját. Írja be a következő szöveget a képletsorba, és másolja a többi üres cellába.

="md "&FOLDERNAMES

4. lépés

Nyissa meg az egyszerű szövegszerkesztőt, és hozzon létre egy üres dokumentumot. Másolja ki és illessze be az alábbi kódot a fájl elejére. Cserélje ki a "C:\Temp" elemet annak a könyvtárnak a teljes elérési útjával, amelybe mappákat szeretne hozzáadni. Ha például mappákat szeretne hozzáadni a "D" meghajtón belüli "Songs"-hoz, használja a "D:\Songs" elérési utat.

@echo off cd "C:\Temp"

5. lépés

Térjen vissza az Excel-munkafüzethez. Kattintson a jobb gombbal az "md" képleteket tartalmazó oszlop fejlécére, és válassza a "Másolás" lehetőséget. Menjen vissza a szövegszerkesztőbe, és illessze be az értékeket a fájl végére. A fájlnak most valahogy így kell kinéznie:

@echo off cd "c:\Temp" md mappanév1 md mappanév2 ..

6. lépés

Mentse el a fájlt az asztalra "CreateFolders.bat" néven. Lépjen az Asztalra, és futtassa a kötegfájlt az ikonjára duplán kattintva. Mappái készen állnak a használatra.

Makró használata

1. lépés

Nyissa meg az Excel munkafüzetet. Tartsa lenyomva az "Alt" billentyűt, és nyomja meg az "F8" gombot a Makró ablak megnyitásához.

2. lépés

Írja be a "MakeFolders" kifejezést a "Makró neve" alatt, majd kattintson a "Létrehozás" gombra. Ezzel megnyitja a VBA-szerkesztőt.

3. lépés

Másolja és illessze be a következő makrót a szerkesztőbe:

Sub MakeFolders()

Dim Rng As Range Dim maxRows, maxCols, r, c As Integer

Set Rng =Kijelölés

maxRows =Rng.Rows.Count maxCols =Rng.Columns.Count

For c =1 To max Cols r =1 Do While r <=maxRows If Len(Dir(ActiveWorkbook.Path &"" &Rng(r, c), vbDirectory)) =0 Akkor MkDir (ActiveWorkbook.Path &"" &Rng (r, c)) Hiba esetén Folytatás a következő vége Ha r =r + 1 hurok Következő c

Vége Sub

4. lépés

Mentse el a fájlt makróképes munkafüzetként. Ehhez nyissa meg a „Fájl” menüt, és válassza a „Mentés másként” lehetőséget. Adja meg a kívánt fájlnevet, és válassza a „Mentés fájltípusként” melletti „Excel makró-engedélyezett munkafüzet” lehetőséget. Kattintson a "Mentés" gombra.

5. lépés

Jelölje ki a mappaneveket tartalmazó cellákat. Tartsa lenyomva az "Alt" billentyűt, és nyomja meg az "F8" billentyűt a Makró ablak megnyitásához. Kattintson duplán a „MakeFolders” elemre. A mappák most használatra készek.

Tipp

A makró ugyanabban a könyvtárban hoz létre mappákat, mint az aktív munkafüzet. Ha mappákat szeretne létrehozni a makrót tartalmazó munkafüzetet tartalmazó könyvtárban, cserélje ki az "ActiveWorkbook" összes példányát a kódban a "ThisWorkbook" szövegre.

Figyelmeztetés

Ha Microsoft Excel 2007-et használ, előfordulhat, hogy alapértelmezés szerint nem fér hozzá a Makró ablakhoz és a „Fejlesztő” laphoz. Ennek engedélyezéséhez kattintson a Microsoft Office gömbre, és válassza az "Excel-beállítások" lehetőséget. Kattintson a „Népszerű” elemre a Kategória panelen, és válassza a „Fejlesztő lap megjelenítése a szalagon” lehetőséget. Kattintson az „OK” gombra a módosítások mentéséhez.