Աշխատանքային թերթիկի բոլոր ֆայլերի անունները հավաքելը շատ կարևոր է ձեր աշխատանքի համար: Այս հոդվածում մենք կներկայացնենք բոլոր ֆայլերի անունները աշխատաթերթի մեջ մուտքագրելու մեթոդ՝ օգտագործելով VBA մակրո:
Մեր նախորդ հոդվածում Թղթապանակի բոլոր ֆայլերի անունների ցանկը ձեր Excel աշխատաթերթում պատճենելու 2 եղանակ, մենք ներկայացրել ենք երկու մեթոդ՝ թղթապանակի բոլոր ֆայլերի անունները աշխատաթերթում ցուցակագրելու համար: Եվ հիմա մենք գտել ենք մեկ այլ մեթոդ. Այս առաջադրանքն ավարտելու համար կարող եք նաև օգտագործել VBA մակրո: Հետևեք ստորև նշված քայլերին և տեսեք, թե ինչպես օգտագործել այն:
Պատճենեք բոլոր ֆայլերի անունների ցանկը թղթապանակում
- Բացեք աշխատանքային գիրքը, որն անհրաժեշտ է ֆայլերի անունները մուտքագրելու համար:
- Եվ այնուհետև ստեղնաշարի վրա սեղմեք «Alt + F11» դյուրանցման ստեղները ՝ Visual Basic խմբագրիչը բացելու համար:
- Դրանից հետո կտտացրեք «Տեղադրեք» ներդիրը գործիքագոտում:
- Հաջորդը բացվող ցանկում ընտրեք «Մոդուլ» տարբերակը: Հետևաբար, դուք նոր մոդուլ եք տեղադրել խմբագրում:
- Այս քայլում պատճենեք հետևյալ կոդերը նոր մոդուլի մեջ.
Sub ListAllFileNames() Dim strTargetFolder As String, strFileName As String, nCountItem As Integer ' Initialization nCountItem = 1 strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\" strFileName = Dir(strTargetFolder, vbDirectory) ' Get the file name Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then Cells(nCountItem, 1) = strFileName nCountItem = nCountItem + 1 End If strFileName = Dir Loop End Sub
Այս մակրոյում դուք պետք է փոխեք նպատակային թղթապանակը՝ ըստ ձեր իրական կարիքի։ Եվ մենք ֆայլերի անունները կմուտքագրենք աշխատանքային թերթիկի A սյունակում։ Եթե անհրաժեշտ է ֆայլերի անունները մուտքագրել այլ տիրույթում, կարող եք նաև փոփոխել կոդերը։
- Դրանից հետո գործարկեք այս մակրոն: Դուք կարող եք սեղմել «Run Sub» կոճակը գործիքագոտում կամ սեղմել «F5» կոճակը ստեղնաշարի վրա՝ այս մակրո գործարկելու համար:
- Հաջորդը վերադառնաք աշխատաթերթին: Դուք կտեսնեք, որ թղթապանակի բոլոր ֆայլերի անուններն արդեն հայտնվել են A սյունակում:
Համեմատած հոդվածի մյուս երկու մեթոդների հետ Թղթապանակի բոլոր ֆայլերի անունների ցանկը ձեր Excel աշխատաթերթում պատճենելու 2 եղանակ, կտեսնեք, որ VBA մակրո օգտագործելը շատ հարմար է։ Սակայն, մյուս կողմից, եթե ծանոթ չեք Excel VBA-ին, ապա կոդերը փոփոխելիս կհանդիպեք սխալների։ Հետևաբար, դուք կարող եք օգտագործել երեք մեթոդներից մեկը՝ ըստ ձեր իրական կարիքի:
Ուշադրություն դարձրեք վտանգավոր ծրագրերին
Դուք, անշուշտ, շատ ծրագրեր կտեղադրեք ձեր համակարգչում: Եվ այդ հավելվածները կարող են ձեզ շատ օգնել ձեր աշխատանքում։ Այնուամենայնիվ, դրանցից մի քանիսը վտանգավոր հավելվածներ են: Երբ դրանք տեղադրեք ձեր համակարգչում, նրանք կհավաքեն ձեր անձնական տվյալները: Ամենավատն այն է, որ ձեր Excel ֆայլերը նույնպես կվնասվեն դրանցից: Այս պահին անհապաղ տեղահանեք վտանգավոր ծրագրակազմը: Բացի այդ, դուք նույնպես պետք է օգտագործեք վերականգնման գործիք վերականգնել վնասված xlsx ֆայլը. Այսպիսով, դուք կարող եք համոզվել, որ ձեր Excel ֆայլերը անվտանգ են:
Հեղինակի ներածություն.
Աննա Ման տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել Word docx ֆայլի խնդիրը և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com