Πώς να Γάζας Επεκτάσεις Αρχείο Pattern Από τις χορδές στο Excel μακροεντολές

Μπορείτε να αφαιρέσει εύκολα επεκτάσεις αρχείων μοτίβο από χορδές σε εφαρμογές του Microsoft Excel σας μέσω της Visual Basic for Applications ή VBA . VBA είναι μια γλώσσα προγραμματισμού που χρησιμοποιείται σε εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας όπως η άρση επεκτάσεις αρχείων . Μπορείτε να δημιουργήσετε μια μακροεντολή στο Excel να εκτελέσει κώδικα VBA με το πάτημα ενός κουμπιού . Προσθέστε μια μακροεντολή στο VB Επεξεργαστή προσθέτοντας εντολές VBA που εκτελούν όταν εκτελείτε τη μακροεντολή . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel , στη συνέχεια, κάντε κλικ στο " Developer " και " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . Κάντε κλικ στο " Εισαγωγή> Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα VBA 2

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα μακροεντολή Excel : .

Private Sub removeFileExtension ( )

Η 3

Ορίστε δύο ακέραιων μεταβλητών και το string array που θα κρατήσει τα ονόματα των αρχείων σας :

Δημ. fileName ( 5 ) Δεδομένου ότι StringDim xCntr Όπως IntegerDim pos As Integer
Η 4

Προσθέστε τα ονόματα των αρχείων σας στον πίνακα συμβολοσειράς:

fileName ( 0 ) = " myfile.xlsx " fileName ( 1 ) = " myfile2.txt " fileName ( 2 ) = " myfile3 . doc " fileName ( 3 ) = " myfile4.docx " fileName ( 4 ) = " myfile5.xls "
5

Δημιουργία « για ... Loop " για να αφαιρέσει τις επεκτάσεις αρχείων πρότυπο από το αρχείο ονόματα στη σειρά :

Για xCntr = 0 Για να 4POS = InStr ( " . " 1 , fileName ( xCntr ) , , vbTextCompare ) fileName ( xCntr ) = Left ( fileName ( xCntr ) , pos - 1 ) Επόμενο xCntr

6

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

Για xCntr = 1 Για να 5Range ( " A " . & xCntr ) SelectRange ( "A" & xCntr ) Value = fileName ( xCntr - . " . Μακροεντολές " 1 ) Επόμενο xCntrEnd Sub
Η 7

Επιστρέψτε στο Microsoft Excel και κάντε κλικ στο Input " removeFileExtension "και κάντε κλικ στο κουμπί" Run "για να εκτελέσετε τη μακροεντολή και να προσθέσετε τα νέα ονόματα αρχείων χωρίς επεκτάσεις .
Η
εικόνων