Σε αυτό το άρθρο, είμαστε στην ευχάριστη θέση να σας προσφέρουμε τον τρόπο μετατροπής του φύλλου εργασίας του Excel σε εγγενή πίνακα Word μέσω VBA.
Τα αρχεία του Office έχουν διάφορες μορφές. Κατά καιρούς, θα χρειαστεί να μετατρέψετε αρχεία από τη μία μορφή στην άλλη. Για παράδειγμα, η μετατροπή μεταξύ αρχείου Excel και εγγράφου Word είναι μια από τις πιο απαιτητικές. Μάλιστα, έχουμε συζητήσει αυτό το θέμα σε ένα από τα προηγούμενα άρθρα μας: 5 εύκολοι τρόποι μεταφοράς δεδομένων πίνακα Excel στο Word σας
Σήμερα, υπάρχει ένας πολύ πιο γρήγορος τρόπος μακροεντολής για την εξαγωγή του βιβλίου εργασίας του Excel σε ένα έγγραφο του Word. Και όλα τα περιεχόμενα ενός φύλλου εργασίας θα μετατραπούν σε έναν εγγενή πίνακα του Word.
Εγκαταστήστε και εκτελέστε τη μακροεντολή του Word
Θα εκτελέσουμε τη μακροεντολή στο Word. Δεδομένου ότι ένα μέρος των κωδίκων στη μακροεντολή περιλαμβάνει την ενεργοποίηση ενός αντικειμένου του Excel, πρέπει να προσθέσετε μια αναφορά σε μια βιβλιοθήκη αντικειμένων.
- Πρώτα απ 'όλα, ανοίξτε ένα νέο κενό έγγραφο του Word.
- Και πατήστε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA στο Word.
- Στη συνέχεια, κάντε κλικ στο "Normal" στην αριστερή στήλη.
- Στη συνέχεια κάντε κλικ στο "Εισαγωγή" και επιλέξτε "Ενότητα".
- Τώρα έχετε μια νέα ενότητα. Κάντε διπλό κλικ πάνω του για να ανοίξει.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εργαλεία" στη γραμμή μενού.
- Επιλέξτε "Αναφορές" στο αναπτυσσόμενο μενού.
- Στο παράθυρο "References-Normal", επιλέξτε το πλαίσιο "Microsoft Excel 14.0 Object Library" και κάντε κλικ στο "OK".
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους παρακάτω κωδικούς στη νέα ενότητα:
Sub ExtractWorksheetsToWordDocument()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objTable As Table
Dim dlgFile As FileDialog
Dim strFileName As String
Application.ScreenUpdating = False
' Select an Excel file from Browse window.
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
With dlgFile
If .Show = -1 Then
strFileName = .SelectedItems(1)
Else
MsgBox "No file is selected! Please select the target file."
Exit Sub
End If
End With
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strFileName)
objExcel.Visible = False
' Step through each worksheet in the Excel file and extract data to each _
individual section in Word document.
For Each objWorksheet In ActiveWorkbook.Worksheets
objWorksheet.UsedRange.Copy
ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
ActiveDocument.Range.InsertAfter objWorksheet.Name
If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdSectionBreakNextPage
End With
End If
Next objWorksheet
For Each objTable In ActiveDocument.Tables
objTable.Borders.Enable = True
Next objTable
' Close the Excel application using the Quit method.
objExcel.Application.Quit
' Release the object variables.
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Application.ScreenUpdating = True
End Sub
- Κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5".
- Τώρα υπάρχει το παράθυρο "Αναζήτηση". Απλώς επιλέξτε ένα αρχείο Excel και κάντε κλικ στο "OK".
Εδώ είναι το αποτέλεσμα:
Βεβαιωθείτε ότι τα έγγραφά σας εξακολουθούν να λειτουργούν
Υπάρχουν πιθανώς εκατοντάδες έγγραφα αποθηκευμένα στον υπολογιστή σας. Όσο περνάει ο καιρός, είναι εύκολο να ξεχάσεις μερικά από αυτά. Και όταν θυμάσαι να τα τσεκάρεις κάποια στιγμή, τα βρίσκεις μόνο απρόσιτα. Τότε θα πρέπει να καταφύγετε αμέσως σε ένα εργαλείο για να επισκευή έγγρ.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιορθώστε το xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com