Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

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

Ենթադրելով, որ դուք ունեք աշխատանքային թերթ, որը պարունակում է ֆայլերի ուղիների ցուցակ, այժմ կցանկանայիք յուրաքանչյուր ուղուց հանել միայն ֆայլի անունը (վերջնական հետադարձի աջ մասը), ինչպես ցույց են տրված հետևյալ նկարները: Կա՞ն արագ հնարքներ այս խնդրի լուծման համար:

Excel- ում բանաձևով հանեք ֆայլի անունը լրիվ ուղուց
Ֆայլի անունը հանեք լրիվ ուղուց `օգտագործողի կողմից սահմանված գործառույթով
Ֆայլի անունը հանեք VBA կոդով ամբողջական ուղուց


Excel- ում բանաձևով հանեք ֆայլի անունը լրիվ ուղուց

Excel- ում դուք կարող եք օգտագործել ստորև բերված բանաձևը ՝ ամբողջական ուղուց միայն ֆայլի անունը արագ հանելու համար:

Ընտրեք դատարկ բջիջ, մուտքագրեք ներքևի բանաձևը և այնուհետև սեղմեք կոճակը Մտնել բանալի.

=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))

Tips: A1- ը այն բջիջն է, որից ցանկանում եք արդյունահանել ֆայլի անունը), և սեղմել Enter կոճակը, ապա քաշել լրացման բռնիչը ՝ լրացնելու համար ցանկալի տիրույթը: Դրանից հետո յուրաքանչյուր բջիջից հանվում է ֆայլի անունը:

փաստաթղթի քաղվածքի անուն 1


Ֆայլի անունը հանեք լրիվ ուղուց `օգտագործողի կողմից սահմանված գործառույթով

Օգտագործողի կողմից սահմանված հետևյալ գործառույթով դուք կարող եք հեշտությամբ և արագ ստանալ ֆայլի անունը:

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

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհանը և վերադառնալ աշխատանքային թերթ: Դատարկ վանդակում, օրինակ, B1, մուտքագրեք ներքևի բանաձևը դրա մեջ և սեղմեք այն Մտնել բանալի.

=FunctionGetFileName(A1)

Doc-Extract-Filenames1

Դրանից հետո նորից ընտրեք B1 բջիջը, լրացրեք բռնիչը քաշեք այն միջակայքում, որը ցանկանում եք կիրառել այս բանաձևը, և ​​բոլոր ֆայլերի անունները հանվել են ամբողջական ուղիներից, հետևյալ արդյունքով.

Doc-Extract-Filenames1


Ֆայլի անունը հանեք VBA կոդով ամբողջական ուղուց

Բացի օգտագործողի կողմից սահմանված գործառույթից, VBA կոդը կարող է նաև օգնել ձեզ արդյունահանել ֆայլերի անունները: Խնդրում եմ, արեք այսպես.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic կիրառական ծրագրերի պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    splitList = VBA.Split(Rng.Value, "\")
    Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub

3, Դրանից հետո սեղմեք F5 ստեղն է այս կոդը գործարկելու համար և ընտրեք այն տիրույթը, որը ցանկանում եք արդյունահանել ֆայլի անունը, տես նկարի նկարը.

Doc-Extract-Filenames1

4. Եվ այնուհետեւ կտտացրեք OK, ֆայլի անունները ընտրությունից հանվել են հետևյալ կերպ.

ՆշումԱյս VBA կոդով բնօրինակ տվյալները կկործանվեն, այնպես որ դուք պետք է պատճենեք այն, նախքան այս կոդը կիրառելը:


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր կտտոցները ձեզ համար ամեն օր:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rese · 1 years ago
    Very useful function. Is there a way to modify the script so it finds the filename if the path has either \ or / slashes?

    I have a spreadsheet with various hyperlinks where the underlying paths are either \ or / (back slash or forward slash) separates - I think its because some of the links to files were done just as bookmarks in Word originally, or to files on an internal doc server. Or maybe its because some path links are made with absolute vs relative path links?

    eg:

    ../../../../Documents/2ndQuarter/2019/standardcost_widget12345.pdf
    or
    \fileserver\factory23\Operations\Parts_Mgt\Documents\2ndQuarter\2019\standardcost_widget12345.pdf


    When I ran the getfilename function, it got all the filenames that were in paths with \ between directories or folders, but the links with / slashes were returned as is.
    I altered & added a second function that was similar but replaced the "\" in line 4 with "/" and called it forwardslashgetfilename and run it in a separate column after I run the first function.

    Running one function after another is not difficult, but I was curious if you can expand the code in splitList operation in line 4 to include both "\" or "/". I'm no VBA programmer but I tried splitList = VBA.Split(FullPath, "\" or "/") and it didn't work.

    Thoughts? I'm assuming its some simple syntax - I'm just clueless at this point... but I will start poking around the interwebs...

    Tks!
  • To post as a guest, your comment is unpublished.
    bob · 4 years ago
    The formula raises a #VALUE! error if the source cell has only a filename to begin with.. Embedding the entire formula in an IFERROR function solves this problem, e.g., =IFERROR(<orig formula>,A1)