Μετάβαση στο κύριο περιεχόμενο

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

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

ΓΡΗΓΟΡΗ ΠΛΟΗΓΗΣΗ

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

όνομα εικόνας λίστας εγγράφων 1

Λίστα ονομάτων εικόνων ενός φακέλου στο Excel με VBA

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

1. Στο Excel και, στη συνέχεια, πατήστε + κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε ένα νέο σενάριο Module.

3. Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τους στο νέο παράθυρο σεναρίου Module.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. Τύπος F5 κλειδί και, στη συνέχεια, εμφανίζεται ένας διάλογος για να επιλέξετε ένα κελί για να τοποθετήσετε τα ονόματα των εικόνων.
όνομα εικόνας λίστας εγγράφων 1

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

6. κλικ OK, τώρα όλα τα ονόματα εικόνων στον επιλεγμένο φάκελο έχουν καταχωριστεί στο Excel.
όνομα εικόνας λίστας εγγράφων 13

Σημείωση: Στον κώδικα VBA, μπορείτε να jpg / png /… στη συμβολοσειρά κώδικα Εάν InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Τότε στην επέκταση αρχείου που χρειάζεστε, για παράδειγμα, εάν θέλετε να παραθέσετε τα ονόματα αρχείων του αρχείου σε μορφή εγγράφου, αλλάξτε μόνο τη συμβολοσειρά κώδικα σε Εάν InStr (1, xFileName, ".doc")> 0 τότε.

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


μετακινηθείτε

Θέλετε να αυξήσετε τις πληρωμές και πολύ χρόνο για να συνοδεύσετε την οικογένεια;

Η καρτέλα του Office βελτιώνει την αποτελεσματικότητά σας κατά 50% στο Microsoft Office που λειτουργεί τώρα

Απίστευτο, η εργασία σε δύο ή περισσότερα έγγραφα είναι ευκολότερη και ταχύτερη από την εργασία σε ένα.

Σε σύγκριση με γνωστά προγράμματα περιήγησης, το εργαλείο καρτελών στο Office Tab είναι πιο ισχυρό και πιο αποτελεσματικό.

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

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

30- δωρεάν δοκιμή ημέρας, δεν απαιτείται πιστωτική κάρτα.

Δείτε ΠερισσότεραΔωρεάν Λήψη Τώρα


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

Εδώ είναι ένα βοηθητικό πρόγραμμα - Λίστα ονομάτων αρχείων in Kutools για Excel, Η οποία μπορεί να

>> λίστα όλων των ονομάτων αρχείων σε όλες τις μορφές αρχείων ενός φακέλου σε ένα νέο φύλλο.

>> λίστα των ονομάτων αρχείων σε μία ή περισσότερες μορφές αρχείων που καθορίζετε στο Excel.

>> λίστα ονομάτων αρχείων, συμπεριλαμβανομένων υποφακέλων και κρυφών αρχείων και φακέλων στο Excel.

Πείτε αντίο στο χέρι του ποντικιού και την αυχενική σπονδυλίωση τώρα

Επίλυση 300 προηγμένων εργαλείων Kutools για Excel 80% Οι εργασίες του Excel σε δευτερόλεπτα, σας τραβούν από τα χιλιάδες κλικ του ποντικιού.

Αντιμετωπίστε εύκολα 1500 σενάρια εργασίας, δεν χρειάζεται να χάνετε χρόνο για αναζήτηση λύσεων, έχετε πολύ χρόνο για να απολαύσετε τη ζωή σας.

Βελτιώστε την παραγωγικότητα κατά 80% για 110000+ εξαιρετικά αποτελεσματικούς ανθρώπους καθημερινά, φυσικά συμπεριλαμβανομένου και εσάς.

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

Δωρεάν δοκιμή 30 ημερών με πλήρεις δυνατότητες, επιστροφή χρημάτων 30 ημερών χωρίς λόγους.

Ένα καλύτερο σώμα δημιουργεί μια καλύτερη ζωή.

Μετά την δωρεάν εγκατάσταση του Kutools για Excel, κάντε τα παρακάτω:

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να αναφέρετε τα ονόματα των αρχείων και, στη συνέχεια, κάντε κλικ στο Kutools Plus > Εισαγωγή / Εξαγωγή > Λίστα ονομάτων αρχείων.
όνομα εικόνας λίστας εγγράφων 4

2. Στο Λίστα ονομάτων αρχείων διαλόγου, πρώτα, κάντε κλικ στο  όνομα εικόνας λίστας εγγράφων 5 για να επιλέξετε ένα φάκελο στον οποίο θέλετε να αναφέρετε τα ονόματα των αρχείων του, τότε μπορείτε να επιλέξετε τα πλαίσια ελέγχου Συμπεριλάβετε αρχεία σε υποκαταλόγους και Συμπεριλάβετε κρυφά αρχεία και φακέλους όπως χρειάζεστε.
όνομα εικόνας λίστας εγγράφων 6

3. Στη συνέχεια, επιλέξτε τη μορφή αρχείου στην οποία θέλετε να αναφέρετε τα ονόματα Τύπος αρχείων τμήμα.

Έλεγχος Όλα τα αρχεία επιλογή, θα εμφανίσει όλα τα ονόματα αρχείων σε όλες τις μορφές αρχείων στον επιλεγμένο φάκελο
όνομα εικόνας λίστας εγγράφων 7
Έλεγχος Κοινός επιλογή και επιλέξτε τη συγκεκριμένη μορφή αρχείου που θέλετε να αναφέρετε τα ονόματα αρχείων από την αναπτυσσόμενη λίστα και στη συνέχεια θα εμφανίσει όλα τα ονόματα αρχείων της μορφής αρχείου που επιλέγετε στην αναπτυσσόμενη λίστα
όνομα εικόνας λίστας εγγράφων 8
Έλεγχος Καθορίστε επιλογή και, στη συνέχεια, πληκτρολογήστε τις επεκτάσεις αρχείων (χρησιμοποιώντας κόμμα για να τις διαχωρίσετε) που θέλετε να παραθέσετε τα ονόματα αρχείων στο πλαίσιο κειμένου και, στη συνέχεια, θα εμφανίσει μόνο τα ονόματα αρχείων με τις επεκτάσεις αρχείων εισαγωγής στο Excel
όνομα εικόνας λίστας εγγράφων 9

4. Επιλέξτε τη μονάδα μεγέθους όπως χρειάζεστε από την αναπτυσσόμενη λίστα στο Μονάδα μεγέθους αρχείου ενότητα, εάν θέλετε να δημιουργήσετε έναν σύνδεσμο για τα ονόματα αρχείων, επιλέξτε Δημιουργία υπερσυνδέσμων επιλογή.

όνομα εικόνας λίστας εγγράφων 10 όνομα εικόνας λίστας εγγράφων 11

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

Συμβουλή: εάν θέλετε να παραθέσετε όλα τα ονόματα φύλλων στο Excel, μπορείτε να εφαρμόσετε το Kutools για Excel ' Δημιουργία λίστας ονομάτων φύλλων βοηθητικό πρόγραμμα, θα δημιουργήσει ένα νέο φύλλο για να απαριθμήσει όλα τα συνδέσιμα ονόματα φύλλων.
δημιουργία λίστας ονομάτων φύλλων

Kutools για Excel: + χρήσιμα εύχρηστα εργαλεία, απλοποιώντας τις πολύπλοκες εργασίες στο Excel σε μερικά κλικ.


Λήψη δείγματος αρχείου

δείγμα


Πώς να σας κάνει να ξεχωρίζετε από το πλήθος, να εργάζεστε εύκολα και να απολαμβάνετε χαλαρά τη ζωή?

Το Kutools για Excel θα βελτιώσει κατά μέσο όρο την αποτελεσματικότητά σας κατά 80% κάθε μέρα, θα σας κάνει να έχετε πολύ χρόνο για να συνοδεύσετε την οικογένεια και να διασκεδάσετε στη ζωή.

Επίλυση 300 προηγμένων εργαλείων 80% Προβλήματα Excel, δεν αγωνίζεστε πλέον να αναζητάτε λύσεις, ολοκληρώνετε πιο εύκολα την εργασία.

Χειριστείτε εύκολα 1500 σενάρια Excel, εξοικονομήστε τουλάχιστον 1 ώρα για εσάς κάθε μέρα.

Γίνετε ειδικός του Excel σε 5 λεπτά, κερδίστε την αναγνώριση και την ευκαιρία προώθησης.

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

Ξεφορτωθείτε τους τρόπους απομνημόνευσης και το σύνθετο VBA, ξεκουραστείτε στον εγκέφαλό σας.

110000+ αξιωματικοί υψηλής απόδοσης και 300+ παγκοσμίως γνωστές εταιρείες.

Πάρτε μόνο 39 $ αλλά αξίζει περισσότερο από 4000 $ εκπαίδευση άλλων ανθρώπων

Δωρεάν δοκιμή 30 ημερών χωρίς περιορισμό, πλήρης επιστροφή χρημάτων σε 30 ημέρες χωρίς κανέναν λόγο.


Συνιστώμενα εργαλεία παραγωγικότητας

Καρτέλα Office - Περιήγηση με καρτέλες, Επεξεργασία, Διαχείριση εγγράφων στο Microsoft Office 2019 - 2003 και Office 365


καρτέλα γραφείου

Ένα επαγγελματικό πρόσθετο για την επιτάχυνση του Excel 2019-2007, συρρικνώστε τις ώρες εργασίας σε δευτερόλεπτα

Αυτό το πρόσθετο περιλαμβάνει δεκάδες επαγγελματικές ομάδες, με 300+ επιλογές θα αυτοματοποιήσουν τις περισσότερες από τις καθημερινές σας εργασίες στο Excel και θα αυξήσουν την παραγωγικότητά σας τουλάχιστον κατά 50%. Όπως ομάδες οπτικών με ένα κλικ και ομαδικές μετατροπές.
Τώρα είναι η ευκαιρία σας να επιταχύνετε τον εαυτό σας με το Kutools για Excel!


Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hey! This is super quick and thanks
This comment was minimized by the moderator on the site
Thanks so much for this!
This comment was minimized by the moderator on the site
In Libreoffice Calc I use the function of importing a list of files into the rows / columns of a Calc table, via Macro and based on certain criteria - I have created a button on the toolbar for this particular macro, and after pressing it, I select a folder, and the list of images is immediately inserted into a new document. How to make it as easy as possible in Excel? I have a lot of folders that contain 1 or more images and I need to:
> If the folder contains 1 image, I need it to be on a new line in Excel.
> If the folder contains more images, the first being on a new line and the second either:
- next to the first in the same row (in one column), separated by the character | (example: photo 1.jpeg | photo 2.jpeg)
- or to have their names in the columns (even without the | character) (the first option would be better, but the second is enough as well)

These are the product images whose names I need for import into Woocommerce - via a csv file.
This comment was minimized by the moderator on the site
Amazing! Thank you for sharing!
This comment was minimized by the moderator on the site
Hi,
As per the above code I am getting the the images name in an incrementing order, however the path where the images are being placed are in numeric incrementation.

Kindly suggest how I can keep the same formatting.
This comment was minimized by the moderator on the site
How to export an image with specific file name in excel.
This comment was minimized by the moderator on the site
I WAS HAVING THE SAME PROBLEM TANNER, IN THE SCRIPT WHERE IT HAS THE DIFFERENT FILE EXTENSIONS ITS GOING TO GRAB,YOU HAVE TO CAPITALIZE THE FILE EXTENSION ITS LOOKING FOR, FOR EXAMPLE, YOU SAID YOUR FILES ARE ".png", WELL IF YOU CAPITALIZE IT I.E ".PNG" IT MAY WORK.
This comment was minimized by the moderator on the site
Now it works for me. Thanks!!!
This comment was minimized by the moderator on the site
Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
This comment was minimized by the moderator on the site
Is it possible something is wrong with the code? Because it shows folders full of images (.png) as empty when it pulls up the box to select the photos.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations