Εάν χρειάζεται να εκτυπώσετε από πολλά βιβλία εργασίας του Excel σε έναν κατάλογο, μπορείτε να χρησιμοποιήσετε τη μακροεντολή που παρουσιάζεται εδώ για να τα εκτυπώσετε όλα ταυτόχρονα.
Πώς λειτουργεί η μακροεντολή
Σε αυτήν τη μακροεντολή, χρησιμοποιείτε τη συνάρτηση Dir για να επιστρέψετε μια συμβολοσειρά που αντιπροσωπεύει το όνομα του αρχείου που ταιριάζει με αυτό που μεταβιβάζετε σε αυτό.
Χρησιμοποιείτε τη συνάρτηση Dir για να απαριθμήσετε όλα τα αρχεία .xlsx σε έναν δεδομένο κατάλογο, καταγράφοντας το όνομα κάθε αρχείου. Στη συνέχεια ανοίγετε κάθε αρχείο, το εκτυπώνετε και μετά το κλείνετε.
Sub Macro1()
'Βήμα 1: Δηλώστε τις μεταβλητές σας
Dim MyFiles ως συμβολοσειρά
'Βήμα 2: Καθορίστε έναν κατάλογο προορισμού
MyFiles = Dir("C:Temp*.xlsx")
Do while MyFiles <> "
'Βήμα 3: Ανοίξτε τα βιβλία εργασίας ένα προς ένα
Βιβλία εργασίας. Ανοίξτε τα "C:Temp" & MyFiles