Salt la conținutul principal

Cum se creează rapid dosare pe baza valorilor celulei din Excel?

Presupunând că aveți o listă de nume de personal într-o gamă de foi de lucru și acum doriți să creați niște foldere pentru fiecare dintre ele în celule pentru a le înregistra informațiile. Dacă creați folderele unul câte unul, va pierde mult timp. Dar cum ai putea crea rapid aceste foldere? Astăzi, vă voi prezenta câteva trucuri rapide:

Creați dosare pe baza valorilor celulei cu cod VBA

Creați rapid dosare pe baza valorilor celulei cu Kutools pentru Excelidee bună3


Creați dosare pe baza valorilor celulei cu cod VBA

De exemplu, am o serie de nume într-o foaie de lucru, vreau să creez foldere pentru fiecare dintre ele și să le salvez pe o cale specificată, cu codul VBA, pot finaliza această sarcină.

1. Puneți registrul de lucru activ într-un director specific în care veți plasa folderele create. Deschideți registrul de lucru și selectați gama de celule pe care doriți să le utilizați.

doc-create-folders1

2. Clic Dezvoltator > Visual Basic, un nou Microsoft Visual Basic pentru aplicații fereastra va fi afișată, faceți clic pe Insera > Moduleși introduceți următorul cod în modul:

Cod VBA: creați foldere pe baza valorilor celulei

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. Clic doc-multiplicare-calcul-3 pentru a executa codul. Toate celulele selectate au fost create în dosare cu valorile lor. Și folderele sunt plasate în cale la fel ca registrul de lucru activ. Vedeți captura de ecran:

doc-create-folders2


Creați rapid dosare pe baza valorilor celulei cu Kutools pentru Excel

Este ușor și convenabil pentru dvs. să creați foldere bazate pe valvele de celulă dacă utilizați instrumentul - Kutools pentru Excel.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare Kutools pentru Excel, faceți următoarele:(Descărcați gratuit Kutools pentru Excel acum!)

1. Selectați intervalul pe care doriți să îl creați.

2. Clic Kutools Plus > Import Export > Creați dosare din conținutul celulei…, Vezi captura de ecran:

doc creați folderul 1

3. În Creați dosare din conținutul celulei casetă de dialog, faceți clic pe doc-create-folders3pentru a specifica calea pe care doriți să o salvați. Captură de ecran văzută:

doc creați folderul 2

4. Clic OK. Și o casetă de prompt vă va aminti câte dosare au fost create. Vedeți captura de ecran:

doc creați folderul 3

5. Clic OK. Și toate valorile din intervalul selectat au fost create directoare în folderul specificat.
doc creați folderul 4


Enumerați toate numele fișierelor dintr-un folder într-o foaie

pentru a afla mai multe despre această funcție.

Iată un utilitar în Kutools pentru Excel - Lista de nume de fișiere poate lista toate numele fișierelor unui folder într-o foaie, dacă sunteți interesat de acesta, continuați să citiți.

După instalare Kutools pentru Excel, faceți următoarele:(Descărcați gratuit Kutools pentru Excel acum!)

1. clic Kutools Plus > Import / Export > Lista de nume de fișiere.
doc creați folderul 5

2. În Lista de nume de fișiere caseta de dialog, selectați un folder pe care doriți să-l listați fișierele sale, bifați Toate fișierele or Specifica opțiune după cum aveți nevoie în Fișiere tip sectie.
img src="//cdn.extendoffice.com / images / stories / doc-excel / create-folders / doc-create-folder-6.png "alt =" doc create folder 6 "/>

3. clic Ok, se creează o foaie nouă cu toate numele fișierelor și câteva informații relative.
doc creați folderul 7

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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