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

Conas ainm an chomhaid a bhaint go tapa ón gcosán iomlán in Excel?

Má cheaptar go bhfuil bileog oibre agat ina bhfuil liosta de na cosáin chomhad, ba mhaith leat anois ainm an chomhaid (an chuid cheart den chúlslais deiridh) a bhaint as gach cosán mar a thaispeántar na scáileáin scáileáin a leanas. An bhfuil aon chleasanna gasta ann chun déileáil leis an tasc seo?

Sliocht ainm an chomhaid ón gcosán iomlán leis an bhfoirmle in Excel
Sliocht ainm an chomhaid ón gcosán iomlán le Feidhm Sainithe ag an Úsáideoir
Sliocht ainm an chomhaid ón gcosán iomlán le cód VBA


Sliocht ainm an chomhaid ón gcosán iomlán leis an bhfoirmle in Excel

In Excel, is féidir leat an fhoirmle thíos a úsáid chun ainm comhaid a bhaint go tapa ón gcosán iomlán.

Roghnaigh cill bhán, cuir isteach an fhoirmle thíos inti agus ansin brúigh an Iontráil eochair.

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

Leideanna: Is é A1 an chill ar mhaith leat ainm an chomhaid a bhaint aisti), agus brúigh Iontráil cnaipe, ansin tarraing an láimhseáil líonta chun an raon atá uait a líonadh. Tar éis sin, baintear ainm an chomhaid as gach cill.

ainm sliocht doc1


Sliocht ainm an chomhaid ón gcosán iomlán le Feidhm Sainithe ag an Úsáideoir

Leis an bhFeidhm Sainmhínithe Úsáideora seo a leanas, is féidir leat ainm an chomhaid a fháil go héasca agus go tapa.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

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. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog agus téigh ar ais chuig an mbileog oibre. I gcill bhán, B1 mar shampla, cuir an fhoirmle thíos isteach agus brúigh an Iontráil eochair.

=FunctionGetFileName(A1)

ainmneacha doc-eastóscán1

Ansin roghnaigh cill B1 arís, tarraing an láimhseáil líonta chuig an raon a theastaíonn uait an fhoirmle seo a chur i bhfeidhm, agus baineadh na hainmneacha comhaid go léir ó na cosáin iomlána mar thoradh a leanas:

ainmneacha doc-eastóscán1


Sliocht ainm an chomhaid ón gcosán iomlán le cód VBA

Chomh maith leis an bhFeidhm Sainmhínithe ag Úsáideoir, is féidir le cód VBA cabhrú leat ainmneacha na gcomhad a bhaint freisin. Déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic d’Fheidhmchláir.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus roghnaigh an raon ar mhaith leat ainm an chomhaid a bhaint as, féach an scáileán:

ainmneacha doc-eastóscán1

4. Agus ansin cliceáil OK, baineadh na hainmneacha comhaid ón roghnú mar seo a leanas:

nótaí: Leis an gcód VBA seo, scriosfar na sonraí bunaidh, mar sin ba cheart duit ceann a chóipeáil sula gcuirfidh tú an cód seo i bhfeidhm.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (2)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ardaíonn an fhoirmle #VALUE! earráid mura bhfuil ag an gcill foinseach ach ainm comhaid ar dtús.. Réitíonn an fhoirmle iomlán a leabú i bhfeidhm IFERROR an fhadhb seo, m.sh. =IFERROR( ,A1)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Feidhm an-úsáideach. An bhfuil bealach ann chun an script a mhodhnú ionas go bhfaighidh sé ainm an chomhaid má tá \ nó / slais ar an gcosán?

Tá scarbhileog agam le hipearnaisc éagsúla ina bhfuil na cosáin bhunúsacha \ nó / (slais ar ais nó slais ar aghaidh) scartha - is dóigh liom mar go ndearnadh cuid de na naisc le comhaid díreach mar leabharmharcanna i Word ar dtús, nó le comhaid ar inmheánach freastalaí doc. Nó b'fhéidir go bhfuil sé mar gheall ar roinnt nasc cosán a dhéanamh le naisc cosán iomlán vs coibhneasta?

msh:

../../../../Documents/2ndQuarter/2019/standardcost_widget12345.pdf
or
\fileserver\monarcha23\Oibríochtaí\Parts_Mgt\Documents\2ndQuarter\2019\standardcost_widget12345.pdf


Nuair a rith mé an fheidhm getfilename, fuair sé na comhaid go léir a bhí sna cosáin le \ idir eolairí nó fillteáin, ach cuireadh na naisc le / slashes ar ais mar atá.
D'athraigh mé & chuir mé an dara feidhm a bhí cosúil leis ach chuir mé "/" in ionad "\" i líne 4 agus ghlaoigh mé forwardslashgetfilename air agus rith i gcolún ar leith é tar éis dom an chéad fheidhm a rith.

Níl sé deacair feidhm amháin a rith i ndiaidh a chéile, ach bhí mé fiosrach an féidir leat an cód a leathnú in oibríocht splitList i líne 4 chun an dá "\" nó "/" a chur san áireamh. Ní ríomhchláraitheoir VBA mé ach bhain mé triail as splitList = VBA.Split(FullPath, "\" nó "/") agus níor oibrigh sé.

Smaointe? Tá mé ag glacadh leis go bhfuil a chomhréir shimplí ann - nílim ach clueless ag an bpointe seo ...

Tks!
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL