Ենթադրենք, որ դուք ունեք աշխատաթերթի տիրույթում աշխատողների անունների ցանկ և նպատակ ունեք ստեղծել անհատական ​​թղթապանակներ յուրաքանչյուրի համար՝ իրենց տեղեկությունները պահելու համար: Յուրաքանչյուր թղթապանակ ձեռքով ստեղծելը կարող է ժամանակատար լինել: Այնուամենայնիվ, կան արդյունավետ մեթոդներ այս գործընթացը արագացնելու համար: Այս ուղեցույցում ես կկիսվեմ մի քանի մոտեցումներով՝ պանակներ արագ ստեղծելու համար՝ հիմնված նշված բջիջների արժեքների վրա:

Ստեղծեք թղթապանակներ՝ հիմնված բջջային արժեքների վրա

• Օգտագործելով MD հրամանը և Notepad-ը
• Օգտագործելով հզոր հատկանիշ՝ Kutools Excel-ի համար
• Օգտագործելով VBA կոդը

Ստեղծեք թղթապանակներ և ենթաթղթապանակներ՝ հիմնված բջջային արժեքների վրա VBA կոդով

Ստեղծեք թղթապանակներ՝ հիմնված բջջային արժեքների վրա

Այս բաժնում մենք մանրամասն կուսումնասիրենք տարբեր մեթոդներ՝ առաջարկելով համապարփակ քայլ առ քայլ հրահանգներ՝ բջիջների արժեքների ցանկի հիման վրա թղթապանակներ արագ և անկաշկանդ ստեղծելու համար:

Ստեղծեք թղթապանակներ ցուցակից՝ օգտագործելով MD հրամանը և Notepad-ը

Ցանկը Excel-ից թղթապանակների վերածելը MD հրամանի և Notepad-ի միջոցով խելացի հնարք է, որը միախառնում է հեշտ խմբաքանակային սկրիպտավորումը և Excel-ի կարողությունը՝ կազմակերպված պահելու իրերը: Այս մեթոդը հիանալի է բազմաթիվ թղթապանակներ արագ պատրաստելու համար՝ առանց այդ ամենը ձեռքով անելու: Ահա այս առաջադրանքն իրականացնելու քայլ առ քայլ ուղեցույց.

Քայլ 1. Օգտագործեք MD հրամանը բանաձևեր ստեղծելու համար

Պատճենեք կամ մուտքագրեք հետևյալ բանաձևը ձեր առաջին բջիջի արժեքի կողքին գտնվող դատարկ բջիջում (օրինակ, B1), այնուհետև քաշեք լրացման բռնակը ներքև՝ բանաձևը ձեր ցանկի բոլոր տարրերի վրա կիրառելու համար:

="MD "&A1

Քայլ 2. Պատճենեք և տեղադրեք բանաձևերը Notepad ֆայլի մեջ

1. մամուլ Ctrl + C պատճենել բջիջները MD հրամանի բանաձևով:
2. բաց Գրքույկ եւ սեղմեք Ctrl + V հրամանները նոր ֆայլում տեղադրելու համար:
   

Քայլ 3. Պահպանեք Notepad ֆայլը որպես .bat ֆայլ

Սեղմել Պահպանել որպես - ից Ֆայլ ներդիրը Նոթատետրում, մեջ Պահպանել որպես երկխոսության վանդակում, ընտրեք գրացուցակ, որտեղ ցանկանում եք ստեղծել մի քանի թղթապանակ, այնուհետև այս ֆայլին անուն տվեք a .bat երկարաձգում։ Վերջապես, սեղմեք Փրկել կոճակ Տեսեք,

Քայլ 4. Կրկնակի սեղմեք .bat ֆայլի վրա՝ բազմաթիվ թղթապանակներ ստեղծելու համար

1. Փակեք Notepad ֆայլը, նավարկեք դեպի այն թղթապանակը, որը նախկինում պահել եք .bat ֆայլը:
2. Այժմ ականատես եղեք կախարդությանը. կրկնակի սեղմեք ֆայլի վրա և կտեսնեք, որ միանգամից մի քանի թղթապանակ են ստեղծվում: Դիտեք ստորև ներկայացված ցուցադրությունը.
   

Ստեղծեք թղթապանակներ ցուցակից՝ օգտագործելով հզոր գործիք – Kutools Excel-ի համար

Հզորների հետ Excel- ի համար նախատեսված գործիքներ'S Ստեղծեք պանակներ բջջային բովանդակությունից հնարավորություն, այժմ կարող եք հեշտությամբ և արագ թղթապանակներ ստեղծել Excel-ի ցանկից: Բայց դա կանգ չի առնում միայն հիմնական թղթապանակների վրա. Kutools-ը նաև թույլ է տալիս մեկ քայլով ստեղծել բարդ կառուցվածքներ բազմամակարդակ ենթաթղթապանակներով: Ընդամենը մի քանի պարզ քայլ կարող է Excel-ից տվյալները վերածել կազմակերպված թղթապանակների համակարգի՝ զգալիորեն բարձրացնելով ձեր արտադրողականությունը:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, Խնդրում ենք սեղմել Kutools Plus > Ներմուծման արտահանման > Ստեղծեք պանակներ բջջային բովանդակությունից բացելու համար Ստեղծեք պանակներ բջջային բովանդակությունից երկխոսության տուփ:

1. Ընտրեք բջիջների արժեքները, որոնց հիման վրա ցանկանում եք ստեղծել թղթապանակներ.
2. Այնուհետեւ կտտացրեք կոճակը նշելու նպատակակետ թղթապանակը, որը ցանկանում եք պահպանել թղթապանակները;
3. Վերջապես, կտտացրեք OK կոճակը:
   

Արդյունքը:

Kutools-ը կմշակի ցուցակը ձեր թերթիկից և կստեղծի թղթապանակ յուրաքանչյուր մուտքի համար նշված նպատակակետում: Նավարկեք դեպի նպատակակետ թղթապանակ՝ արդյունքը տեսնելու համար: Տեսեք սքրինշոթը՝

Ստեղծեք թղթապանակներ ցուցակից՝ օգտագործելով VBA կոդը

Excel-ում VBA կոդի օգտագործումը կարող է ցուցակից թղթապանակներ ստեղծելու հոգնեցուցիչ խնդիրը վերածել արագ, ավտոմատացված գործընթացի: Այս բաժինը ցույց կտա ձեզ, թե ինչպես կիրառել VBA կոդը՝ թղթապանակներ ստեղծելու համար:

Քայլ 1. Բացեք VBA մոդուլի խմբագրիչը և պատճենեք կոդը

1. Անջատեք ALT + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2. Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
   VBA կոդ. Ստեղծեք թղթապանակներ՝ հիմնվելով բջիջների արժեքների ցանկի վրա

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Քայլ 2. Կատարեք կոդը

1. Այս կոդը փակցնելուց հետո սեղմեք F5 այս կոդը գործարկելու բանալին: Հուշ վանդակում ընտրեք բջիջների արժեքները, որոնցից ցանկանում եք ստեղծել թղթապանակներ: Եվ հետո, սեղմեք OK.
   
2. Այնուհետեւ, հետեւյալում Ընտրեք նպատակակետի թղթապանակը պատուհանում, նշեք ստեղծված թղթապանակները դուրս բերելու նպատակակետ ուղին: Եվ հետո, սեղմեք OK կոճակը, տես նկարի նկարը.
   

Արդյունքը:

VBA կոդը գործարկելուց հետո անցեք դեպի նպատակակետ գրացուցակ՝ արդյունքը դիտելու համար: Այնտեղ դուք կգտնեք նորաստեղծ թղթապանակներ, որոնցից յուրաքանչյուրը համապատասխանում է ձեր Excel ցուցակի որևէ կետին: տես սքրինշոթը՝

Ստեղծեք թղթապանակներ և ենթաթղթապանակներ՝ հիմնված բջջային արժեքների վրա VBA կոդով

Երբեմն, դուք կարող եք հայտնվել այնպիսի իրավիճակում, երբ դուք պետք է ստեղծեք ոչ միայն թղթապանակներ, այլ նաև դրանց համապատասխան ենթաթղթապանակներ, որոնք հիմնված են Excel բջիջների տվյալների վրա: Այս առաջադրանքին հասնելու համար այստեղ ես կներկայացնեմ VBA ծածկագիրը:

Քայլ 1. Պատրաստեք տվյալները

Նախ, դուք պետք է մուտքագրեք տվյալները, ինչպես ցույց է տրված հետևյալ սքրինշոթը, տեղադրեք հիմնական թղթապանակների անունները առաջին սյունակում, իսկ ենթաթղթապանակների անունները երկրորդ սյունակում:

Քայլ 2. Բացեք VBA մոդուլի խմբագրիչը և պատճենեք կոդը

1. Անջատեք ALT + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2. Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
   VBA կոդ. Ստեղծեք թղթապանակներ և ենթաթղթապանակների վրա հիմնված բջջային արժեքներ

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Քայլ 3. Կատարեք կոդը

1. Այս կոդը փակցնելուց հետո սեղմեք F5 այս կոդը գործարկելու բանալին: Հուշ վանդակում ընտրեք բջիջների արժեքները, որոնցից ցանկանում եք ստեղծել թղթապանակներ: Եվ հետո, սեղմեք OK.
   
2. Հետևյալ բացվող պատուհանում նշեք ստեղծված թղթապանակները դուրս բերելու նպատակակետ ճանապարհը: Եվ հետո, սեղմեք OK կոճակը, տես նկարի նկարը.
   

Արդյունքը:

VBA կոդը գործարկելուց հետո գնացեք նպատակակետ՝ արդյունքը դիտելու համար: Դուք կգտնեք, որ թղթապանակները և դրանց համապատասխան ենթաթղթապանակները, ինչպես թելադրված են բջիջների արժեքներով, հաջողությամբ ստեղծվել են, ինչպես ցույց է տրված հետևյալ սքրինշոթը.

Related Articles: