Πώς μπορείτε να δημιουργήσετε μια μακροεντολή στο Excel που εξοικονομεί το βιβλίο εργασίας εισοδήματος και στη συνέχεια δημιουργεί νέα κάθε εβδομάδα;

Αυτή η μακροεντολή VBA θα αποθηκεύσει το τρέχον βιβλίο εργασίας και στη συνέχεια θα δημιουργήσει ένα νέο βιβλίο εργασίας με ένα όνομα αρχείου που βασίζεται σε ημερομηνία για τη νέα εβδομάδα. Χειρίζεται τα πιθανά σφάλματα χαριτωμένα.

`` `vba

Sub SaveAndCreatEnewWeeklyWorkBook ()

Dim WB ως βιβλίο εργασίας

Dim NewWB ως βιβλίο εργασίας

Dim StrfileName ως συμβολοσειρά

Dim StrfilePath ως συμβολοσειρά

Dim DT ως ημερομηνία

«Αποκτήστε το τρέχον βιβλίο εργασίας

Ορίστε WB =αυτό το βιβλίο εργασίας

«Αποκτήστε την τρέχουσα ημερομηνία

dt =ημερομηνία

«Υπολογίστε την ημερομηνία έναρξης της τρέχουσας εβδομάδας (Κυριακή)

DT =DT - Ημέρα της εβδομάδας (DT, VBSUNDAY) + 1

«Μορφή Η ημερομηνία για το όνομα αρχείου (yyyy-mm-dd)

strfileName =format (dt, "yyyy-mm-dd") &"εισόδημα.xlsx"

'Καθορίστε τη διαδρομή αρχείου (αλλάξτε αυτό στην επιθυμητή τοποθεσία)

strfilepath ="c:\ \ \ file \ path \" <--- Αλλάξτε αυτό στην επιθυμητή διαδρομή σας

«Πλήρης διαδρομή αρχείου

strfilepath =strfilepath &strfileName

Αποθηκεύστε το τρέχον βιβλίο εργασίας

Στο σφάλμα συνεχίστε τα επόμενα «χειριστήρια πιθανών σφαλμάτων κατά τη διάρκεια της αποθήκευσης

WB.SAVEEAS FILENAME:=strfilepath, fileformat:=xlopenxmlworkbook

Εάν err.number <> 0 τότε

Msgbox "Εργασία σφαλμάτων Εργασία:" &err.description, vbcritical

Έξοδος υπο -

Τέλος εάν

Στο σφάλμα Goto 0

«Δημιουργήστε ένα νέο βιβλίο εργασίας

Ορίστε newwb =workbooks.add

Αποθηκεύστε το νέο βιβλίο εργασίας με την ίδια διαδρομή αρχείου, αλλά μια διαφορετική ημερομηνία

dt =dt + 7 'Ημερομηνία της επόμενης εβδομάδας

strfileName =format (dt, "yyyy-mm-dd") &"εισόδημα.xlsx"

strfilepath ="c:\ \ \ file \ path \" &strfileName '<--- Αλλάξτε αυτό στην επιθυμητή διαδρομή σας

Στο σφάλμα συνεχίστε στη συνέχεια

NewWb.SAveas FileName:=strfilepath, fileformat:=xlopenxmlworkbook

Εάν err.number <> 0 τότε

Msgbox "Σφάλμα Δημιουργία νέου βιβλίου εργασίας:" &err.description, vbcritical

newwb.close savechanges:=false 'Κλείσιμο χωρίς αποθήκευση εάν εμφανιστεί σφάλμα

Έξοδος υπο -

Τέλος εάν

Στο σφάλμα Goto 0

'Προαιρετικό:Προσθέστε ένα πλαίσιο μηνύματος για επιβεβαίωση ολοκλήρωσης.

Msgbox "Το βιβλίο εργασίας αποθηκεύτηκε και το νέο εβδομαδιαίο βιβλίο εργασίας που δημιουργήθηκε.", VBINFormation

Τερματισμός

`` `

πριν από την εκτέλεση:

1. Απολύτως κρίσιμο Για να αντικαταστήσετε αυτό το σύμβολο κράτησης θέσης με την πραγματική διαδρομή φακέλου όπου θέλετε να αποθηκεύσετε τα αρχεία του Excel. Οι λανθασμένες διαδρομές θα οδηγήσουν σε σφάλματα. Βεβαιωθείτε ότι ο φάκελος υπάρχει.

2. Ανοίξτε το VBA Editor: Στο Excel, πατήστε ALT + F11 για να ανοίξετε τον επεξεργαστή VBA.

3. Εισαγάγετε μια ενότητα: Στον επεξεργαστή VBA, μεταβείτε στο Insert> Module.

4. Επικολλήστε τον κωδικό: Επικολλήστε ολόκληρο τον κώδικα στη μονάδα.

5. Εκτελέστε τη μακροεντολή: Επιστρέψτε στο Excel και εκτελέστε τη μακροεντολή (ίσως χρειαστεί να το αντιστοιχίσετε σε ένα κουμπί ή να το εκτελέσετε από την καρτέλα προγραμματιστή> μακροεντολές).

Πώς λειτουργεί:

* Αποθηκεύει το τρέχον βιβλίο εργασίας: Ο κώδικας αποθηκεύει πρώτα το ενεργό βιβλίο εργασίας χρησιμοποιώντας ένα όνομα αρχείου με βάση την ημερομηνία έναρξης της τρέχουσας εβδομάδας (Κυριακή).

* Δημιουργεί ένα νέο βιβλίο εργασίας: Στη συνέχεια προσθέτει ένα νέο, κενό βιβλίο εργασίας.

* ονόματα και αποθηκεύει το νέο βιβλίο εργασίας: Το νέο βιβλίο εργασίας αποθηκεύεται με όνομα αρχείου με βάση την ημερομηνία εκκίνησης της επόμενης εβδομάδας.

* Χειρισμός σφαλμάτων: Το `on error resume resume 'και οι δηλώσεις ελέγχου σφαλμάτων εμποδίζουν τη μακροεντολή να συντρίψει εάν υπάρχουν προβλήματα εξοικονόμησης αρχείων (π.χ. ανεπαρκή δικαιώματα, υπάρχει ήδη αρχείο). Παρέχει ενημερωτικά μηνύματα σφάλματος.

* Μορφή αρχείου: Το «Xlopenxmlworkbook» εξασφαλίζει τη συμβατότητα με τις σύγχρονες εκδόσεις του Excel (.xlsx).

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