Ako morate kopirati i zalijepiti podatke s više excel radnih listova u MS Word, trebali biste pročitati ovaj članak. U Excelu ne postoji takva značajka koja bi vam mogla omogućiti pretvaranje podataka iz excelove radne knjige u word datoteku. Wordova aplikacija ne može izravno otvoriti Excel datoteke. Međutim, Excel podaci se mogu kopirati i zalijepiti u word, a zatim spremiti kao word dokument.
Svi ručno prenosimo podatke iz programa excel u riječ, što ponekad postaje dosadno kada se radi o izvođenju istih koraka previše puta dnevno; kako bismo izbjegli ručne korake, napisat ćemo VBA kod za sve korake.
U ovom ćemo se članku usredotočiti na premještanje podataka iz programa Excel u word dokument. Cijeli postupak automatizirat ćemo putem VBA koda. Pomoću makro koda možete jednostavno kopirati podatke u jednom radnom listu odjednom, a zatim će se aplikacija Word automatski pokrenuti, a VBA kôd će upotrijebiti naredbu za umetanje podataka u datoteku doc.
Da biste dobili kod; moramo pokrenuti donje korake za pokretanje VB uređivača:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Postoji važan korak koji ne smijete propustiti
- Pritisnite Alati za odabir Reference
- Pomaknite se prema dolje dok ne pronađete "Knjižnicu objekata Microsoft Word 15.0"
- Potvrdite okvir; pogledajte donju sliku
- Kopirajte donji kod u standardni modul
Sub CopyWorksheetsToWord () Zatamni wdApp kao Word.Application, wdDoc kao Word.Document, ws kao Worksheet Application.ScreenUpdating = False Application.StatusBar = "Stvaranje novog dokumenta …" Postavite wdApp = Novi Word.Application Set wdDoc = wdApp.Documents Za svaki ws u ActiveWorkbook.Worksheets Application.StatusBar = "Kopiranje podataka iz" & ws.Name & "…" ws.UsedRange.Copy wdDoc.Paragraphs (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter wdDoc.Paragraphss (wdDo .Count) .Range.Paste Application.CutCopyMode = Netačno wdDoc.Paragrafi (wdDoc.Paragraphs.Count) .Range.InsertParagraphAfter If Not ws.Name = Radni listovi (Radni listovi.Broj). Ime Zatim s wdDoc.ParagraphPs. (WdDo Count) .Range .InsertParagraphBefore .Callapse Direction: = wdCollapseEnd .InsertBreak Type: = wdPageBreak End With End If Next ws Set ws = Nothing Application.StatusBar = "Cleaning up …" With wdApp.ActiveWindow If .View.SplitSpecial = wdPa. ActivePane.View.Type = wdNormalView Ostalo .View.Type = wdNormalView Završi ako završi sa skupom wdDoc = Ništa wdApp.Visible = Istinski skup wdApp = Ništa Application.StatusBar = False End Sub
Za testiranje koda umetnimo 2 lista i dodajmo slučajne brojeve. Slijedi snimak oba radna lista:
1. list:-
2. list:-
- Nakon postavljanja podataka na radnim listovima; možemo pokrenuti makro
- Word aplikacija odmah će se pokrenuti i podaci će se kopirati sa svih radnih listova u word; pogledajte donju snimku
Ako mislite da je kopiranje podataka jedan zadatak, ali bi trebao postojati prijelom stranice između podataka svakog radnog lista kako bi svatko mogao lako napraviti razliku između podataka sa svakog radnog lista.
Gore navedeni podaci bit će kopirani s jednog lista, a zatim će VBA kôd pobrinuti da doda prijelom stranice između stranica.
Zaključak: Na taj način možemo pomoći mnogim korisnicima sustava Microsoft Office koji smatraju da je pretvaranje podataka iz excel datoteke u riječ pomalo komplicirano ili nemoguće. Gornji kôd pokazao je kako se lako može kopirati i zalijepiti podatke u word datoteku bez ikakve buke s više excel listova u word doc datoteku.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte