Dacă vi se cere să copiați și să inserați date din mai multe foi de lucru Excel în MS Word, atunci ar trebui să citiți acest articol. În Excel, nu există o astfel de caracteristică care să vă permită să convertiți datele din registrul de lucru Excel în fișier Word. Aplicația Word nu poate deschide direct fișiere Excel. Cu toate acestea, datele Excel pot fi copiate și lipite în word și apoi salvate ca document Word.
Toți transferăm datele din Excel în cuvinte manual, ceea ce devine uneori obositor atunci când vine vorba de efectuarea acelorași pași de prea multe ori într-o zi; pentru a evita pașii manuali, vom scrie cod VBA pentru a efectua toți pașii.
În acest articol, ne vom concentra pe mutarea datelor din documentul Excel în Word. Vom automatiza întreaga procedură prin codul VBA. Cu codul macro, puteți copia pur și simplu datele într-o singură foaie de lucru simultan și apoi aplicația de cuvânt va fi lansată automat și codul VBA va folosi comanda paste pentru a insera datele în fișierul doc.
Pentru a obține codul; trebuie să urmăm pașii de mai jos pentru a lansa editorul VB:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Există un pas important pe care nu trebuie să-l ratezi
- Faceți clic pe Instrumente pentru a selecta Referințe
- Derulați în jos până găsiți „Biblioteca de obiecte Microsoft Word 15.0”
- Asigurați-vă că bifați caseta; consultați imaginea de mai jos
- Copiați codul de mai jos în modulul standard
Sub CopyWorksheetsToWord () Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet Application.ScreenUpdating = False Application.StatusBar = "Crearea unui document nou …" Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add Pentru fiecare ws în ActiveWorkbook.Worksheets Application.StatusBar = "Copierea datelor din" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter wdDoc.Paragraphs (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 Apoi cu wdDoc.Paragraphs (wdDoc.Paragraphs). 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.SplitSpecial = wdPaneNone. ActivePane.View.Type = wdNormalView Altfel .View.Type = wdNormalView Încheie dacă se termină cu set wdDoc = Nimic wdApp.Visible = Set adevărat wdApp = Nimic Application.StatusBar = Încheiere falsă Sub
Pentru a testa codul, permiteți-ne să introducem 2 foi și să adăugăm numere aleatorii. Urmează instantaneul ambelor foi de lucru:
Prima foaie:-
Foaia a 2-a:-
- După configurarea datelor în foi de lucru; putem rula macro-ul
- Aplicația Word va fi lansată imediat și datele vor fi copiate din toate foile de lucru în word; consultați mai jos instantaneu
Dacă credeți că copierea datelor este o sarcină, dar ar trebui să existe o pauză de pagină între fiecare fișă de lucru, astfel încât oricine să poată face cu ușurință diferența între datele din fiecare foaie de lucru.
Datele de mai sus vor fi copiate dintr-o singură foaie și apoi codul VBA se va asigura că adăugați pauza de pagină între pagini.
Concluzie: În acest fel, putem ajuta mulți utilizatori Microsoft Office care consideră că convertirea datelor din fișierul Excel în cuvânt este puțin complicată sau imposibilă. Codul de mai sus a demonstrat cât de ușor se pot copia și lipi date în fișierul Word, fără nicio problemă de la mai multe foi Excel în fișierul Word Word.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail