Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Εκτύπωση] Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 16-09-18, 16:49
Όνομα: ΔημήτρηςΑγρ
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 30-03-2017
Περιοχή: Αγρίνιο
Μηνύματα: 29
Προεπιλογή Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο

καλησπέρα στο forum,

στη προσπάθεια να συντομεύσω την εργασία μου προσπαθώ να βρω τρόπο να εκτυπώνω αρχεία excel, τα οποία βρίσκονται σε ένα φάκελο, χωρίς να χρειάζεται να τα ανοίγω ένα ένα. Ειδικότερα στο επισυναπτόμενο αρχείο υπάρχουν 5 αρχεία excel, καθένα από τα οποία έχει δύο φύλλα. Θα ήθελα έναν αυτοματοποιημένο τρόπο ώστε να εκτυπώνεται κάθε αρχείο σε ένα φύλλο (μπρος πίσω). Αν δε γίνεται μπρος πίσω έστω και σε 2 φύλλα το κάθε αρχείο.

Ευχαριστώ εκ των προτέρων
Δημήτρης
Συνημμένα Αρχεία
Τύπος Αρχείου: zip enstaseis.zip (58,2 KB, 7 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 09-10-18, 11:13
Όνομα: Θωμάς
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-10-2018
Μηνύματα: 3
Προεπιλογή

Γεια σου Δημήτρη, αν γνωρίζεις από μακροεντολές, και με την προϋπόθεση ότι όλα τα αρχεία σου έχουν πάντα 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
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός 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


Η ώρα είναι 21:48.