Kako narediti mape iz Excelove preglednice

Excelove preglednice vam lahko pomagajo avtomatizirati nalogo ustvarjanja več map. Eden od načinov za ustvarjanje map je ustvarjanje skripta z uporabo obsegov podatkov in paketnega ukaza "md." Druga metoda je uporaba makra prek funkcije MkDir, komponente programa Microsoft Excel VBA. To nudi fleksibilnost in je manj zamudno. V svojo preglednico vključite samo ustrezna imena map, da bodo te tehnike delovale. Imena map ne smejo vsebovati narekovajev ali katerega koli od znakov "," "/", ":", "*", "?", "<," ">" in "|."

Uporaba paketne datoteke

1. korak

Imena map razporedite v en stolpec. Kliknite glavo stolpca in v imensko polje poleg vrstice s formulami vnesite "FOLDERNAMES".

2. korak

Dodajte prazen stolpec levo od stolpca »FOLDERNAMES«, tako da z desno miškino tipko kliknete glavo stolpca in izberete »Vstavi«.

3. korak

Označite prvo celico v praznem stolpcu. Vnesite naslednje besedilo v vrstico s formulami in ga kopirajte v druge prazne celice.

="md "&IMENA MAPE

4. korak

Odprite urejevalnik navadnega besedila in ustvarite prazen dokument. Kopirajte in prilepite spodnjo kodo na začetek datoteke. Zamenjajte »C:\Temp« s celotno potjo do imenika, v katerega želite dodati mape. Če želite na primer dodati mape v »Songs« znotraj pogona »D«, uporabite pot »D:\Songs«.

@echo off cd "C:\Temp"

5. korak

Vrnite se v Excelov delovni zvezek. Z desno miškino tipko kliknite glavo stolpca, ki vsebuje formule »md«, in izberite »Kopiraj«. Vrnite se v urejevalnik besedila in prilepite vrednosti na konec datoteke. Vaša datoteka bi zdaj morala izgledati nekako takole:

@echo off cd "c:\Temp" md ime mape1 md ime mape2 ..

6. korak

Shranite datoteko na namizje kot "CreateFolders.bat." Pojdite na namizje in zaženite paketno datoteko tako, da dvokliknete njeno ikono. Vaše mape so zdaj pripravljene za uporabo.

Uporaba makra

1. korak

Odprite Excelov delovni zvezek. Držite tipko "Alt" in pritisnite "F8", da odprete okno z makri.

2. korak

Pod "Ime makra" vnesite "MakeFolders" in kliknite gumb "Ustvari". S tem se odpre urejevalnik VBA.

3. korak

Kopirajte in prilepite naslednji makro v urejevalnik:

Sub MakeFolders()

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

Nastavite Rng =Izbira

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)) Ob napaki Nadaljuj naslednji konec Če je r =r + 1 zanka Naslednji c

Končaj pod

4. korak

Datoteko shranite kot delovni zvezek z omogočenimi makri, tako da odprete meni »Datoteka« in izberete »Shrani kot«. Vnesite želeno ime datoteke in poleg »Shrani kot vrsto datoteke« izberite »Excelov delovni zvezek z omogočenimi makri«. Kliknite gumb "Shrani".

5. korak

Označite celice, ki vsebujejo imena map. Držite tipko "Alt" in pritisnite "F8", da odprete okno Makri. Dvokliknite na "MakeFolders." Mape so zdaj pripravljene za uporabo.

Nasvet

Makro ustvari mape v istem imeniku kot vaš aktivni delovni zvezek. Če želite ustvariti mape v imeniku, ki vsebuje delovni zvezek z omogočenimi makri, zamenjajte vse primerke »ActiveWorkbook« v kodi z »ThisWorkbook«.

Opozorilo

Če uporabljate Microsoft Excel 2007, morda privzeto nimate dostopa do okna Makri in zavihka »Razvijalec«. Če želite to omogočiti, kliknite ikono Microsoft Office in izberite »Excel Options«. V podoknu s kategorijami kliknite »Priljubljeno« in izberite »Pokaži zavihek razvijalca na traku«. Kliknite »V redu«, da shranite spremembe.