Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για να ανοίξουμε πολλά αρχεία με ένα παράθυρο διαλόγου αρχείων.
Δημιουργήσαμε τη μακροεντολή "opening_multiple_file" για να ανοίξουμε πολλά αρχεία. Ένας χρήστης μπορεί να κάνει κλικ στο κουμπί "Άνοιγμα πολλαπλών αρχείων" για να εκτελέσει τη μακροεντολή.
Λογική εξήγηση
Δημιουργήσαμε τη μακροεντολή "opening_multiple_file" για να ανοίξουμε πολλά αρχεία. Ένας χρήστης μπορεί να κάνει κλικ στο κουμπί "Άνοιγμα πολλαπλών αρχείων" για να εκτελέσει τη μακροεντολή. Ανοίγει το παράθυρο διαλόγου αρχείου από όπου ένας χρήστης μπορεί να επιλέξει πολλά αρχεία excel, τα οποία θέλει να ανοίξει.
Μόλις επιλεγούν όλα τα αρχεία, κάντε κλικ στο κουμπί "OK" για να ανοίξετε όλα τα επιλεγμένα αρχεία.
Επεξήγηση κώδικα
Application.FileDialog (msoFileDialogFilePicker)
Ο παραπάνω κώδικας χρησιμοποιείται για να ανοίξει το παράθυρο διαλόγου αρχείου.
.AllowMultiSelect = True
Στον παραπάνω κώδικα, η ιδιότητα AllowMultipleSelect έχει οριστεί ως true για να ενεργοποιήσει την πολλαπλή επιλογή στο παράθυρο διαλόγου αρχείου.
.Φίλτρα.Προσθήκη "Αρχεία Excel", "*.xls*"
Στον παραπάνω κώδικα, το παράθυρο διαλόγου φίλτρο για αρχείο έχει οριστεί ώστε να επιλέγει μόνο αρχεία Excel.
Αν .Show = True Τότε
Ο παραπάνω κώδικας χρησιμοποιείται για να ελέγξει εάν ένας χρήστης πατά το κουμπί "OK" ή "Cancel" στο παράθυρο διαλόγου αρχείου.
Τετράδια εργασίας. Άνοιγμα .Επιλεγμέναστοιχεία (i)
Ο παραπάνω κώδικας χρησιμοποιείται για να ανοίξει το επιλεγμένο αρχείο Excel.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub opening_multiple_file () Dim i As Integer 'Άνοιγμα αρχείου παράθυρο διαλόγου Με Application.FileDialog (msoFileDialogFilePicker)' Ενεργοποίηση πολλαπλών αρχείων επιλέξτε .AllowMultiSelect = True. Φίλτρα. Διαγραφή 'Μόνο αρχεία Excel μπορούν να επιλεγούν. Φίλτρα. Προσθήκη "Αρχεία Excel" , "*.xls*" If .Show = True then For i = 1 To .SelectedItems.Count 'Άνοιγμα επιλεγμένου αρχείου Workbooks.Open .SelectedItems (i) Next i End If End with End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email