Πώς να καταχωρίσετε γρήγορα τα ονόματα εικόνων / ονόματα αρχείων ενός φακέλου σε κελιά Excel;
Σε αυτό το σεμινάριο, θα παράσχω κάποια κόλπα για την ταχεία καταχώριση όλων των ονομάτων εικόνων ή των ονομάτων αρχείων ενός συγκεκριμένου φακέλου σε ένα φύλλο Excel όπως φαίνεται στο στιγμιότυπο οθόνης. ΓΡΗΓΟΡΗ ΠΛΟΗΓΗΣΗ Λίστα ονομάτων εικόνων ενός φακέλου στο Excel με VBA |
Λίστα ονομάτων εικόνων ενός φακέλου στο 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 κλειδί και, στη συνέχεια, εμφανίζεται ένας διάλογος για να επιλέξετε ένα κελί για να τοποθετήσετε τα ονόματα των εικόνων.
5. κλικ OK για να συνεχίσετε την επιλογή του φακέλου που θέλετε να αναφέρετε τα ονόματα των εικόνων στο παράθυρο διαλόγου Αναζήτηση.
6. κλικ OK, τώρα όλα τα ονόματα εικόνων στον επιλεγμένο φάκελο έχουν καταχωριστεί στο Excel.
Σημείωση: Στον κώδικα 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 > Εισαγωγή / Εξαγωγή > Λίστα ονομάτων αρχείων.
2. Στο Λίστα ονομάτων αρχείων διαλόγου, πρώτα, κάντε κλικ στο για να επιλέξετε ένα φάκελο στον οποίο θέλετε να αναφέρετε τα ονόματα των αρχείων του, τότε μπορείτε να επιλέξετε τα πλαίσια ελέγχου Συμπεριλάβετε αρχεία σε υποκαταλόγους και Συμπεριλάβετε κρυφά αρχεία και φακέλους όπως χρειάζεστε.
3. Στη συνέχεια, επιλέξτε τη μορφή αρχείου στην οποία θέλετε να αναφέρετε τα ονόματα Τύπος αρχείων τμήμα.
4. Επιλέξτε τη μονάδα μεγέθους όπως χρειάζεστε από την αναπτυσσόμενη λίστα στο Μονάδα μεγέθους αρχείου ενότητα, εάν θέλετε να δημιουργήσετε έναν σύνδεσμο για τα ονόματα αρχείων, επιλέξτε Δημιουργία υπερσυνδέσμων επιλογή.
5. κλικ Ok, θα δημιουργηθεί ένα νέο φύλλο για τη λίστα των ονομάτων αρχείων και ορισμένων πληροφοριών αρχείων.
Συμβουλή: εάν θέλετε να παραθέσετε όλα τα ονόματα φύλλων στο 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!