Preskoči na glavno vsebino

Kako hitro ustvariti mape na podlagi vrednosti celic v Excelu?

Recimo, da imate seznam imen osebja v obsegu delovnega lista, zdaj pa želite v celicah ustvariti nekaj map za beleženje njihovih informacij. Če mape ustvarite eno za drugo, boste izgubili veliko časa. Toda kako lahko hitro ustvarite te mape? Danes vam bom predstavil nekaj hitrih trikov:

Ustvarite mape na podlagi vrednosti celic s kodo VBA

Z Kutools za Excel hitro ustvarite mape na podlagi vrednosti celicdobra ideja3


Ustvarite mape na podlagi vrednosti celic s kodo VBA

Na primer, na delovnem listu imam vrsto imen, za vsako želim ustvariti mape in jih shraniti na določeno pot, s kodo VBA lahko to nalogo končam.

1. Aktivni delovni zvezek vstavite v določen imenik, kamor boste nastavili mape. Odprite delovni zvezek in izberite obseg celic, ki jih želite uporabiti.

doc-create-mape1

2. Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

Koda VBA: ustvarite mape na podlagi vrednosti celic

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. Kliknite doc-pomnoži-izračun-3 za izvedbo kode. Vse izbrane celice so bile ustvarjene v mape s svojimi vrednostmi. Mape so postavljene na pot enako kot aktivni delovni zvezek. Oglejte si posnetek zaslona:

doc-create-mape2


Z Kutools za Excel hitro ustvarite mape na podlagi vrednosti celic

Če uporabljate orodje Kutools for Excel, je enostavno in priročno ustvariti mape na podlagi celičnih valov.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)

1. Izberite obseg, v katerem želite ustvariti mape.

2. Kliknite Kutools Plus > Uvozno-izvoznih > Ustvari mape iz vsebine celice…, Glej posnetek zaslona:

doc ustvari mapo 1

3. v Ustvari mape iz vsebine celice pogovorno okno, kliknite doc-create-mape3, da določite pot, v katero želite shraniti mape. Ogled zaslona:

doc ustvari mapo 2

4. Kliknite OK. In pozivno polje vas bo opozorilo, koliko map je bilo ustvarjenih. Oglejte si posnetek zaslona:

doc ustvari mapo 3

5. Kliknite OK. In vse vrednosti v izbranem obsegu so bile ustvarjene mape v navedeni mapi.
doc ustvari mapo 4


Vsa imena datotek iz mape navedite na listu

če želite izvedeti več o tej funkciji.

Tukaj je pripomoček v Kutools za Excel - Seznam imen datotek lahko na seznamu navedejo vsa imena datotek mape, če vas zanima, nadaljujte z branjem.

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)

1. klik Kutools Plus > Uvoz / izvoz > Seznam imen datotek.
doc ustvari mapo 5

2. V Ljubljani Seznam imen datotek izberite mapo, v katero želite navesti njene datoteke, potrdite Vse datoteke or Določite možnost, kot jo potrebujete Datoteke tipa sekcijo.
img src="//cdn.extendoffice.com / images / stories / doc-excel / create-folders / doc-create-folder-6.png "alt =" doc create folder 6 "/>

3. klik Ok, se ustvari nov list z vsemi imeni datotek in nekaj relativnimi informacijami.
doc ustvari mapo 7

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (62)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This worked really well, even for someone with zero experience with VBA :-)
Would it be possible to adapt the macro or extend the macro to also create hyperlinks to the folders in the selected cells?
So for instance, Cell A3 is selected and you run the macro and the folder is created. Would it be possible to make cell A3 a hyperlink to the folder by expanding on the macro instead of doing that manually?
This comment was minimized by the moderator on the site
Hello, Marloes
To create hyperlinks for the cell values, the following vba code may help you:

First, please select the cell values, and then run this code, and select a folder for outputting the folders.

Sub MakeFoldersAndAddHyperlinksWithFolderSelection()
    Dim Rng As Range
    Dim maxRows, maxCols, r, c As Integer
    Dim folderPath As String
    Dim baseFolderPath As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fd
        If .Show = -1 Then
            baseFolderPath = .SelectedItems(1) & "\"
        Else
            MsgBox "No folder selected. Operation Cancelled."
            Exit Sub
        End If
    End With
    
    Set Rng = Selection
    maxRows = Rng.Rows.Count
    maxCols = Rng.Columns.Count
    
    For c = 1 To maxCols
        For r = 1 To maxRows
            folderPath = baseFolderPath & Rng.Cells(r, c).Value
            If Len(Dir(folderPath, vbDirectory)) = 0 Then
                MkDir folderPath
                On Error Resume Next
                ActiveSheet.Hyperlinks.Add Anchor:=Rng.Cells(r, c), Address:=folderPath, TextToDisplay:=Rng.Cells(r, c).Value
                On Error GoTo 0
            End If
        Next r
    Next c
End Sub


Please have a try, thank you!
This comment was minimized by the moderator on the site
please, i need that same macro but instead of saving them as folders, i need it to save as Excels.
This comment was minimized by the moderator on the site
is it possible to introduce a condition where if that condition is met the module can create 2 folders (each using a different path)?
if the first list of folders is in the A column then the condition occurs in the U column. The conditional criteria is whether the cell is empty or not.
if the condition is not met the module only makes one folder based on the selection.
This comment was minimized by the moderator on the site
Hi, a_c, sorry I have not found a method can solve this job yet.
This comment was minimized by the moderator on the site
Thank you very much
This comment was minimized by the moderator on the site
Thanks a lot! Your VBA code is really super
This comment was minimized by the moderator on the site
Is it possible to import data from a word to excel on colors algorythme? So, I spell the cities with red and countries with blue in a word, and the to import only these to excel. I don’t know if I made myself clear. Thanks
This comment was minimized by the moderator on the site
Thank you, this has saved me literally days of work.
This comment was minimized by the moderator on the site
Hello,


For the following code it shows error in

MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))



It says Runtime error 76 path not found



Can someone please help me with this?

There are no unsupported characters in the file path.
Not sure what could be the problem

Thanks for the help!
This comment was minimized by the moderator on the site
thank you , time saved
This comment was minimized by the moderator on the site
Thanks you. Tried the first method. Works perfectly.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations