Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
![]() |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
![]()
καλησπέρα στο forum, στη προσπάθεια να συντομεύσω την εργασία μου προσπαθώ να βρω τρόπο να εκτυπώνω αρχεία excel, τα οποία βρίσκονται σε ένα φάκελο, χωρίς να χρειάζεται να τα ανοίγω ένα ένα. Ειδικότερα στο επισυναπτόμενο αρχείο υπάρχουν 5 αρχεία excel, καθένα από τα οποία έχει δύο φύλλα. Θα ήθελα έναν αυτοματοποιημένο τρόπο ώστε να εκτυπώνεται κάθε αρχείο σε ένα φύλλο (μπρος πίσω). Αν δε γίνεται μπρος πίσω έστω και σε 2 φύλλα το κάθε αρχείο. Ευχαριστώ εκ των προτέρων Δημήτρης |
#2
| |||
| |||
![]()
Γεια σου Δημήτρη, αν γνωρίζεις από μακροεντολές, και με την προϋπόθεση ότι όλα τα αρχεία σου έχουν πάντα 2 φύλλα, ο παρακάτω κώδικας θα σε βοηθήσει να πετύχεις αυτό που ψάχνεις: Sub PrintAll() Dim MyFiles As String MyFiles = Dir("C:\Temp\*.xlsx") '<- εδώ ορίζεις τη διαδρομή για τον φάκελο που περιέχει τα αρχεία προς εκτύπωση καθώς και την κατάληξη των αρχείων Do While MyFiles <> "" Workbooks.Open "C:\Temp\" & MyFiles '<- η διαδρομή για τον φάκελο αρχείων μπαίνει και εδώ ActiveWorkbook.Sheets(1).PrintOut Copies:=1 ActiveWorkbook.Sheets(2).PrintOut Copies:=1 ActiveWorkbook.Close SaveChanges:=False MyFiles = Dir Loop End Sub |
![]() |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
| ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Excel07] Ενοποίηση αρχείων excel-αυτόματη ενημέρωση | ΧΟΥ | Excel - Ερωτήσεις / Απαντήσεις | 5 | 18-02-13 00:46 |
[Συναρτήσεις] Αναζήτηση σε περισσότερα φύλλα εργασίας | Βασίλης Καραχάλιος | Excel - Ερωτήσεις / Απαντήσεις | 6 | 24-06-12 10:21 |
[Εκτύπωση] Εκτύπωση πολλών αρχείων, πολλών επιλογών | mak | Excel - Ερωτήσεις / Απαντήσεις | 7 | 11-06-12 13:34 |
[Γενικά] Αναζήτηση σε περισσότερα φύλλα εργασίας | Tasos | Excel samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 05-09-11 23:46 |
[Συναρτήσεις] Αναζήτηση σε περισσότερα φύλλα με τύπο | Aris | Excel - Ερωτήσεις / Απαντήσεις | 7 | 05-09-11 19:43 |
Η ώρα είναι 23:56.