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

 Sut i restru'r holl enwau ffeiliau mewn ffolder a chreu hypergysylltiadau ar eu cyfer yn Excel?

Ar gyfer eich gwaith beunyddiol, efallai y bydd angen i chi fewnforio enwau ffeiliau lluosog o ffolder i daflen waith, a chreu hypergysylltiadau ar gyfer pob ffeil fel eu bod yn agor y ffeil yn gyflym ac yn hawdd. Efallai, gallwch chi gopïo a gludo'r enwau ffeiliau a chreu hyperddolen ar ei gyfer fesul un â llaw, ond, bydd hyn yn gwastraffu llawer o amser os oes cannoedd o ffeiliau yn y ffolder. Heddiw, byddaf yn siarad am rai dulliau cyflym a diddorol i ddelio â'r swydd hon.

Rhestrwch yr holl enwau ffeiliau mewn ffolder a chreu hypergysylltiadau â chod VBA

Rhestrwch yr holl enwau ffeiliau mewn ffolder a chreu hypergysylltiadau gyda Kutools ar gyfer Excel


I restru a chreu hyperddolen gyda ffeiliau o ffolder, gall y cod VBA canlynol ffafrio chi.

1. Ysgogi taflen waith newydd i roi'r canlyniad.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

VBA: Rhestrwch yr holl enwau ffeiliau mewn ffolder a chreu hypergysylltiadau

Sub Example1()
'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)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Yna pwyswch F5 allwedd i redeg y cod hwn, a dewis y ffolder rydych chi am restru'r ffeiliau o'r Pori ffenestr, gweler y screenshot:

rhestr doc creu hypergysylltiadau 1

5. Ar ôl nodi'r ffolder, cliciwch OK botwm, ac mae'r holl ffeiliau yn y ffolder benodol wedi'u rhestru i mewn i daflen waith weithredol gyda hypergysylltiadau, gweler y screenshot:

rhestr doc creu hypergysylltiadau 2

Nodyn: Os oes is-ffolderi yn eich ffolder benodol, ni fydd y ffeiliau yn yr is-ffolderi yn cael eu rhestru.


I restru'r holl ffeiliau mewn ffolder a'i is-ffolderi a chreu hypergysylltiadau ar gyfer pob ffeil, Kutools ar gyfer Excel'S Rhestr Enw Ffeil Efallai y gwnewch ffafr i chi. Gyda'r nodwedd hon, bydd yr holl ffeiliau mewn ffolder ac is-ffolderi yn cael eu rhestru ar unwaith gyda rhai priodoleddau, megis enw ffeil, maint ffeil, amser wedi'i greu, sy'n cynnwys ffolder ac ati.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Os ydych chi wedi gosod Kutools ar gyfer Excel, gwnewch y camau canlynol:

1. Cliciwch Kutools Byd Gwaith > Mewnforio ac Allforio > Rhestr Enw Ffeil, gweler y screenshot:

2. Yn y Rhestr Enw Ffeil blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) Cliciwch rhestr doc creu hypergysylltiadau 5 botwm i ddewis y ffolder rydych chi am restru'r enwau ffeiliau;

(2.) Gwiriwch Cynhwyswch ffeiliau mewn is-gyfeiriaduron os ydych chi eisiau rhestru enwau ffeiliau o fewn is-ffolderi, gwiriwch Cynhwyswch ffeiliau a ffolderau cudd os ydych chi am restru'r ffeiliau cudd;

(3.) Nodwch y mathau o ffeiliau rydych chi am ddod o hyd iddynt a'u rhestru o dan y Math o ffeiliau adran;

(4.) Dewiswch yr uned maint ffeil rydych chi am ei harddangos;

(5.) Gwiriwch Creu hypergysylltiadau ar waelod chwith y blwch deialog.

Dadlwythwch Kutools ar gyfer Excel Nawr!

3. Yna cliciwch Ok botwm, ac mae'r holl ffeiliau yn y ffolder a'r is-ffolderi wedi'u rhestru mewn taflen waith newydd gyda'r hypergysylltiadau yn ôl yr angen, gweler y screenshot:

rhestr doc creu hypergysylltiadau 6

Cliciwch i wybod mwy o fanylion am gyfleustodau Rhestr Enw Ffeiliau ...

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Sut i restru'r holl ffeiliau mewn ffolder ac is-ffolderi i mewn i daflen waith?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae rhedeg y cod VBA a restrir uchod, yn dangos bod y cyfeiriadur a ddewiswyd yn wag, pan fydd yn llawn ffeiliau Excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Awesome ..diolch yn fawr. Fe arbedodd fy amser yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr er na all weld y ffeiliau yn y cyfeiriadur a ddewiswyd fel y dywedodd barry, mae'n creu hyperddolenni ar gyfer pob ffeil yn y cyfeiriadur hwnnw beth bynnag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
" VBA: Rhestrwch yr holl enwau ffeil mewn ffolder a chreu hypergysylltiadau " yn wych! Mae'n gweithio'n berffaith! Diolch am bostio! Un cwestiwn... Nawr eich bod wedi dweud wrthym sut i ychwanegu dolenni o ffolder, a yw'n bosibl defnyddio'r dolenni hynny i gael gwybodaeth o un neu ddwy ddalen wahanol ym mhob un o'r ffeiliau a restrir, dyweder? Byddent yr un celloedd ar gyfer pob un o'r ffeiliau y mae gennym restr ar eu cyfer yn awr. Byddai hyn yn helpu i greu cynnwys cynhwysfawr gyda dolenni gweithredol i enwau ffeiliau annealladwy fel arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut byddwn i'n newid y cod hwn er mwyn iddo restru enwau ffolderi yn hytrach nag enwau ffeiliau? A sut byddwn i'n ei newid i wirio is-ffolderi am ffeiliau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ellie,
I restru'r holl enwau ffolderi ac is-ffolderi o gyfeiriadur, gall y cod VBA isod eich helpu chi, ceisiwch, hopiwch y gall eich helpu chi.

Enwau Is-ffolder()
Application.ScreenUpdating = Anghywir
Dim xPath Fel Llinyn
Dim xWs Fel Taflen Waith
Dim fso Fel Gwrthrych, j Mor Hir, ffolder1 Fel Gwrthrych
Gyda Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Dewiswch y ffolder"
.sioe
Diwedd Gyda
Ar Ail-ddechrau Gwall Nesaf
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Cymhwysiad.Llyfrau Gwaith.Add
Gosod xWs = Application.ActiveSheet
xWs.Cells(1, 1).Gwerth = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Llwybr", "Dir", "Enw", "Dyddiad Creu", "Dyddiad Addasu Diwethaf")
Gosod fso = CreateObject ("Scripting.FileSystemObject")
Gosod ffolder1 = fso.getFolder(xPath)
ffolder getSubFolder1
xWs.Cells(2, 1).Newid maint(1, 5).Color.Color = 65535
xWs.Cells(2, 1).Newid maint(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = Gwir
Is-End
Is getSubFolder(ByRef prntfld As Object)
Is-ffolder Dim Fel Gwrthrych
Dim subfld Fel Gwrthrych
Dim xRow Cyhyd
Ar gyfer Pob Is-ffolder Mewn prntfld.SubFolders
xRow = Ystod ("A1").Diwedd(xlDown). Rhes + 1
Celloedd(xRow, 1).Newid maint(1, 5).Gwerth = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder. DyddiadLastAdified)
Is-ffolder Nesaf
Ar gyfer Pob subfld Mewn prntfld.SubFolders
getSubFolder subfld
Subfld nesaf
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddech chi'n codio hwn i wneud hyperddolenni ar gyfer llwybr a chyfeiriadur
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, yuri,
I ddatrys eich problem, rhowch gynnig ar y cod canlynol:

Enwau Is-ffolder()
Application.ScreenUpdating = Anghywir
Dim xPath Fel Llinyn
Dim xWs Fel Taflen Waith
Dim xRg Fel Ystod
Dim fso Fel Gwrthrych, j Mor Hir, ffolder1 Fel Gwrthrych
Gyda Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Dewiswch y ffolder"
.sioe
Diwedd Gyda
Ar Ail-ddechrau Gwall Nesaf
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Cymhwysiad.Llyfrau Gwaith.Add
Gosod xWs = Application.ActiveSheet
Gosod xRg = xWs.Cells(1, 1)
xRg.Value = xPath
xWs.Hyperlinks.Add Anchor:=xRg, Cyfeiriad:=xPath, TextToDisplay:=xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Llwybr", "Dir", "Enw", "Dyddiad Creu", "Dyddiad Addasu Diwethaf")
Gosod fso = CreateObject ("Scripting.FileSystemObject")
Gosod ffolder1 = fso.GetFolder(xPath)
ffolder getSubFolder1
xWs.Cells(2, 1).Newid maint(1, 5).Color.Color = 65535
xWs.Cells(2, 1).Newid maint(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = Gwir
Is-End
Is getSubFolder(ByRef prntfld As Object)
Is-ffolder Dim Fel Gwrthrych
Dim subfld Fel Gwrthrych
Dim xRow Cyhyd
Dim xStr Fel Llinyn
Dim xRg Fel Ystod
Ar gyfer Pob Is-ffolder Mewn prntfld.SubFolders
xRow = Ystod ("A1").Diwedd(xlDown). Rhes + 1
Celloedd(xRow, 1).Newid maint(1, 5).Gwerth = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder. DyddiadLastAdified)
Gosod xRg = Celloedd(xRow, 1)
xRg.Worksheet.Hyperlinks.Add Anchor:=xRg, Cyfeiriad:=xRg.Value, TextToDisplay:=xRg.Value
Gosod xRg = Celloedd(xRow, 2)
xRg.Worksheet.Hyperlinks.Add Anchor:=xRg, Cyfeiriad:=xRg.Value, TextToDisplay:=xRg.Value
Is-ffolder Nesaf
Ar gyfer Pob subfld Mewn prntfld.SubFolders
getSubFolder subfld
Subfld nesaf
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
@skyyang Helo, A ellid golygu'r cod hwn i hyperddolen llwybr ar gyfer ffeiliau yn lle ffolderi. Er enghraifft, yn lle hypergysylltu llwybrau'r ffolderi y tu mewn i Folder1, byddai'n hypergysylltu llwybrau'r holl ffeiliau yn Folder1 (mae angen y testun i'w arddangos fel llwybr y ffeil, nid enw'r ffeil), dyna fyddai'r defnydd perffaith achos i mi. gwerthfawrogi unrhyw help y gallwch ei gynnig :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
@skyyang Helo,
A ellid golygu'r cod hwn i lwybr hyperddolen ar gyfer ffeiliau yn lle ffolderi. Er enghraifft, yn lle hypergysylltu llwybrau'r ffolderi y tu mewn i Folder1, byddai'n hypergysylltu llwybrau'r holl ffeiliau yn Folder1 (mae angen y testun i'w arddangos fel llwybr y ffeil, nid enw'r ffeil), dyna fyddai'r defnydd perffaith achos i mi.
gwerthfawrogi unrhyw help y gallwch ei gynnig :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
@skyyang Helo,
A ellid golygu'r cod hwn i lwybr hyperddolen ar gyfer ffeiliau yn lle ffolderi. Er enghraifft, yn lle hypergysylltu llwybrau'r ffolderi y tu mewn i Folder1, byddai'n hypergysylltu llwybrau'r holl ffeiliau yn Folder1 (mae angen y testun i'w arddangos fel llwybr y ffeil, nid enw'r ffeil), dyna fyddai'r defnydd perffaith achos i mi.
gwerthfawrogi unrhyw help y gallwch ei gynnig :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb,

ich habe eine bescheidene Frage:
Wie kann ich Eine Liste von Dateinamen in klickbare Dolenni ymholiad amwandeln.
Es sind hier Beispiele genannt worden. Dies hat mich aber nicht weiter gebracht.
Be oedd eine Beispieldatei? Wie aus dem Bericht #28151.

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ffrind,

Ar ôl i'r holl ffeiliau yn y ffolder penodol gael eu rhestru yn y daflen waith weithredol gyda hypergysylltiadau, gallwch glicio ar y celloedd i agor yr hypergysylltiadau. Gellir clicio ar yr holl enwau ffeiliau. Gweler y sgrinluniau.

Ond ni allaf anfon fy ffeil Excel enghreifftiol atoch, oherwydd dim ond o'm cyfrifiaduron fy hun y gellir agor yr hypergysylltiadau hynny a restrir yn y ffeil. Defnyddiwch y dull i greu hyperddolenni gyda ffeiliau o'ch ffolder penodol. Ar ôl yr enwau ffeiliau gyda hypergysylltiadau yn cael eu rhestru mewn ffeil newydd. Cliciwch ar yr hypergysylltiadau i'w hagor. Rhowch gynnig arni.

Yn gywir,
Mandy
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir