Πώς να μετατρέψει όλα τα φύλλα του Excel σε CSV με Μακροεντολές

Στο Microsoft Excel , μπορείτε εύκολα να μετατρέψετε ένα βιβλίο εργασίας σε CSV επιλέγοντας τον κατάλληλο τύπο αρχείου στο " Αποθήκευση ως " παράθυρο διαλόγου . Χρησιμοποιώντας αυτή τη μέθοδο , μόνο το ενεργό φύλλο θα μετατραπεί . Αυτό συμβαίνει επειδή τα αρχεία CSV μπορεί να περιέχει μόνο ένα φύλλο . Για να μετατρέψετε πολλαπλά φύλλα σε CSV , θα πρέπει να τις εξάγουμε ένα προς ένα . Αυτό συνεπάγεται την ενεργοποίηση κάθε φύλλο , μετακινώντας το σε ένα άδειο βιβλίο εργασίας και , στη συνέχεια, να το αποθηκεύσετε ως αρχείο CSV . Για να γίνει αυτό το έργο πιο εύκολο και πιο βολικό , χρησιμοποιείτε μακροεντολές . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Excel και ανοίξτε το βιβλίο εργασίας σας . 2

Πατήστε το πλήκτρο " ALT + F8 " για να ανοίξετε το παράθυρο Μακροεντολές . Πληκτρολογήστε " ExportSheetsToCSV " στο πλαίσιο Όνομα μακροεντολής και στη συνέχεια κάντε κλικ στο "Δημιουργία ".
Εικόνων 3

Εισάγετε τον παρακάτω κώδικα στο πρόγραμμα επεξεργασίας VBA . Αυτή η μακροεντολή θα δημιουργήσει τα αρχεία CSV στον ίδιο φάκελο με το βιβλίο εργασίας σας, χρησιμοποιώντας ονόματα των φύλλων για τα ονόματα των αρχείων .

Sub ExportSheetsToCSV ( )

Dim wSheet Όπως Φύλλο

Dim csvFile Όπως String

για κάθε wSheet Σε Φύλλα

On Error Resume Next

wSheet.Copy

csvFile = CurDir & "\\" & wSheet.Name & " . csv "

ActiveWorkbook.SaveAs αρχείου : = csvFile , _

Μορφών Κειμένου : = xlCSV , CreateBackup : = False

ActiveWorkbook.Saved = True

ActiveWorkbook.Close

Επόμενο wSheet

End Sub
Η

4 Κλείστε το edit VBA για να επιστρέψετε στο βιβλίο εργασίας σας .
5

Πατήστε το πλήκτρο " ALT + F8" ξανά για να ανοίξετε το παράθυρο Μακροεντολές . Επιλέξτε " ExportSheetsToCSV " από τη λίστα και στη συνέχεια κάντε κλικ στο " Run". Περιμένετε για το Excel για να ολοκληρώσετε τη μετατροπή των φύλλων .
Η
εικόνων