Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Excel- ում բազմաթիվ ֆայլերի անուններ ներմուծել բջիջներ:

Ենթադրելով, որ դուք ունեք մի պանակ հարյուրավոր ֆայլերով, և այժմ դուք ցանկանում եք ներմուծել այս ֆայլերի անունները աշխատանքային թերթի բջիջներ: Մեկ առ մեկ պատճենելը և տեղադրելը շատ ժամանակ կծախսի: Այս հոդվածում ես կխոսեմ մի քանի արագ հնարքների մասին, որոնք կօգնեն ձեզ ֆայլերի բազմաթիվ անուններ թղթապանակից ներմուծել աշխատանքային թերթիկ:

Ներմուծեք բազմաթիվ ֆայլերի անուններ VBA կոդով աշխատաթերթի բջիջների մեջ

Ներմուծեք բազմաթիվ ֆայլերի անուններ աշխատաթերթի բջիջների մեջ Kutools- ի համար Excel- ի համար


Ներմուծեք բազմաթիվ ֆայլերի անուններ VBA կոդով աշխատաթերթի բջիջների մեջ

Հետևյալ VBA կոդը կարող է օգնել ձեզ ներմուծել ֆայլի անունները, ֆայլի ընդլայնումները և թղթապանակի անունը աշխատանքային թերթի բջիջներում, խնդրում ենք անել հետևյալ քայլերով.

1, Գործարկել նոր աշխատանքային թերթ, որը ցանկանում եք ներմուծել ֆայլի անունները:

2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ներմուծեք բազմաթիվ ֆայլերի անուններ աշխատանքային թերթի բջիջների մեջ

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Այնուհետեւ սեղմեք F5 այս կոդը կատարելու համար ստեղնը, և դուրս եկած Թերթել պատուհանում ընտրեք այն թղթապանակը, որը ցանկանում եք ներմուծել ֆայլի անունների ձևը:

փաստաթղթերի ներմուծման ֆայլերի անուններ 1

5. Եվ այնուհետեւ կտտացրեք OK կոճակը, և դուք կստանաք հետևյալ արդյունքը.

փաստաթղթերի ներմուծման ֆայլերի անուններ 2

Նշում: Եթե ձեր հատուկ թղթապանակում կան ենթապանակներ, ենթապանակներում ֆայլերի անունները չեն ներկրվի:


Ներմուծեք բազմաթիվ ֆայլերի անուններ աշխատաթերթի բջիջների մեջ Kutools- ի համար Excel- ի համար

Եթե ​​Ձեզ անհրաժեշտ է ներմուծել ֆայլի անունները ինչպես թղթապանակում, այնպես էլ ենթապանակներում, խնդրում եմ մի անհանգստացեք, հետ Excel- ի համար նախատեսված գործիքներ'S Ֆայլի անվանացանկ օգտակար, դուք կարող եք հեշտությամբ ներմուծել բոլոր ֆայլերի անունները որոշակի պանակում, ներառյալ ենթապանակները:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1: Սեղմեք Kutools Plus> Ներմուծման արտահանման > Ֆայլի անվանացանկ, տես նկարի նկարը.

2, Մեջ Ֆայլի անվանացանկ երկխոսության տուփ, կատարեք հետևյալ գործողությունները.

(1.) Կտտացրեք փաստաթղթերի ներմուծման ֆայլերի անուններ 5 կոճակը թղթապանակը ընտրելու համար այն ֆայլերը, որոնք ցանկանում եք ներմուծել;

(2.) Ստուգեք Ներառեք ֆայլերը ենթագրացուցակներում ենթապանակների ֆայլերի անունները ներմուծել;

(3.) Նշեք այն ֆայլերի տեսակը, որոնք ցանկանում եք ներմուծել այն կետի տակ Ֆայլերի տեսակը Բաժին;

(4.) Այստեղից ընտրեք մեկ ֆայլի չափի միավոր, որը ցանկանում եք ցուցադրել Ֆայլի չափի միավոր Բաժին;

(5.) Եթե ցանկանում եք ֆայլերի անուններն ու պանակները հիպերհղել, ստուգեք Ստեղծեք հիպերհղումներ տարբերակ.

փաստաթղթերի ներմուծման ֆայլերի անուններ 4

3, Պարամետրերն ավարտելուց հետո սեղմեք OK կոճակը, և ֆայլի անունները ինչպես թղթապանակում, այնպես էլ ենթապանակներում ներմուծվում են նոր աշխատանքային թերթի մեջ, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթղթերի ներմուծման ֆայլերի անուններ 6

TipsԵթե ​​պարզապես ցանկանում եք ներմուծել մեկ նշված տիպի ֆայլի անուններ որոշակի պանակից, կարող եք ստուգել Մատնանշել տարբերակը Ֆայլի անվանացանկ երկխոսություն և մուտքագրեք դրա մեջ ֆայլի ընդլայնումը, ապա այն միայն ներմուծելու է նշված տիպի ֆայլերի անունները և՛ թղթապանակից, և՛ ենթապանակներից:

Կտտացրեք ՝ այս ֆայլի անվանացանկի հատկության մասին ավելին իմանալու համար

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Դեմո. Ներմուծեք բազմաթիվ ֆայլերի անուններ աշխատաթերթի բջիջներում Kutools- ի համար Excel- ի համար

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս ցուցակի բոլոր ֆայլերը թղթապանակում և ենթապանակներում ներառել աշխատանքային թերթ:

Ինչպե՞ս ցուցակագրել բոլոր ֆայլի անունները թղթապանակում և Excel- ում ստեղծել դրանց համար հղումներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (14)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hey,
Ես ունեմ ecxel թերթիկ, որն ունի որոշ ապրանքների անուններ, ինչպես նաև ունեմ թղթապանակ, որտեղ կան որոշ pdf ֆայլեր, որոնք կոչվում են նույնը, ինչ բջջային տվյալների մեջ, օրինակ, եթե բջիջի A2 արժեքը apple1 է, Pdf ֆայլի անունը՝ apple1.pdf, ես ուզում եմ իմանալ, թե որ անունը ֆայլը բացակայում է, կարո՞ղ ենք դա ստանալ excel-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մայք,
Նախ, դուք կարող եք կիրառել վերը նշված կոդը՝ ֆայլերի անունները աշխատաթերթում տեղադրելու համար, ցուցակագրել ֆայլերի անունների երկու սյունակները մեկ աշխատաթերթում, այնուհետև կարող եք օգտագործել Kutools-ի «Ընտրել նույն և տարբեր բջիջների» հատկանիշը՝ բացակայող ֆայլերի անունները բացահայտելու և ընդգծելու համար, տես սքրինշոթը: :

Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար է, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Apakah bisa merename file dengan excel?
Տերիմակասիհ Սանգատ Մեմբանտու Պերկերջաան Սայա,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path չի գտնվել bisa bantu kenapa itu bisa terjadi?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն։ Ապշեցուցիչ էր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդի համար ինչպե՞ս կներգրավեք նաև փոփոխված ամսաթիվը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Ներմուծված ֆայլերի անունների համար ավելացրեք փոփոխված ամսաթվի սյունակը, խնդրում ենք կիրառեք հետևյալ VBA կոդը, փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:

Sub GetFileList ()
Dim xFSO որպես օբյեկտ
Խոնավեցրեք xFolder-ը որպես օբյեկտ
Dim xFile որպես օբյեկտ
Dim xFiDialog որպես FileDialog
Dim xPath որպես տող
Dim i As Integer- ը
Սահմանել xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Եթե ​​xFiDialog.Show = -1 Ապա
xPath = xFiDialog.SelectedItems(1)
Վերջ: Եթե
Սահմանել xFiDialog = Ոչինչ
Եթե ​​xPath = "" Ապա Ելք Ենթ
Սահմանել xFSO = CreateObject («Scripting.FileSystemObject»)
Սահմանել xFolder = xFSO.GetFolder (xPath)
ActiveSheet.Cells(1, 1) = «Թղթապանակի անուն»
ActiveSheet.Cells(1, 2) = «Ֆայլի անուն»
ActiveSheet.Cells(1, 3) = «Ֆայլի ընդլայնում»
ActiveSheet.Cells(1, 4) = «Վերջին փոփոխության ամսաթիվը»
i = 1
Յուրաքանչյուր xFile-ի համար xFolder.Files-ում
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
ActiveSheet.Cells(i, 4) = CDate (xFile.datelastmodified)
հաջորդ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կա՞ տարբերակ թղթապանակի ուղին արդեն կոդի մեջ դնելու։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ նշել միայն թղթապանակի անունը. ինչ է դրա համար vba կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ ավելացնել աղյուսակը, միայն թղթապանակի անունը և տվյալները նույնպես փոփոխված են:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Ցանկանու՞մ եք թվարկել բոլոր թղթապանակների անունները կոնկրետ հիմնական թղթապանակից: Խնդրում եմ ավելի մանրամասն ներկայացրեք ձեր խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեկ այլ հեշտ մեթոդ կա. Պարզապես պատճենեք գրացուցակի ուղին, որտեղ դուք պահել եք փաստաթղթերը, և տեղադրեք այդ հղումը դիտարկիչում (chrome/mozilla): Դուք կստանաք անունների ցանկը և պարզապես պատճենեք տեղադրեք Excel-ում: Ողջույն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ օգտակար: Tnx շատ
Գնահատված 5- ը 5- ից դուրս է
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից