For eksempel, jeg har en rekke navn i et regneark, jeg ønsker å opprette mapper for hver av dem, og lagre dem til en bestemt bane, med VBA-kode, kan jeg føre denne oppgaven.
en. Sett den aktive arbeidsboken til en bestemt katalog der du vil plassere den opprettede mapper inn. Åpne arbeidsboken og velg celleområdet som du vil bruke.
To. Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
VBA-kode: opprette mapper basert på celleverdier
Sub MakeFolders () Dim RNG Som RangeDim maxRows, maxCols, r, c Som IntegerSet RNG = SelectionmaxRows = Rng.Rows .CountmaxCols = Rng.Columns.CountFor c = 1 Til maxColsr = 1Do Mens r < = maxRowsIf Len (Dir (ActiveWorkbook.Path & "\\" & RNG (r, c), vbDirectory)) = 0 ThenMkDir (Active .Path & "\\" & RNG (r, c)) On Error Resume NextEnd IFR = r + 1LoopNext cend Sub3. Klikk knappen for å utføre koden. Alle de valgte cellene har blitt opprettet for å mapper med sine verdier. Og mappene er plassert i bane som samme som den aktive arbeidsboken. Se skjermbilde: