Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Εκτύπωση] Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5021-aytomati-ektiposi-pollon-arxeion-excel-me-perissotera-apo-ena-filla-ana-arxeio.html)

BizosDim 16-09-18 16:49

Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο
 
1 Συνημμένο(α)
καλησπέρα στο forum,

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

Ευχαριστώ εκ των προτέρων
Δημήτρης

ExcelTech 09-10-18 11:13

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


Η ώρα είναι 15:12.

Ms-Office.gr - ©2000 - 2021, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2