Η συλλογή όλων των ονομάτων αρχείων σε ένα φύλλο εργασίας είναι πολύ σημαντική για τη δουλειά σας. Σε αυτό το άρθρο, θα εισαγάγουμε μια μέθοδο εισαγωγής όλων των ονομάτων αρχείων σε ένα φύλλο εργασίας χρησιμοποιώντας μακροεντολή VBA.
Στο προηγούμενο άρθρο μας 2 Μέθοδοι αντιγραφής της λίστας όλων των ονομάτων αρχείων σε ένα φάκελο στο φύλλο εργασίας του Excel, έχουμε εισαγάγει δύο μεθόδους για να παραθέσουμε όλα τα ονόματα αρχείων σε ένα φάκελο σε ένα φύλλο εργασίας. Και τώρα βρήκαμε μια άλλη μέθοδο. Μπορείτε επίσης να χρησιμοποιήσετε τη μακροεντολή VBA για να ολοκληρώσετε αυτήν την εργασία. Ακολουθήστε τα παρακάτω βήματα και δείτε πώς να το χρησιμοποιήσετε.
Αντιγράψτε τη λίστα με όλα τα ονόματα αρχείων σε ένα φάκελο
- Ανοίξτε το βιβλίο εργασίας που χρειάζεστε για να εισαγάγετε τα ονόματα αρχείων.
- Και μετά πατήστε τα πλήκτρα συντόμευσης "Alt + F11" στο πληκτρολόγιο για να ανοίξετε το πρόγραμμα επεξεργασίας της Visual Basic.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" στη γραμμή εργαλείων.
- Στη συνέχεια, επιλέξτε την επιλογή "Module" στην αναπτυσσόμενη λίστα. Επομένως, έχετε εισαγάγει μια νέα ενότητα στον επεξεργαστή.
- Σε αυτό το βήμα, αντιγράψτε τους ακόλουθους κωδικούς στη νέα ενότητα:
Sub ListAllFileNames() Dim strTargetFolder As String, strFileName As String, nCountItem As Integer ' Initialization nCountItem = 1 strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\" strFileName = Dir(strTargetFolder, vbDirectory) ' Get the file name Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then Cells(nCountItem, 1) = strFileName nCountItem = nCountItem + 1 End If strFileName = Dir Loop End Sub
Σε αυτήν τη μακροεντολή, πρέπει να αλλάξετε τον φάκελο προορισμού ανάλογα με τις πραγματικές σας ανάγκες. Και θα εισαγάγουμε τα ονόματα αρχείων στη στήλη Α σε ένα φύλλο εργασίας. Εάν χρειάζεται να εισαγάγετε τα ονόματα αρχείων σε άλλο εύρος, μπορείτε επίσης να τροποποιήσετε τους κωδικούς.
- Μετά από αυτό, εκτελέστε αυτήν τη μακροεντολή. Μπορείτε να κάνετε κλικ στο κουμπί "Run Sub" στη γραμμή εργαλείων ή να πατήσετε το κουμπί "F5" στο πληκτρολόγιο για να εκτελέσετε αυτήν τη μακροεντολή.
- Στη συνέχεια, επιστρέψτε στο φύλλο εργασίας. Θα διαπιστώσετε ότι όλα τα ονόματα αρχείων στο φάκελο έχουν ήδη εμφανιστεί στη στήλη Α.
Σε σύγκριση με τις άλλες δύο μεθόδους στο άρθρο 2 Μέθοδοι αντιγραφής της λίστας όλων των ονομάτων αρχείων σε ένα φάκελο στο φύλλο εργασίας του Excel, θα δείτε ότι η χρήση μακροεντολής VBA είναι πολύ βολική. Ωστόσο, από την άλλη πλευρά, εάν δεν είστε εξοικειωμένοι με το Excel VBA, θα αντιμετωπίσετε σφάλματα κατά την τροποποίηση των κωδικών. Επομένως, μπορείτε να χρησιμοποιήσετε μία από τις τρεις μεθόδους ανάλογα με την πραγματική σας ανάγκη.
Δώστε προσοχή σε επικίνδυνο λογισμικό
Σίγουρα θα εγκαταστήσετε πολύ λογισμικό στον υπολογιστή σας. Και αυτές οι εφαρμογές μπορούν να σας βοηθήσουν πολύ στη δουλειά σας. Ωστόσο, μερικές από αυτές είναι επικίνδυνες εφαρμογές. Μόλις τα εγκαταστήσετε στον υπολογιστή σας, θα συλλέξουν τα προσωπικά σας στοιχεία. Το χειρότερο είναι ότι τα αρχεία σας στο Excel θα καταστραφούν επίσης από αυτά. Αυτή τη στιγμή, απεγκαταστήστε αμέσως το επικίνδυνο λογισμικό. Επιπλέον, πρέπει επίσης να χρησιμοποιήσετε ένα εργαλείο αποκατάστασης για επιδιορθώστε το κατεστραμμένο αρχείο xlsx. Έτσι, μπορείτε να βεβαιωθείτε ότι τα αρχεία Excel σας είναι ασφαλή.
Εισαγωγή συγγραφέα:
Η Άννα Μα είναι ειδική ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή προβλήματος αρχείου Word docx και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com