Hogyan lehet felsorolni az összes fájlnevet egy mappában, és létrehozni hozzájuk hiperhivatkozásokat az Excelben?
A mindennapi munkához előfordulhat, hogy több fájlnevet kell importálnia egy mappából egy munkalapra, és minden fájlhoz hiperhivatkozást kell létrehoznia, hogy gyorsan és egyszerűen megnyithassa a fájlt. Lehet, hogy másolhatja és beillesztheti a fájlneveket, és manuálisan egyenként létrehozhat egy hiperhivatkozást, de ez sok időt fog pazarolni, ha több száz fájl van a mappában. Ma néhány gyors és érdekes módszerről fogok beszélni ennek a munkának a kezelésére.
Sorolja fel az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat VBA kóddal
Sorolja fel az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat a Kutools for Excel segítségével
Sorolja fel az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat VBA kóddal
A mappából származó fájlokkal történő hiperhivatkozások felsorolásához és létrehozásához a következő VBA-kód szolgálhat.
1. Aktiváljon egy új munkalapot az eredmény elhelyezéséhez.
2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA: Sorolja fel az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat
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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és válassza ki a mappát, amelyből fel szeretné sorolni a fájlokat Tallózás ablak, lásd a képernyőképet:
5. A mappa megadása után kattintson a gombra OK gombra, és az adott mappában található összes fájl fel lett sorolva az aktív munkalapra hiperhivatkozásokkal, lásd a képernyőképet:
Megjegyzések: Ha az adott mappában vannak almappák, akkor az almappákban lévő fájlok nem jelennek meg.
Sorolja fel az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat a Kutools for Excel segítségével
A mappában és annak almappáiban található összes fájl felsorolásához és minden fájlhoz hiperhivatkozások létrehozásához Kutools az Excel számára'S Fájlnév lista szívességet tehet. Ezzel a funkcióval a mappákban és almappákban található összes fájl egyszerre lesz felsorolva néhány attribútummal, például a fájlnév, a fájlméret, a létrehozás ideje, a mappa és így tovább.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Ha telepítve van Kutools az Excel számára, kérjük, tegye a következőket:
1. Kattints Kutools Plus > Import Export > Fájlnév lista, lásd a képernyőképet:
2. A Fájlnév lista párbeszédpanelen tegye a következőket:
(1.) Kattintson gombbal válassza ki a mappát, amelybe fel kívánja sorolni a fájlneveket;
(2.) Ellenőrizze Fájlok felvétele az alkönyvtárakba ha a fájlneveket almappákba kívánja sorolni, ellenőrizze Tartalmazzon rejtett fájlokat és mappákat ha fel akarja sorolni a rejtett fájlokat;
(3.) Adja meg a megtalálni kívánt fájltípusokat, amelyek a Fájlok típusa szakasz;
(4.) Válassza ki a megjeleníteni kívánt fájlméret-egységet;
(5.) Ellenőrizze Hiperhivatkozások létrehozása a párbeszédpanel bal alján.
3. Ezután kattintson Ok gombra, és a mappában és az almappákban található összes fájl fel lett sorolva egy új munkalapon, a szükséges hivatkozásokkal, lásd a képernyőképet:
Kattintson, ha további részletekre kíváncsi a Fájlnév lista segédprogramról ...
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Demo: listázza ki az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat a Kutools for Excel segítségével
Kapcsolódó cikk:
Hogyan lehet mappába és almappákba tartozó összes fájlt felsorolni egy munkalapba?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!