Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για την αποστολή ενός φύλλου ως συνημμένου σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου.
Πριν από την εκτέλεση της μακροεντολής, πρέπει να καθορίσουμε ένα αναγνωριστικό email και το θέμα του email.
Σε αυτό το παράδειγμα, θέλουμε να στείλουμε το "DataSheet" ως συνημμένο στο email.
Λογική εξήγηση
Δημιουργήσαμε τη μακροεντολή "MailSheet", η οποία λαμβάνει το αναγνωριστικό email και το θέμα του email από τα πλαίσια κειμένου. Δημιουργεί ένα νέο αντίγραφο του "DataSheet", το αποθηκεύει και το στέλνει ως συνημμένο.
Επεξήγηση κώδικα
Φύλλα ("DataSheet"). Αντιγραφή
Ο παραπάνω κώδικας χρησιμοποιείται για τη δημιουργία ενός αντιγράφου του "DataSheet" σε ένα νέο βιβλίο εργασίας.
ActiveWorkbook.SaveAs "Part of" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Ο παραπάνω κώδικας χρησιμοποιείται για την αποθήκευση του νέου βιβλίου εργασίας.
ActiveWorkbook.SendMail EmailID, MailSubject
Ο παραπάνω κώδικας χρησιμοποιείται για την αποστολή του ενεργού βιβλίου εργασίας ως συνημμένου στο καθορισμένο αναγνωριστικό email, με το συγκεκριμένο θέμα.
ActiveWorkbook.Close False
Ο παραπάνω κώδικας χρησιμοποιείται για να κλείσει το ενεργό βιβλίο εργασίας χωρίς να το αποθηκεύσει.
Ακολουθήστε παρακάτω για τον κωδικό
Sub MailSheet () 'Δήλωση μεταβλητών Dim StrDate, EmailID, MailSubject As String' Λήψη τιμής για το αναγνωριστικό ηλεκτρονικού ταχυδρομείου και το θέμα από γραμματοκιβώτια EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Αντιγραφή "DataSheet" σε νέα φύλλα βιβλίων εργασίας (" DataSheet "). Αντιγράψτε" Μορφοποίηση ημερομηνίας και ώρας σε συγκεκριμένη μορφή StrDate = Μορφή (Ημερομηνία, "dd-mm-yy") & "" & Format (Time, "h-mm") 'Αποθήκευση ενεργού βιβλίου εργασίας με νέο όνομα ActiveWorkbook. SaveAs "Part of" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Sending mail ActiveWorkbook.SendMail EmailID, MailSubject' Close the active workbook ActiveWorkbook.Close False End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email