Αντιγράψτε πληροφορίες φύλλου εργασίας στο Word χρησιμοποιώντας VBA στο Microsoft Excel

Anonim

Εάν απαιτείται να αντιγράψετε και να επικολλήσετε δεδομένα από πολλά φύλλα εργασίας Excel στο MS Word, θα πρέπει να διαβάσετε αυτό το άρθρο. Στο Excel, δεν υπάρχει τέτοια δυνατότητα που θα μπορούσε να σας επιτρέψει να μετατρέψετε τα δεδομένα από το βιβλίο εργασίας του Excel σε αρχείο word. Η εφαρμογή Word δεν μπορεί να ανοίξει άμεσα αρχεία excel. Ωστόσο, τα δεδομένα Excel μπορούν να αντιγραφούν και να επικολληθούν σε word και στη συνέχεια να αποθηκευτούν ως έγγραφο word.
Όλοι μεταφέρουμε δεδομένα από το excel σε λέξη χειροκίνητα, κάτι που γίνεται κουραστικό μερικές φορές όταν πρόκειται να εκτελέσουμε τα ίδια βήματα πάρα πολλές φορές μέσα στην ημέρα. για να αποφύγουμε τα χειροκίνητα βήματα, θα γράψουμε κώδικα VBA για να κάνουμε όλα τα βήματα.

Σε αυτό το άρθρο, θα εστιάσουμε στη μεταφορά δεδομένων από έγγραφο excel σε έγγραφο word. Θα αυτοματοποιήσουμε ολόκληρη τη διαδικασία μέσω κώδικα VBA. Με τον κώδικα μακροεντολής, μπορείτε απλά να αντιγράψετε τα δεδομένα σε ένα φύλλο εργασίας ταυτόχρονα και, στη συνέχεια, η εφαρμογή λέξεων θα ξεκινήσει αυτόματα και ο κώδικας VBA θα χρησιμοποιήσει την εντολή επικόλλησης για να εισαγάγει τα δεδομένα στο αρχείο doc.

Για να πάρετε τον κωδικό? πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB:

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

  • Υπάρχει ένα σημαντικό βήμα που δεν πρέπει να χάσετε
  • Κάντε κλικ στα Εργαλεία για να επιλέξετε Αναφορές
  • Κάντε κύλιση προς τα κάτω μέχρι να βρείτε το "Microsoft Word 15.0 Object Library"
  • Βεβαιωθείτε ότι έχετε επιλέξει το πλαίσιο. ανατρέξτε στην παρακάτω εικόνα

  • Αντιγράψτε τον παρακάτω κώδικα στην τυπική μονάδα
Sub CopyWorksheetsToWord () Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet Application.ScreenUpdating = False Application.StatusBar = "Δημιουργία νέου εγγράφου …" Ορισμός wdApp = Νέο Word.Application Set wdDoc = wdApp. Για κάθε ws In ActiveWorkbook.Worksheets Application.StatusBar = "Αντιγραφή δεδομένων από" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter wdDoc.Paragraphs (wdDoc.Paragraphs (wdDoc.Paragraphs) .Count) .Range.Paste Application.CutCopyMode = False wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter If Not ws.Name = Worksheets (Worksheets.Count) .Name Then With wdDoc.Paragraphs (wdDoc.Paragraph Count) .Range .InsertParagraphBefore .Collapse Direction: = wdCollapseEnd .InsertBreak Type: = wdPageBreak End With End If Next ws Set ws = Nothing Application.StatusBar = "Cleaning up …" With wdApp.ActiveWindow If .View.SplitSone = wd ActivePane.View.Type = wdNormalView Else .View.Type = wdNormalView Τέλος αν τελειώσει με ρύθμιση wdDoc = Τίποτα wdApp.Visible = True Set wdApp = Τίποτα Application.StatusBar = False End Sub 

Για να δοκιμάσετε τον κώδικα, ας εισαγάγουμε 2 φύλλα και προσθέτουμε τυχαίους αριθμούς. Ακολουθεί το στιγμιότυπο και των δύο φύλλων εργασίας:

1ο Φύλλο:-

2ο Φύλλο:-

  • Μετά τη ρύθμιση των δεδομένων σε φύλλα εργασίας. μπορούμε να τρέξουμε τη μακροεντολή
  • Η εφαρμογή Word θα ξεκινήσει αμέσως και τα δεδομένα θα αντιγραφούν από όλα τα φύλλα εργασίας σε word. ανατρέξτε παρακάτω στιγμιότυπο

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

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

Συμπέρασμα: Με αυτόν τον τρόπο, μπορούμε να βοηθήσουμε πολλούς χρήστες του Microsoft Office που πιστεύουν ότι η μετατροπή δεδομένων από το αρχείο excel σε word είναι λίγο περίπλοκη ή αδύνατη. Ο παραπάνω κώδικας απέδειξε πόσο εύκολα μπορεί κανείς να αντιγράψει και να επικολλήσει δεδομένα σε αρχείο word χωρίς καμία αναστάτωση από πολλά φύλλα excel σε αρχείο doc word.

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

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