Για να γράψετε σε ένα αρχείο word χρησιμοποιώντας το Excel πρέπει να έχουμε πρόσβαση στη εφαρμογή λέξεων χρησιμοποιώντας το Excel VBA. Σε αυτό το σεμινάριο θα μάθουμε πώς να ανοίγουμε μια εφαρμογή λέξεων, να προσθέτουμε ένα έγγραφο και να γράφουμε περιεχόμενο σε αυτό χρησιμοποιώντας το Excel.
Έχουμε μάθει για τη μέθοδο CreateObject. Σε αυτό το άρθρο, θα χρησιμοποιήσουμε αυτήν τη μέθοδο για να δημιουργήσουμε ένα αντικείμενο εφαρμογής λέξεων αντί να χρησιμοποιήσουμε την αναφορά του. Ας ξεκινήσουμε λοιπόν με το σεμινάριο.
Η διαδικασία γραφής σε αρχείο Word χρησιμοποιώντας Excel VBA
Για να γράψουμε ένα αρχείο word χρησιμοποιώντας το VBA, πρέπει πρώτα να ανοίξουμε φυσικά την εφαρμογή Word. Στη συνέχεια, προσθέστε ένα έγγραφο σε αυτό. Επιλέξτε την παράγραφο και γράψτε το κείμενο σε αυτήν. Κάθε ένα από αυτά τα βήματα μπορεί να γίνει εύκολα από το Excel. Δεν θα χρειαστεί να αλληλεπιδράσετε με το έγγραφο του Word.
Ας ξεκινήσουμε με ένα παράδειγμα χωρίς να προχωρήσουμε περαιτέρω στη θεωρία. Επειδή ο Iron Man είπε, "Μερικές φορές πρέπει να τρέξεις πριν προχωρήσεις".
Παράδειγμα 1: Γράψτε μια δεδομένη συμβολοσειρά σε ένα έγγραφο Word από το Excel
Sub WriteToWord () '' Using Early Binding 'Dim wordApp As Word.Application' Dim mydoc As Word.Document 'set wordApp = new word.Application' Using dereng binding to create word word object 'Δήλωση μεταβλητών ως αντικειμένων Dim wordApp As Object Dim mydoc As Object 'Αρχικοποίηση του αντικειμένου χρησιμοποιώντας τη λειτουργία CreateOBject Set wordApp = CreateObject ("Word.Application")' Making word App Visible wordApp.Visible = True 'Δημιουργία νέου εγγράφου Ρύθμιση mydoc = wordApp.Documents.Add ()' Λήψη εισόδου από χρήστη myString = Application.InputBox ("Γράψτε το κείμενό σας") 'Γράψιμο στη λέξη wordApp.Selection.TypeText Text: = myString' εισαγωγή νέας παραγράφου wordApp.Selection.TypeParagraph Τέλος υπο
Επεξήγηση του Κώδικα:
Λοιπόν, έχω εξηγήσει κάθε βήμα στον ίδιο τον κώδικα χρησιμοποιώντας σχόλια, αλλά ας πούμε λίγα λόγια για τις γραμμές που χρησιμοποιήσαμε σε αυτό το υποσύνολο.
Έτσι, αυτός ο κώδικας VBA λαμβάνει πληροφορίες από τον χρήστη και γράφει σε ένα νέο έγγραφο word.
Οι πρώτες γραμμές σχολιάζονται. Αυτές οι γραμμές χρησιμοποιούν Late binding. Εάν έχετε δώσει αναφορά στη λέξη εφαρμογή, μπορείτε να καταργήσετε την ετικέτα σχολιασμού. Ο κώδικας που επεξεργαζόμαστε χρησιμοποιεί καθυστερημένη σύνδεση. Το έχω εξηγήσει σε αυτό το άρθρο. Μπορείτε να ανατρέξετε σε αυτό για να καταλάβετε τι είναι η καθυστερημένη δέσμευση και η πρώιμη δέσμευση στο Excel VBA.
«Δήλωση μεταβλητών ως αντικειμένων
Dim wordApp ως αντικείμενο
Dim mydoc Ως αντικείμενο
Εδώ έχουμε δηλώσει δύο μεταβλητές τύπου Object. Η μεταβλητή τύπου αντικειμένου μπορεί να κρατήσει οποιοδήποτε τύπο αντικειμένου.
'Εκκίνηση του αντικειμένου χρησιμοποιώντας τη συνάρτηση CreateOBject
Ορισμός wordApp = CreateObject ("Word.Application")
«Κάνοντας την εφαρμογή λέξεων ορατή
wordApp.Visible = True
«Δημιουργία νέου εγγράφου
Ορισμός mydoc = wordApp.Documents.Add ()
Στην πρώτη γραμμή παραπάνω, σκοπεύουμε τη μεταβλητή wordApp με ένα αντικείμενο τύπου Word.App χρησιμοποιώντας τη μέθοδο CreateObject. Αυτό θα ανοίξει την εφαρμογή Word.
Στη δεύτερη γραμμή κάνουμε ορατή τη λέξη εφαρμογή, ώστε να μπορούμε να δουλέψουμε μαζί της.
Στην επόμενη γραμμή, προσθέτουμε ένα νέο έγγραφο στη λέξη εφαρμογή χρησιμοποιώντας τη συνάρτηση Word.Documents.Add (). Αυτό αποθηκεύεται στη μεταβλητή mydoc.
«Λήψη εισόδου από τον χρήστη
myString = Application.InputBox ("Γράψτε το κείμενό σας")
Εδώ παίρνουμε απλώς είσοδο από τον χρήστη χρησιμοποιώντας τη συνάρτηση InputBox της Εφαρμογής Class. Και αποθηκεύουμε την είσοδο στη μεταβλητή mystring.
«Γράφοντας με λέξη
wordApp.Selection.TypeText Κείμενο: = myString
«εισαγωγή νέας παραγράφου
wordApp.Selection.TypeParagraph
Τέλος, χρησιμοποιούμε τη μέθοδο TypeText του Word Application.Selection class για να γράψουμε στο έγγραφο. Η τελευταία γραμμή εισάγει μια νέα παράγραφο.
Λοιπόν, ναι, έτσι μπορείτε να δημιουργήσετε ένα νέο έγγραφο του Word και να το γράψετε χρησιμοποιώντας το Excel VBA. Δεν έχω αναφερθεί σε λεπτομέρειες καθώς θα έκανε το άρθρο εξαντλητικά μακρύ. Αυτό έγινε μόνο για να μάθετε πώς μπορείτε να γράψετε σε ένα έγγραφο word μέσω Excel. Ελπίζω να σας βοήθησε να καταλάβετε τη διαδικασία. Εάν έχετε οποιεσδήποτε ερωτήσεις σχετικά με αυτό το άρθρο, μπορείτε να επικοινωνήσετε μαζί μου μέσω της παρακάτω ενότητας σχολίων.
Ξεκινώντας με το Excel VBA UserForms| Θα εξηγήσω πώς να δημιουργήσετε μια φόρμα στο excel, πώς να χρησιμοποιήσετε την εργαλειοθήκη VBA, πώς να χειριστείτε τις εισόδους των χρηστών και τέλος πώς να αποθηκεύσετε τις εισόδους των χρηστών. Θα εξετάσουμε αυτά τα θέματα χρησιμοποιώντας ένα παράδειγμα και βήμα προς βήμα οδηγό.
Μεταβλητές VBA στο Excel| Το VBA σημαίνει Visual Basic for Applications. Είναι μια γλώσσα προγραμματισμού από τη Microsoft. Χρησιμοποιείται με εφαρμογές του Microsoft Office, όπως MSExcel, MS-Word και MS-Access, ενώ οι μεταβλητές VBA είναι συγκεκριμένες λέξεις-κλειδιά.
Πεδίο μεταβλητής Excel VBA| Σε όλες τις γλώσσες προγραμματισμού, έχουμε προσδιοριστές μεταβλητής πρόσβασης που ορίζουν από πού μπορεί να έχει πρόσβαση μια καθορισμένη μεταβλητή. Το Excel VBA δεν αποτελεί εξαίρεση. Το VBA έχει επίσης προσδιοριστικά πεδίου.
Επιχειρήματα ByRef και ByVal | Όταν ένα όρισμα μεταβιβάζεται ως όρισμα ByRef σε διαφορετικό υποσύστημα ή συνάρτηση, αποστέλλεται η αναφορά της πραγματικής μεταβλητής. Τυχόν αλλαγές που γίνονται στο αντίγραφο της μεταβλητής, θα αντικατοπτρίζονται στο αρχικό όρισμα.
Διαγράψτε φύλλα χωρίς προτροπές επιβεβαίωσης χρησιμοποιώντας VBA στο Microsoft Excel | Δεδομένου ότι διαγράφετε φύλλα χρησιμοποιώντας VBA, γνωρίζετε τι κάνετε. Θα θέλατε να πείτε στο Excel να μην εμφανίζει αυτήν την προειδοποίηση και να διαγράψει το καταραμένο φύλλο.
Προσθήκη και αποθήκευση νέου βιβλίου εργασίας χρησιμοποιώντας το VBA στο Microsoft Excel 2016| Σε αυτόν τον κώδικα, δημιουργήσαμε πρώτα μια αναφορά σε ένα αντικείμενο βιβλίου εργασίας. Και στη συνέχεια το αρχικοποιήσαμε με ένα νέο αντικείμενο βιβλίου εργασίας. Το πλεονέκτημα αυτής της προσέγγισης είναι ότι μπορείτε να κάνετε εύκολα λειτουργίες σε αυτό το νέο βιβλίο εργασίας. Όπως αποθήκευση, κλείσιμο, διαγραφή κλπ
Εμφάνιση μηνύματος στη γραμμή κατάστασης του Excel VBA| Η γραμμή κατάστασης στο excel μπορεί να χρησιμοποιηθεί ως οθόνη κώδικα. Όταν ο κώδικας VBA είναι μεγάλος και εκτελείτε πολλές εργασίες χρησιμοποιώντας το VBA, συχνά απενεργοποιείτε την ενημέρωση της οθόνης, έτσι ώστε να μην βλέπετε αυτήν την οθόνη να τρεμοπαίζει.
Απενεργοποιήστε τα μηνύματα προειδοποίησης χρησιμοποιώντας το VBA στο Microsoft Excel 2016| Αυτός ο κώδικας όχι μόνο απενεργοποιεί τις ειδοποιήσεις VBA αλλά επίσης αυξάνει την αποδοτικότητα χρόνου του κώδικα. Ας δούμε πώς.
Δημοφιλή άρθρα:
50 συντομεύσεις Excel για να αυξήσετε την παραγωγικότητά σας | Γίνετε πιο γρήγοροι στην εργασία σας. Αυτές οι 50 συντομεύσεις θα σας κάνουν να εργάζεστε ακόμη πιο γρήγορα στο Excel.
Η συνάρτηση VLOOKUP στο Excel | Αυτή είναι μια από τις πιο δημοφιλείς και δημοφιλείς λειτουργίες του excel που χρησιμοποιείται για την αναζήτηση τιμών από διαφορετικά εύρη και φύλλα.
COUNTIF στο Excel 2016 | Μετρήστε τιμές με συνθήκες χρησιμοποιώντας αυτήν την εκπληκτική συνάρτηση. Δεν χρειάζεται να φιλτράρετε τα δεδομένα σας για να μετρήσετε συγκεκριμένες τιμές. Η λειτουργία Countif είναι απαραίτητη για την προετοιμασία του ταμπλό σας.
Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel | Αυτή είναι μια άλλη βασική λειτουργία του ταμπλό. Αυτό σας βοηθά να συνοψίσετε τιμές υπό συγκεκριμένες συνθήκες.