Καταγράψτε αρχεία χρησιμοποιώντας VBA στο Microsoft Excel

Anonim

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

Εξετάστε ένα σενάριο, η εφαρμογή καταγράφει τα στοιχεία χρήστη στο αρχείο καταγραφής που έχουν πρόσβαση στην εφαρμογή.

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

Ερώτηση: Πώς μπορώ να δημιουργήσω ένα αρχείο σημειωματάριου που περιέχει την τρέχουσα ημερομηνία, ώρα και όνομα χρήστη κάθε φορά που ανοίγει το αρχείο;

Ακολουθεί το στιγμιότυπο του βιβλίου εργασίας του Excel που περιέχει οικονομικές πληροφορίες:

Σε αυτό το παράδειγμα, το αποτέλεσμα θα έχει τη μορφή αρχείου κειμένου. Το σημειωματάριο θα περιέχει ημερομηνία, ώρα και άλλες λεπτομέρειες. κάπως έτσι:

Για να δημιουργήσουμε αρχεία καταγραφής, πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB:

  • Κάντε κλικ στην καρτέλα Προγραμματιστής
  • Από την ομάδα κώδικα επιλέξτε Visual Basic

  • Κάντε κλικ στην επιλογή Εισαγωγή και στη συνέχεια ενότητα

  • Αυτό θα δημιουργήσει νέα ενότητα
  • Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα
 Sub LogInformation (LogMessage As String) Const LogFileName As String = "D: \ FOLDERNAME \ TEXTFILE.LOG" Dim FileNum As Integer FileNum = FreeFile 'next number file Open Open LogFileName For Append As #FileNum' δημιουργεί το αρχείο αν δεν υπάρχει Εκτύπωση #FileNum, LogMessage 'εγγραφή πληροφοριών στο τέλος του αρχείου κειμένου Κλείσιμο #FileNum' κλείσιμο του αρχείου Τέλος υπο 
 Public Sub DisplayLastLogInformation () Const LogFileName As String = "D: \ FOLDERNAME \ TEXTFILE.LOG" Dim FileNum As Integer, tLine As String FileNum = FreeFile 'next number file Open Open LogFileName For Input Access Read Shared Shared as #f' open the file for ανάγνωση Do While Not EOF (FileNum) Line Input #FileNum, tLine 'read a line from the text text Loop' (μέχρι να διαβαστεί η τελευταία γραμμή Κλείσιμο #FileNum 'κλείστε το αρχείο MsgBox tLine, vbInformation, "Last log information:" End Sub 
 Sub DeleteLogFile (FullFileName As String) On Error Resume Next 'αγνοήστε πιθανά σφάλματα Kill FullFileName' διαγράψτε το αρχείο εάν υπάρχει και είναι πιθανό On Error GoTo 0 'break on σφάλματα End Sub

Αντιγράψτε τον ακόλουθο κώδικα στη μονάδα ThisWorkbook

 Private Sub Workbook_Open () LogInformation ThisWorkbook.Name & "open by" & _ Application.UserName & "" & Format (Now, "yyyy-mm-dh hh: mm") End Sub

  • Τώρα ο κώδικας VBA είναι έτοιμος να ξεκινήσει. την επόμενη φορά που θα ανοίξουμε το βιβλίο εργασίας excel η ημερομηνία και η ώρα θα αποθηκευτούν στο σημειωματάριο. ανατρέξτε στην παρακάτω εικόνα:

Η μακροεντολή δεν θα αντικαταστήσει δεδομένα.

Συμπέρασμα: Η μακροεντολή θα εκτελείται κάθε φορά που το βιβλίο εργασίας ανοίγει σε καθορισμένη διαδρομή και φάκελο.

Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.

Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email