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 Kutools for Excel

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 Kutools for Excel

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 for Excel'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.

Ha telepítve van Kutools for Excel, kérjük, tegye a következőket:

1. Kattints Kutools Plusz > 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.

Letöltés Kutools for Excel Most!

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 ...

Letöltés és ingyenes próbaidőszak Kutools for Excel Most!

Demo: listázza ki az összes fájlnevet egy mappában, és hozzon létre hiperhivatkozásokat Kutools for Excel

Kapcsolódó cikk:

Hogyan lehet mappába és almappákba tartozó összes fájlt felsorolni egy munkalapba?