Πώς να καταχωρίσετε όλα τα ονόματα αρχείων σε ένα φάκελο και να δημιουργήσετε υπερσυνδέσμους για αυτά στο Excel;

Για την καθημερινή σας εργασία, ίσως χρειαστεί να εισαγάγετε πολλά ονόματα αρχείων από ένα φάκελο σε ένα φύλλο εργασίας και να δημιουργήσετε υπερσυνδέσμους για κάθε αρχείο, ώστε να ανοίξετε το αρχείο γρήγορα και εύκολα. Ίσως, μπορείτε να αντιγράψετε και να επικολλήσετε τα ονόματα αρχείων και να δημιουργήσετε έναν υπερσύνδεσμο ένα προς ένα χειροκίνητα, αλλά, αυτό θα σπαταλήσει πολύ χρόνο εάν υπάρχουν εκατοντάδες αρχεία στο φάκελο. Σήμερα, θα μιλήσω για μερικές γρήγορες και ενδιαφέρουσες μεθόδους για την αντιμετώπιση αυτής της εργασίας.

Λίστα όλων των ονομάτων αρχείων σε ένα φάκελο και δημιουργία υπερσυνδέσμων με κώδικα VBA

Καταγράψτε όλα τα ονόματα αρχείων σε έναν φάκελο και δημιουργήστε υπερσυνδέσμους με Kutools for Excel

Λίστα όλων των ονομάτων αρχείων σε ένα φάκελο και δημιουργία υπερσυνδέσμων με κώδικα VBA

Για να απαριθμήσετε και να δημιουργήσετε υπερσύνδεσμο με αρχεία από ένα φάκελο, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει.

1. Ενεργοποιήστε ένα νέο φύλλο εργασίας για να βάλετε το αποτέλεσμα.

2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

VBA: Λίστα όλων των ονομάτων αρχείων σε ένα φάκελο και δημιουργία υπερσυνδέσμων

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. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και επιλέξτε το φάκελο στον οποίο θέλετε να αναφέρετε τα αρχεία από το Αναζήτηση παράθυρο, δείτε το στιγμιότυπο οθόνης:

5. Αφού καθορίσετε το φάκελο, κάντε κλικ στο OK κουμπί και όλα τα αρχεία του συγκεκριμένου φακέλου έχουν καταχωριστεί σε ενεργό φύλλο εργασίας με υπερσυνδέσμους, δείτε το στιγμιότυπο οθόνης:

Σημείωση: Εάν υπάρχουν υποφακέλοι στον συγκεκριμένο φάκελό σας, τα αρχεία στους υποφακέλους δεν θα εμφανίζονται.

Καταγράψτε όλα τα ονόματα αρχείων σε έναν φάκελο και δημιουργήστε υπερσυνδέσμους με Kutools for Excel

Για να απαριθμήσετε όλα τα αρχεία τόσο σε ένα φάκελο όσο και στους υποφακέλους του και να δημιουργήσετε υπερσυνδέσμους για κάθε αρχείο, Kutools for Excel'S Λίστα ονομάτων αρχείων μπορεί να σου κάνει χάρη. Με αυτήν τη δυνατότητα, όλα τα αρχεία σε φάκελο και υποφακέλους θα εμφανίζονται ταυτόχρονα με ορισμένα χαρακτηριστικά, όπως όνομα αρχείου, μέγεθος αρχείου, ώρα δημιουργίας, που περιέχει φάκελο και ούτω καθεξής.

Εάν έχετε εγκαταστήσει Kutools for Excel, κάντε τα παρακάτω βήματα:

1. Κλίκ Kutools πρόσθεση > Εισαγωγή εξαγωγή > Λίστα ονομάτων αρχείων, δείτε το στιγμιότυπο οθόνης:

2. Στο Λίστα ονομάτων αρχείων πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

(1.) Κάντε κλικ κουμπί για να επιλέξετε το φάκελο που θέλετε να αναφέρετε τα ονόματα αρχείων.

(2.) Έλεγχος Συμπεριλάβετε αρχεία σε υποκαταλόγους εάν θέλετε να παραθέσετε ονόματα αρχείων σε υποφακέλους, επιλέξτε Συμπεριλάβετε κρυφά αρχεία και φακέλους εάν θέλετε να αναφέρετε τα κρυμμένα αρχεία.

(3.) Καθορίστε τους τύπους αρχείων που θέλετε να βρείτε και να αναφέρετε στο Τύπος αρχείων Ενότητα;

(4.) Επιλέξτε τη μονάδα μεγέθους αρχείου που θέλετε να εμφανίσετε.

(5.) Έλεγχος Δημιουργία υπερσυνδέσμων στο αριστερό κάτω μέρος του παραθύρου διαλόγου.

Λήψη Kutools for Excel Τώρα!

3. Στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί και όλα τα αρχεία του φακέλου και των υποφακέλων έχουν καταχωριστεί σε ένα νέο φύλλο εργασίας με τους υπερσυνδέσμους όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

Κάντε κλικ για να μάθετε περισσότερες λεπτομέρειες σχετικά με το βοηθητικό πρόγραμμα Λίστα αρχείων…

Λήψη και δωρεάν δοκιμή Kutools for Excel Τώρα!

Επίδειξη: Καταγράψτε όλα τα ονόματα αρχείων σε έναν φάκελο και δημιουργήστε υπερσυνδέσμους με Kutools for Excel

Σχετικό άρθρο:

Πώς να καταχωρίσετε όλα τα αρχεία σε φάκελο και υποφακέλους σε ένα φύλλο εργασίας;